tests/testthat/test-zzz.R

In epiverse-trace/linelist: Tagging and Validating Epidemiological Data

skip_if_not_installed("callr")

test_that("tests for zzz", {
  # We need to use callr to avoid conflicts with other tests
  res <- callr::r(
    function() {
      library(linelist)
      get_lost_tags_action()
    }
  )
  expect_identical(res, "warning")

})

test_that("Environment variable is used for initial `lost_tags_action`", {
  # We need to use callr to avoid conflicts with other tests
  res <- callr::r(
    function() {
      library(linelist)
      get_lost_tags_action()
    },
    env = c(LINELIST_LOST_ACTION = "error")
  )
  expect_identical(res, "error")

})