tests/testthat/test-file-backed.R

In wnattt/renv: Project Environments

context("File-backed")

test_that("file-backed entries are discarded after the file is modified", {

  file <- renv_tempfile_path("renv-test-")

  contents <- "Hello, world!"
  writeLines(contents, con = file)

  renv_filebacked_set("test", file, contents)
  expect_equal(renv_filebacked_get("test", file), contents)

  writeLines("Goodbye, world!", con = file)
  expect_identical(renv_filebacked_get("test", file), NULL)

})

test_that("file-backed entries are discarded after the file is deleted", {

  file <- renv_tempfile_path("renv-test-")

  contents <- "Hello, world!"
  writeLines(contents, con = file)

  renv_filebacked_set("test", file, contents)
  expect_equal(renv_filebacked_get("test", file), contents)

  unlink(file)
  expect_identical(renv_filebacked_get("test", file), NULL)

})