tests/testthat/test-esp_cache.R

In dieghernan/mapSpain: Administrative Boundaries of Spain

test_that("Test cache online", {
  # Get current cache dir
  current <- esp_detect_cache_dir()

  cat("User cache dir is ", current, "\n")

  # Set a temp cache dir
  expect_message(esp_set_cache_dir(verbose = TRUE))
  testdir <- expect_silent(esp_set_cache_dir(
    file.path(current, "testthat"),
    verbose = FALSE
  ))

  expect_identical(esp_detect_cache_dir(), testdir)

  # Clean
  expect_silent(esp_clear_cache(config = FALSE, verbose = FALSE))
  # Cache dir should be deleted now
  expect_false(dir.exists(testdir))


  # Reset just for testing all cases
  testdir <- file.path(tempdir(), "mapSpain", "testthat")
  expect_message(esp_set_cache_dir(testdir))

  cat("Testing cache dir is ", Sys.getenv("MAPSPAIN_CACHE_DIR"), "\n")


  skip_on_cran()
  skip_if_siane_offline()

  expect_message(esp_get_ccaa_siane(verbose = TRUE))

  expect_true(dir.exists(testdir))

  expect_message(esp_clear_cache(config = FALSE, verbose = TRUE))

  # Cache dir should be deleted now
  expect_false(dir.exists(testdir))

  # Restore cache
  expect_message(esp_set_cache_dir(current, verbose = TRUE))
  expect_silent(esp_set_cache_dir(current, verbose = FALSE))
  expect_equal(current, Sys.getenv("MAPSPAIN_CACHE_DIR"))
  expect_true(dir.exists(current))
})