tests/testthat/test-run.R

In growR: Implementation of the Vegetation Model ModVege

## This test expects the directory structure and example files to be present, 
## so it has to be run after `setup_directory`, which is run in `test-setup.R`.
test_that("growR_run_loop with example config", {
  envs = read_config(file.path(.tmpdir(), "example_config.txt"), 
                     input_dir = file.path(.tmpdir(), "input"))
  # Reduce run time by reducing the number of years
  for (env in envs) {
    env$years = env$years[[1]]
  }
  expect_no_error(growR_run_loop(envs))
  unlink(.tmpdir(), recursive = TRUE)
})