unquote vector name in epidist_utils test

epiverse-trace · Nov 17, 2023 · 3e0cee6 · 3e0cee6
1 parent d98b4e5
commit 3e0cee6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-epidist_utils.R b/tests/testthat/test-epidist_utils.R
@@ -149,7 +149,7 @@ test_that("clean_epidist_params works as expected for pois", {
 })
 
 test_that("clean_epidist_params fails when pois parameters are incorrect", {
-  pois_param <- c("means" = 1)
+  pois_param <- c(means = 1)
   class(pois_param) <- "pois"
   expect_error(
     clean_epidist_params(prob_dist_params = pois_param),