tests/testthat/test-memory-cache.R

context("MemoryCache")

test_that("Memory cache works correctly", {
  mc <- MemoryCache$new()

  mc$set(1, mtcars)
  expect_equal(mc$get(1), mtcars)
  expect_equal(nrow(mc$print_meta()), 1)

  mc$delete(1)
  expect_null(mc$get(1))
  expect_equal(mc$get(1, default = 2), 2)

  mc$trim()
  mc$destroy()
})
skubicius/cashmere documentation built on May 22, 2019, 2:46 p.m.