inst/testdata/simple/setup.R

In komparo/certigo: Simple but Powerful Workflow Management System

library(testthat)
library(fs)

# go to temporary directory and copy over all files
create_workflow_dir <- function() {
  tempdir <- tempfile()
  dir.create(tempdir)
  dir_copy(system.file("testdata/simple", package = "certigo"), tempdir)

  options(certigo_root = paste0(tempdir, "/simple"))
}

# some testing functions
expect_rerun <- function(x) {expect_output(x, "^.*Finished.*$", info = "Expected a rerun")}
expect_rerun_somewhere <- function(x) {expect_output(x, ".*Finished.*", info = "Expected a rerun")}
expect_cached <- function(x) {expect_output(x, "^.*Cached.*$", info = "Expected a cached")}
expect_cached_somewhere <- function(x) {expect_output(x, ".*Cached.*", info = "Expected a cached")}

create_workflow_dir()