tests/testthat/test-check_module.R

In seabbs/epinowcast: Flexible Hierarchical Nowcasting

test_that("check_module works as expected", {
  expect_error(
    check_module(
      list(inits = 1)
    )
  )
  expect_error(
    check_module(
      list(data = 1)
    )
  )
  expect_error(
    check_module(
      list(data = list())
    ),
    NA
  )
})