improve testing output

epiforecasts · Oct 10, 2023 · 3a05c06 · 3a05c06
1 parent 9b30403
commit 3a05c06
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 10 deletions.
diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
@@ -1,3 +1,5 @@
+library("data.table")
+
 if (identical(Sys.getenv("NOT_CRAN"), "true")) {
   files <- c(
     "convolve.stan", "pmfs.stan", "observation_model.stan", "secondary.stan",

diff --git a/tests/testthat/test-estimate_secondary.R b/tests/testthat/test-estimate_secondary.R
@@ -1,5 +1,4 @@
 skip_on_cran()
-library(data.table)
 
 #### Incidence data example ####
 

diff --git a/tests/testthat/test-estimate_truncation.R b/tests/testthat/test-estimate_truncation.R
@@ -44,8 +44,7 @@ test_that("estimate_truncation can return values from simulated data and plot
            them", {
   # fit model to example data
   est <- estimate_truncation(example_data,
-    verbose = interactive(), refresh = 0,
-    chains = 2, iter = 1000, warmup = 250
+    verbose = FALSE, chains = 2, iter = 1000, warmup = 250
   )
   expect_equal(
     names(est),
@@ -58,16 +57,13 @@ test_that("estimate_truncation can return values from simulated data and plot
 test_that("deprecated arguments are recognised", {
   options(warn = 2)
   expect_error(estimate_truncation(example_data,
-    verbose = interactive(), refresh = 0,
-    trunc_max = 10
+    verbose = FALSE, trunc_max = 10
   ), "deprecated")
   expect_error(estimate_truncation(example_data,
-    verbose = interactive(), refresh = 0,
-    max_truncation = 10
+    verbose = FALSE, max_truncation = 10
   ), "deprecated")
   expect_error(estimate_truncation(example_data,
-    verbose = interactive(), refresh = 0,
-    trunc_dist = "lognormal"
+    verbose = FALSE, trunc_dist = "lognormal"
   ), "deprecated")
 })
 

diff --git a/tests/testthat/test-simulate_infections.R b/tests/testthat/test-simulate_infections.R
@@ -9,7 +9,6 @@ reporting_delay <- dist_spec(
   sd = convert_to_logsd(2, 1), sd_sd = 0.1, max = 10
 )
 
-library(data.table)
 out <- suppressWarnings(estimate_infections(reported_cases,
   generation_time = generation_time_opts(generation_time),
   delays = delay_opts(reporting_delay),