tests/testthat/test-scenario_cost.R

In n8thangreen/LTBIscreeningproject: LTBI screening cost-effectiveness analysis

context("test-scenario_cost.R")

library(assertthat)


load("costeff_cohort.RData")

test_that("struct", {

  res <- scenario_cost(
    endpoint = "death",
    unit_cost.aTB_TxDx = list(distn = "unif", params = c(min = 1, max = 1)),
    costeff_cohort = costeff_cohort,
    prop_avoided = 0.5
  )

  expect_is(res, "list")
  expect_length(res, 2)
  expect_named(res, c("statusquo", "screened"))
})

test_that("edge cases", {
  res <- scenario_cost(
    endpoint = "death",
    unit_cost.aTB_TxDx = list(distn = "unif",
                              params = c(min = 1, max = 1)),
    prop_avoided = 0,
    costeff_cohort = costeff_cohort
  )

  expect_equal(res[[1]] - res[[2]], 0)

  res_uk <- scenario_cost(
    endpoint = "exit uk",
    unit_cost.aTB_TxDx = list(distn = "unif",
                              params = c(min = 1, max = 1)),
    prop_avoided = 0,
    costeff_cohort = costeff_cohort
  )

  expect_equal(res_uk[[1]] - res_uk[[2]], 0)

  expect_gte(res[[1]] - res_uk[[1]], 0)
})


test_that("errors and warnings", {

  expect_error(
    scenario_cost(
      endpoint = "death",
      unit_cost.aTB_TxDx = 1,
      prop_avoided = 0,
      costeff_cohort = costeff_cohort),
    regexp = "Distributions not specified in a list."
  )

})