tests/testthat/test-get_scenario_description.R

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

path <- system.file("testdata", "three4", "scenario_0", package = "mm.reoptimise")

# pounds  -> \u00A3
scenario <- create_scenario(path)

test_that("function returns expected string", {
      expect_equal("Month, Profit, \u00A338M",
                   get_scenario_description(scenario, "month", 38000000, "profit"))

      expect_equal("Month, Profit, Best Case",
                   get_scenario_description(scenario, "month", NA, "profit"))
})