tests/testthat/test-cache_put_and_get.R

In BAAQMD/cacher: Cache Objects on Disk

context("cache_put")

val <- rnorm(3)        # random value
key <- "test/rnorm/3"  # fixed location

test_that("cache_put", {
  expect_equal(val, cache_put(val, key))
})

context("cache_get")

test_that("cache_get", {
  expect_equal(cache_get(key), val)
})