tests/testthat/test-check_modules_compatible.R

In epiforecasts/epinowcast: Flexible Hierarchical Nowcasting

test_that("check_modules_compatible works as expected", {
  modules <- as.list(rep(1, 6))
  modules[[4]] <- list(data = list(model_miss = FALSE))
  modules[[6]] <- list(data = list(likelihood_aggregation = FALSE))
  expect_null(check_modules_compatible(modules))
  modules[[4]] <- list(data = list(model_miss = TRUE))
  modules[[6]] <- list(data = list(likelihood_aggregation = FALSE))
  expect_warning(check_modules_compatible(modules))
})