tests/testthat/test-99_clear_cache.R

In Delta-Stewardship-Council/deltafish: Accesses an Integrated Fish Count and Length Dataset from the San Francisco Delta

test_that("cache can be cleared", {
  clear_cache()
  files <- show_cache()

  expect_true(length(files) == 0)
})

test_that("cleared cache induces the expected message in clear_cache()", {
  clear_cache()

  expect_message(clear_cache(), "No cache to remove.", fixed = TRUE)
})

cat("finished testing cache clearing")