check new tests

epinowcast · Nov 15, 2024 · d0ffd00 · d0ffd00
1 parent a2bb0a4
commit d0ffd00
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 20 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -34,10 +34,7 @@ Imports:
     rstan (>= 2.26.0),
     dplyr,
     tibble,
-    lubridate,
-    BH (>= 1.66.0),
-    Rcpp (>= 0.12.0),
-    RcppEigen (>= 0.3.3.3.0)
+    lubridate
 Suggests:
     bookdown,
     testthat (>= 3.0.0),
@@ -55,7 +52,10 @@ Suggests:
     modelr,
     patchwork,
     cmdstanr,
-    priorsense
+    priorsense,
+    BH (>= 1.66.0),
+    Rcpp (>= 0.12.0),
+    RcppEigen (>= 0.3.3.3.0)
 Additional_repositories:
     https://stan-dev.r-universe.dev
 Config/Needs/website:

diff --git a/tests/testthat/test-linelist_data.R b/tests/testthat/test-linelist_data.R
@@ -1,15 +1,16 @@
-test_that("as_epidist_linelist_data assigns epidist_linelist_data class to data", {
-  data <- data.frame(
-    case = 1,
+test_that(
+  "as_epidist_linelist_data assigns epidist_linelist_data class to data", {
+    data <- data.frame(
+      case = 1,
     pdate_lwr = as.POSIXct("2023-01-01 00:00:00"),
     pdate_upr = as.POSIXct("2023-01-02 00:00:00"),
     sdate_lwr = as.POSIXct("2023-01-03 00:00:00"),
     sdate_upr = as.POSIXct("2023-01-04 00:00:00"),
     obs_date = as.POSIXct("2023-01-05 00:00:00")
   )
-  linelist_data <- as_epidist_linelist_data(
+  linelist_data <- suppressMessages(as_epidist_linelist_data(
     data, "pdate_lwr", "pdate_upr", "sdate_lwr", "sdate_upr", "obs_date"
-  )
+  ))
   expect_s3_class(linelist_data, "epidist_linelist_data")
 })
 
@@ -22,9 +23,9 @@ test_that("as_epidist_linelist_data correctly renames columns", {
     s_upper = as.POSIXct("2023-01-04"),
     observation = as.POSIXct("2023-01-05")
   )
-  linelist_data <- as_epidist_linelist_data(
+  linelist_data <- suppressMessages(as_epidist_linelist_data(
     data, "p_lower", "p_upper", "s_lower", "s_upper", "observation"
-  )
+  ))
   col_names <- c("pdate_lwr", "pdate_upr", "sdate_lwr", "sdate_upr", "obs_date")
   expect_true(all(col_names %in% names(linelist_data)))
 })
@@ -39,9 +40,9 @@ test_that("as_epidist_linelist_data works with dates", {
     obs_date = as.Date("2023-01-05")
   )
   expect_no_error(
-    as_epidist_linelist_data(
+    suppressMessages(as_epidist_linelist_data(
       data, "pdate_lwr", "pdate_upr", "sdate_lwr", "sdate_upr", "obs_date"
-    )
+    ))
   )
 })
 
@@ -51,7 +52,7 @@ test_that("as_epidist_linelist_data works with default column names", {
     pdate_lwr = as.Date("2023-01-01"),
     sdate_lwr = as.Date("2023-01-03")
   )
-  linelist_data <- as_epidist_linelist_data(data)
+  linelist_data <- suppressMessages(as_epidist_linelist_data(data))
   expect_s3_class(linelist_data, "epidist_linelist_data")
   expect_true(
     all(
@@ -67,7 +68,7 @@ test_that("as_epidist_linelist_data adds default upper bounds", {
     pdate_lwr = as.Date("2023-01-01"),
     sdate_lwr = as.Date("2023-01-03")
   )
-  linelist_data <- as_epidist_linelist_data(data)
+  linelist_data <- suppressMessages(as_epidist_linelist_data(data))
   expect_identical(
     as.Date(linelist_data$pdate_upr),
     as.Date("2023-01-02")
@@ -83,7 +84,7 @@ test_that("as_epidist_linelist_data uses max secondary date as obs_date", {
     pdate_lwr = as.Date("2023-01-01"),
     sdate_lwr = as.Date("2023-01-03")
   )
-  linelist_data <- as_epidist_linelist_data(data)
+  linelist_data <- suppressMessages(as_epidist_linelist_data(data))
   expect_identical(
     as.Date(linelist_data$obs_date),
     as.Date("2023-01-04")
@@ -96,8 +97,8 @@ test_that("as_epidist_linelist_data errors without required columns", {
     some_date = as.Date("2023-01-01")
   )
   expect_error(
-    as_epidist_linelist_data(data),
-    "pdate_lwr is NULL but must be provided"
+    suppressMessages(as_epidist_linelist_data(data)),
+    "`pdate_lwr` is NULL but must be provided"
   )
 })
 
@@ -108,7 +109,7 @@ test_that("as_epidist_linelist_data preserves additional columns", {
     sdate_lwr = as.Date("2023-01-03"),
     extra_col = "test"
   )
-  linelist_data <- as_epidist_linelist_data(data)
+  linelist_data <- suppressMessages(as_epidist_linelist_data(data))
   expect_true("extra_col" %in% names(linelist_data))
   expect_identical(linelist_data$extra_col, "test")
 })