tests/testthat/test-list_out_scenarios.R

In cath-parkinson/mm.reoptimise: Run and Compare Budget Optimisation in Different Scenarios

path <- system.file("testdata", "three4", package = "mm.reoptimise")
scenario_list <- create_scenario_list(path)
list_of_scenarios <- list_out_scenarios(scenario_list)

test_that("output has expected type and length",{
      expect_true(is.vector(list_of_scenarios))
      expect_true(is.character(list_of_scenarios))
      expect_equal(length(list_of_scenarios), length(scenario_list))
})