tests/testthat/test-cache_logic.R

In rsoi: Import Various Northern and Southern Hemisphere Climate Indices

test_function <- function() {
  data.frame(x = rnorm(100), y = rnorm(100))
}


test_function_memoised <- memoise::memoise(test_function)


same <- function(x, y) {
  isTRUE(all.equal(x, y))
}


context("cache logic")

test_that("doesn't cache by default", {
  res1 <- with_cache(
    use_cache = FALSE,
    file = NULL,
    test_function_memoised,
    test_function
  )
  res2 <- with_cache(
    use_cache = FALSE,
    file = NULL,
    test_function_memoised,
    test_function
  )

  expect_false(same(res1, res2))

  file <- tempfile()
  res1 <- with_cache(
    use_cache = FALSE,
    file = file,
    test_function_memoised,
    test_function
  )
  res2 <- with_cache(
    use_cache = FALSE,
    file = file,
    test_function_memoised,
    test_function
  )

  expect_false(same(res1, res2))

  res_file <- read.csv(file)
  expect_equal(res2, res_file, check.attributes = FALSE)
})


test_that("cache works", {
  res1 <- with_cache(
    use_cache = TRUE,
    file = NULL,
    test_function_memoised,
    test_function
  )
  res2 <- with_cache(
    use_cache = TRUE,
    file = NULL,
    test_function_memoised,
    test_function
  )

  expect_equal(res1, res2, check.attributes = FALSE)
  file <- tempfile()
  res3 <- with_cache(
    use_cache = TRUE,
    file = file,
    test_function_memoised,
    test_function
  )
  res4 <- with_cache(
    use_cache = TRUE,
    file = file,
    test_function_memoised,
    test_function
  )

  expect_equal(res3, res4, check.attributes = FALSE)

  expect_false(same(res1, res3))
})