tests/testthat/test-is_bestcase_possible.R

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

# add via user name --------------------------------------------
path <- system.file("testdata", "three1", package = "mm.reoptimise")
scenario_list <- create_scenario_list(path)
scenario <- scenario_list[[1]]

user_period = "month"
kpi1 = "Profit"
kpi2 = "Profit"
kpi3 = "Profit"

#
test_that("output is correct", {

   expect_true(is_bestcase_possible(scenario,
                                    user_period,
                                    kpi1,
                                    kpi2,
                                    kpi3))

})


kpi1 = "Brand Health"
kpi2 = "Awareness"
kpi3 = "Awareness"

test_that("output is correct", {

   expect_true(!is_bestcase_possible(scenario,
                                    user_period,
                                    kpi1,
                                    kpi2,
                                    kpi3))

})

user_period = ""
kpi1 = ""
kpi2 = ""
kpi3 = ""

test_that("output is correct", {

      expect_true(!is_bestcase_possible(scenario,
                                        user_period,
                                        kpi1,
                                        kpi2,
                                        kpi3))

})