tests/testthat/test-scenario.R

test_that("get_active_scenario", {
  checkmate::expect_list(get_active_scenario(), types = "character", any.missing = FALSE)
  checkmate::expect_access(get_active_scenario()[["scenario_dir"]])
  checkmate::expect_access(get_active_scenario()[["output_dir"]])
  checkmate::expect_access(get_active_scenario()[["input_dir"]])
})
dymium-org/dymiumCore documentation built on July 18, 2021, 5:10 p.m.