tests/testthat/test-with_cache.R

In woodendesc: Find Packages and Their Dependencies in Any 'R' Repository

wood_clear_cache()

test_that("with_cache() returns a value when no outside variables", {
  expect_equal(with_cache({ 5 }), 5)
})

test_that("with_cache() accepts cache path", {
  expect_equal(
    with_cache({ "used" }, "temporary", "path"),
    "used"
  )
  expect_subset(
    cache_path("temporary", "path"),
    list.files(wood_tempdir(), full.names = TRUE)
  )
})

test_that("with_cache() returns cached value if called again with the same path", {
  expect_equal(
    with_cache({ "unused" }, "temporary", "path"),
    "used"
  )
})

test_that("with_cache() works with outside variables", {
  local_var <- 10

  expect_equal(
    with_cache({
      local_var^2
    }, "some", "other", "cache"),
    100
  )
})

test_that("with_cache() returns NULL by default if value is NULL", {
  expect_equal(
    with_cache({ NULL }, "yet", "another", "cache"),
    NULL
  )
})

test_that("with_cache() doesn't create cache file if NULL", {
  with_cache({ NULL }, "no", "cache")
  expect_false(
    cache_path("no", "cache") %in% list.files(wood_tempdir(), full.names = TRUE)
  )
})

test_that("with_cache() accepts .if_null parameter that executes if NULL", {
  expect_equal(
    with_cache({}, "null", "cache", .if_null = {
      NA_character_
    }),
    NA_character_
  )
})