tests/testthat/test-outpack-store.R

In orderly: Lightweight Reproducible Reporting

test_that("Can create file store", {
  tmp <- temp_file()
  obj <- file_store$new(tmp)
  expect_equal(obj$list(), character(0))
  err <- expect_error(
    obj$get("md5:abcde"),
    "Hash not found in store")
  expect_match(conditionMessage(err), "md5:abcde")
})


test_that("Can store files", {
  tmp <- temp_file()
  dir.create(tmp)
  for (i in 1:10) {
    saveRDS(runif(10), file.path(tmp, letters[i]))
  }

  obj <- file_store$new(temp_file())

  p <- file.path(tmp, "a")
  h <- hash_file(p)
  expect_equal(obj$put(p, h), h)
  expect_equal(obj$list(), h)
  expect_true(file.exists(obj$filename(h)))
  dest <- tempfile()
  expect_equal(obj$get(h, dest, TRUE), dest)
  expect_true(file.exists(dest))
  expect_equal(hash_file(dest), h)

  for (i in letters[2:10]) {
    h <- hash_file(file.path(tmp, i))
    obj$put(file.path(tmp, i), h)
  }
  expect_length(obj$list(), 10)
  expect_equal(file.exists(obj$filename(obj$list())),
               rep(TRUE, 10))

  dest <- withr::local_tempdir()
  obj$get(obj$list(), file.path(dest, letters[1:10]), FALSE)
})


test_that("can move files into place", {
  tmp <- temp_file()
  dir.create(tmp)
  for (i in 1:2) {
    saveRDS(runif(10), file.path(tmp, letters[i]))
  }
  pa <- file.path(tmp, "a")
  pb <- file.path(tmp, "b")
  ha <- hash_file(pa)
  hb <- hash_file(pb)

  obj <- file_store$new(temp_file())
  obj$put(pa, ha, move = FALSE)
  ## Original file has not been moved:
  expect_true(file.exists(pa))

  ## Moving files removes the source file whether or not a move was
  ## completed:
  obj$put(pa, ha, move = TRUE)
  obj$put(pb, hb, move = TRUE)
  expect_false(file.exists(pa))
  expect_false(file.exists(pb))
})


test_that("can create a filename within the store", {
  obj <- file_store$new(temp_file())
  p <- obj$tmp()
  expect_equal(normalise_path(dirname(p)),
               normalise_path(file.path(obj$path, "tmp")))
  expect_false(file.exists(p))
  expect_true(file.exists(file.path(obj$path, "tmp")))
})


test_that("files is the store are read-only", {
  skip_on_cran()
  obj <- file_store$new(withr::local_tempdir())

  f <- withr::local_tempfile()
  writeLines("Hello", f)
  h <- hash_file(f)
  obj$put(f, h)

  path <- obj$filename(h)
  expect_true(fs::file_access(path, "read"))
  expect_false(fs::file_access(path, "write"))
})


test_that("files are writable when retrieved", {
  obj <- file_store$new(withr::local_tempdir())

  f <- withr::local_tempfile()
  writeLines("Hello", f)
  h <- hash_file(f)
  obj$put(f, h)

  path <- withr::local_tempfile()
  obj$get(h, path, TRUE)
  expect_true(fs::file_access(path, "read"))
  expect_true(fs::file_access(path, "write"))
  writeLines("World", path)
})