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()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.