tests/testthat/test-disk-cache.R

In skubicius/cashmere: Implements disk and memory caching

context("DiskCache")

test_that("DiskCache works correctly without any arguments", {
  dc <- DiskCache$new()
  n <- 10

  expect_equal(dc$get(key = "x"), NULL)
  expect_equal(dc$get(key = "x", default = 1), 1)

  dc$set(key = "x", value = 2)
  expect_equal(dc$get("x"), 2)
  expect_equal(dc$get("x", default = 3), 2)

  for (i in seq(n)) {
    dc$set(i, paste0("BAM", i))
  }

  all_true <- TRUE
  for (i in seq(n)) {
    all_true <- all_true && identical(dc$get(i), paste0("BAM", i))
  }

  expect_true(all_true)
  dc$destroy()
})