tests/testthat/test-utils-input.R

In covid-19-Re/estimateR: Reproductive number estimation from delayed observations of infections

test_that(".get_module_input() deals with well-formatted input", {
  toy_incidence <- c(1, 2, 1, 0)
  data_1 <- list(values = toy_incidence, index_offset = -4)

  expect_identical(.get_module_input(toy_incidence), list(values = toy_incidence, index_offset = 0))
  expect_identical(.get_module_input(data_1), data_1)
})

test_that(".get_module_input() checks input format", {
  toy_incidence <- c(1, 23, 1, 50)
  data_1 <- list(values = toy_incidence, index_offset = -2, baz = 6)
  invalid_input_1 <- list(a = toy_incidence, b = -2, c = 6)

  expect_identical(.get_module_input(data_1), list(values = toy_incidence, index_offset = -2))
  expect_error(.get_module_input(invalid_input_1))
})