diff --git a/tests/testthat/test-estimate_secondary.R b/tests/testthat/test-estimate_secondary.R index 3d70b714c..dceaa19a6 100644 --- a/tests/testthat/test-estimate_secondary.R +++ b/tests/testthat/test-estimate_secondary.R @@ -227,13 +227,13 @@ test_that("estimate_secondary works with filter_leading_zeros set", { ## testing deprecated functionality withr::local_options(lifecycle_verbosity = "quiet") modified_data <- inc_cases[1:10, secondary := 0] - out <- estimate_secondary( + out <- suppressWarnings(estimate_secondary( modified_data, obs = obs_opts(scale = Normal(mean = 0.2, sd = 0.2), week_effect = FALSE), filter_leading_zeros = TRUE, verbose = FALSE - ) + )) expect_s3_class(out, "estimate_secondary") expect_named(out, c("predictions", "posterior", "data", "fit")) expect_equal(out$predictions$primary, modified_data$primary[-(1:10)])