tests/testthat/test-integration-assign.R

In ropenscilabs/tic: Tasks Integrating Continuously: CI-Agnostic Workflow Definitions

test_that("integration test: assign (#33)", {
  package_path <- tempfile("ticpkg", fileext = "pkg")

  cat("\n")
  dir.create(package_path)
  withr::with_dir(
    package_path,
    { # nolint
      writeLines(
        'script_stage <- get_stage("script")',
        "tic.R"
      )
      writeLines("^tic\\.R$", ".Rbuildignore")
      expect_error(
        callr::r(
          function() {
            tic::run_all_stages()
          },
          show = TRUE,
          env = c(callr::rcmd_safe_env(), TIC_LOCAL = "true")
        ),
        NA
      )
      expect_false(file.exists("out.txt"))
    }
  )
})