context("Minimal functionality of Cache types")
test_that("Minimal functionality works in all Cache subclasses", {
# each new Cache subclass should be added to the below list
cache_subclasses <- list(
SqliteCache,
DiskCache,
MemoryCache
)
# should pass without errors on each subclass from the list
min_test <- function(CacheSubclass) {
cache <- CacheSubclass$new()
cache$set(1, 1)
expect_true(cache$exists(1))
expect_equal(cache$get(1), 1)
cache$delete(1)
expect_null(cache$get(1))
expect_equal(cache$get(1, default = 2), 2)
# expiration test
cache$set(2, 2, expire_in = 0.01)
Sys.sleep(0.02)
expect_null(cache$get(2))
cache$trim()
cache$destroy()
}
lapply(
cache_subclasses,
min_test
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.