tests/testthat/test-local_pacta.R

In 2DegreesInvesting/pactaCore: What the Package Does (One Line, Title Case)

test_that("creates a pacta project in the tempdir() directory", {
  skip_on_ci()
  skip_on_cran()
  dir <- tempdir()

  local({
    local_pacta()
    expect_true(file_exists(path(dir, ".env")))
    expect_true(dir_exists(path(dir, "input")))
    expect_true(dir_exists(path(dir, "output")))
  })

  expect_false(file_exists(path(dir, ".env")))
  expect_false(dir_exists(path(dir, "input")))
  expect_false(dir_exists(path(dir, "output")))
})

test_that("if PACTA_DATA is unset fails gracefully", {
  withr::local_envvar(c(PACTA_DATA = ""))
  expect_error(local_pacta(), "need to set")
})