From 47b267b7eeba391da1bffa8a7caf62aa45f411cc Mon Sep 17 00:00:00 2001 From: Andrew Pulsipher Date: Wed, 27 Nov 2024 07:56:40 -0700 Subject: [PATCH] Update test-sirconn.R to cover new queuing_off warning --- inst/tinytest/test-sirconn.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/inst/tinytest/test-sirconn.R b/inst/tinytest/test-sirconn.R index 2e3074b..2a88274 100644 --- a/inst/tinytest/test-sirconn.R +++ b/inst/tinytest/test-sirconn.R @@ -40,7 +40,7 @@ expect_length(class(sirconn_0), 2) # Check model run with queuing ------------------------------------------------- expect_silent(verbose_off(sirconn_0)) -expect_warning(queuing_on(sirconn_0)) +expect_warning(queuing_on(sirconn_0), "SIR Connected models do not have queue.") expect_warning(expect_error(plot(sirconn_0))) # Plot fails before model is run expect_silent(run(sirconn_0, ndays = 100, seed = 131)) expect_silent(plot(sirconn_0)) # Plot succeeds after model is run @@ -51,7 +51,7 @@ tmat_queuing <- get_transition_probability(sirconn_0) test_tmat(tmat_queuing) # Check model run without queuing ---------------------------------------------- -expect_silent(queuing_off(sirconn_0)) +expect_warning(queuing_off(sirconn_0), "SIR Connected models do not have queue.") run(sirconn_0, ndays = 100, seed = 131) hist_noqueuing <- get_hist_total(sirconn_0)