From e3091a4bdce622c54492d0391e9f70327d943cda Mon Sep 17 00:00:00 2001 From: Paul Lietar Date: Thu, 25 Jul 2024 15:24:26 +0100 Subject: [PATCH] Fixes for latest individual. --- tests/testthat/test-processes.R | 4 ++-- tests/testthat/test-resume.R | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/testthat/test-processes.R b/tests/testthat/test-processes.R index 29f0d6b0..d997dcd8 100644 --- a/tests/testthat/test-processes.R +++ b/tests/testthat/test-processes.R @@ -5,12 +5,12 @@ test_that("exponential_decay_process works as expected", { v <- individual::DoubleVariable$new(c(0,0.5,1,2,4,10)) p <- create_exponential_decay_process(v, rate) - individual:::execute_any_process(p, 1) + individual:::execute_process(p, 1) v$.update() expect_equal(v$get_values(), c(0, 0.25, 0.5, 1, 2, 5)) - individual:::execute_any_process(p, 2) + individual:::execute_process(p, 2) v$.update() expect_equal(v$get_values(), c(0, 0.125, 0.25, 0.5, 1, 2.5)) diff --git a/tests/testthat/test-resume.R b/tests/testthat/test-resume.R index 1fb7ff87..954fd063 100644 --- a/tests/testthat/test-resume.R +++ b/tests/testthat/test-resume.R @@ -239,7 +239,7 @@ test_that("Correlations can be set when resuming with new interventions", { renderer$render("total_tbv_and_mda", tbv$copy()$and(mda)$size(), t) renderer$render("total_tbv_or_mda", tbv$copy()$or(mda)$size(), t) } - c(create_processes(renderer, variables, events, parameters, ...), p) + c(create_processes(renderer, variables, events, parameters, ...), p=p) } mockery::stub(run_resumable_simulation, 'create_processes', create_processes_stub)