tests/testthat/test_calculateAAdmissibility.R

In florianfendt/dips: Decision Problems In Preference Systems

context("calculateAAdmissibility")

# setup decision problem, preference system and helpers
dp = makeDecisionProblem(act1.dom, "nature", "job")
ps = makePreferenceSystem(dp)

test_that("calculateAAdmissibility", {
  # check general behavior
  a.admiss = calculateAAdmissibility(ps, 1L, p.measures.2)
  # the way the example act1.dom was designed act 1
  # dominates the other two acts
  expect_true(a.admiss > 0)
  # Other two acts should not be A-Admissible
  a.admiss = calculateAAdmissibility(ps, 2L, p.measures.2)
  expect_true(a.admiss <= 0)
  a.admiss = calculateAAdmissibility(ps, 3L, p.measures.2)
  expect_true(a.admiss <= 0)
})

test_that("check error messages", {
  # check error messages for infeasible probability measures

  expect_error(calculateAAdmissibility(ps, action = "1", bad.measures.l),
    "length")
  expect_error(calculateAAdmissibility(ps, bad.measures.s, action = "1"),
    "sum to 1")
  # check sanity of action variable
  expect_error(calculateAAdmissibility(ps, p.measures.2,
    action = "bad action"), "not a valid action")
})