tests/testthat/test-xml_interventions.R

In SwissTPH/r-openMalariaUtilities: Helper functions to provide easier usage of Open Malaria from R

test_that(".defineInterventionsHeader works", {
  testlist <- list(interventions = list())

  ## Normal
  expected <- list(interventions = list(name = "All interventions"))

  actual <- .defineInterventionsHeader(testlist)

  expect_equal(actual, expected)

  ## Overwriting
  testlist <- list(interventions = list(name = "foo"))
  expected <- list(interventions = list(name = "bar"))

  actual <- .defineInterventionsHeader(testlist, "bar")

  expect_equal(actual, expected)
})