tests/testthat/test-cache_meta.R

In antoine-sachet/cacheR: Save Data in Git-friendly Format

check_metas <- function(metas) {
  path <- tempdir(check = TRUE)
  teardown(unlink(path))
  purrr::iwalk(metas, function(meta, label) {
    expect_silent(set_cache_meta(path, meta))
    expect_equal(get_cache_meta(path), meta, label = label)
  })
}

test_that("set_cache_meta and get_cache_meta work", {

  metas <- list(
    meta1 = list(a = "1", b = "2"),
    meta2 = list(a = 1:10, b = 0.23),
    meta3 = list(class = c("tbl", "data.frame")),
    meta4 = list(class = c("tbl", "data.frame"),
                 names = c("a", "b", "c"))
  )

  check_metas(metas)
})


test_that("update_cache_meta works", {

  path <- tempdir(check = TRUE)
  teardown(unlink(path))

  set_cache_meta(path, list(a = 1, b = 2))
  update_cache_meta(path, c = 3)

  expect_equal(get_cache_meta(path), list(a = 1, b = 2, c = 3))
})


test_that("update_cache_meta overrides existing variables", {

  path <- tempdir(check = TRUE)
  teardown(unlink(path))

  set_cache_meta(path, list(a = 1, b = 2, c = 3))
  update_cache_meta(path, b = "b")

  expect_equal(get_cache_meta(path), list(a = 1, b = "b", c = 3))
})

test_that("update_cache_meta follows given order", {

  path <- tempdir(check = TRUE)
  teardown(unlink(path))

  set_cache_meta(path, list(b = 2, c = 3))
  update_cache_meta(path, b = "b", d = 4, a = "a")

  expect_equal(get_cache_meta(path), list(b = "b", c = 3, d = 4, a = "a"))
})



test_that("get_cache_version works", {
  path <- tempdir(check = TRUE)
  teardown(unlink(path))

  write_cache(iris, path = path, name = "iris", overwrite = T)
  ver <- get_cache_version(file.path(path, "iris"))
  expect_type(ver, "character")
  expect_match(ver, "[0-9]+\\.[0-9]+.*")

  # cache_version was introduced in cacheR 1.0.2.9000 / 1.0.3
  expect_true(ver > "1.0.2")
})

test_that("get_cache_version works even with version attribute", {
  path <- tempdir(check = TRUE)
  teardown(unlink(path))

  df <- iris
  attr(df, "version") <- "plop"
  write_cache(df, path = path, name = "iris", overwrite = T)
  expect_match(get_cache_version(file.path(path, "iris")), "[0-9]+\\.[0-9]+.*")
})