Update Vacamole tests with rate interventions allowed

epiverse-trace · Aug 23, 2023 · 0832278 · 0832278
1 parent f1a5750
commit 0832278
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tests/testthat/test-vacamole.R b/tests/testthat/test-vacamole.R
@@ -222,7 +222,7 @@ test_that("Output of the Vacamole epidemic model R", {
     epidemic_vacamole_r(
       population = uk_population,
       infection = infect,
-      intervention = no_contacts_intervention(uk_population),
+      intervention = list(contacts = no_contacts_intervention(uk_population)),
       vaccination = double_vaccination,
       time_end = 100, increment = 1.0
     )
@@ -231,7 +231,7 @@ test_that("Output of the Vacamole epidemic model R", {
   data <- epidemic_vacamole_r(
     population = uk_population,
     infection = infect,
-    intervention = no_contacts_intervention(uk_population),
+    intervention = list(contacts = no_contacts_intervention(uk_population)),
     vaccination = double_vaccination,
     time_end = 100, increment = 1.0
   )
@@ -300,15 +300,15 @@ test_that("Equivalence of vacamole model R and Cpp", {
   data_r <- epidemic_vacamole_r(
     population = uk_population,
     infection = infect,
-    intervention = multi_intervention,
+    intervention = list(contacts = multi_intervention),
     vaccination = double_vaccination,
     time_end = 100, increment = 1.0
   )
 
   data_cpp <- epidemic_vacamole_cpp(
     population = uk_population,
     infection = infect,
-    intervention = multi_intervention,
+    intervention = list(contacts = multi_intervention),
     vaccination = double_vaccination,
     time_end = 100, increment = 1.0
   )