tests/testthat/test-clear_beautier_cache.R

In richelbilderbeek/beastierinstall: Installs BEAST2 For Beastier

test_that("minimal use", {
  expect_silent(clear_beautier_cache())
})

test_that("create file", {

  beautier_cache_folder_name <- dirname(beautier::get_beautier_tempfilename())

  filename <- beautier::get_beautier_tempfilename()
  dir.create(dirname(filename), showWarnings = FALSE, recursive = TRUE)
  readr::write_lines("irrelevant", file = filename)
  expect_equal(1, length(list.files(beautier_cache_folder_name)))
  expect_silent(clear_beautier_cache())
  expect_equal(0, length(list.files(beautier_cache_folder_name)))
})

test_that("create dir", {
  beautier_cache_folder_name <- dirname(beautier::get_beautier_tempfilename())

  folder_name <- beautier::get_beautier_tempfilename()
  dir.create(folder_name, showWarnings = FALSE, recursive = TRUE)
  expect_equal(2, length(list.dirs(beautier_cache_folder_name)))
  expect_silent(clear_beautier_cache())
  expect_equal(0, length(list.dirs(beautier_cache_folder_name)))
})