aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat
diff options
context:
space:
mode:
Diffstat (limited to 'tests/testthat')
-rw-r--r--tests/testthat/summary_parent_FOCUS_2006.txt20
-rw-r--r--tests/testthat/test_summary.R2
2 files changed, 11 insertions, 11 deletions
diff --git a/tests/testthat/summary_parent_FOCUS_2006.txt b/tests/testthat/summary_parent_FOCUS_2006.txt
index d31bd869..60a36b67 100644
--- a/tests/testthat/summary_parent_FOCUS_2006.txt
+++ b/tests/testthat/summary_parent_FOCUS_2006.txt
@@ -3,18 +3,18 @@ Fitted in test time 0 s
Convergence:
dataset
-model FOCUS_A FOCUS_C FOCUS_D
- SFO OK OK OK
- FOMC OK OK OK
- DFOP OK OK OK
- HS OK OK OK
+model FOCUS_C FOCUS_D
+ SFO OK OK
+ FOMC OK OK
+ DFOP OK OK
+ HS OK OK
OK: No warnings
Ill-defined parameters:
dataset
-model FOCUS_A FOCUS_C FOCUS_D
- SFO
- FOMC parent_0, alpha, beta, sigma alpha, beta
- DFOP g g
- HS k2
+model FOCUS_C FOCUS_D
+ SFO
+ FOMC alpha, beta
+ DFOP g
+ HS k2
diff --git a/tests/testthat/test_summary.R b/tests/testthat/test_summary.R
index a31d3bae..87dc7de2 100644
--- a/tests/testthat/test_summary.R
+++ b/tests/testthat/test_summary.R
@@ -47,7 +47,7 @@ test_that("Summaries are reproducible", {
})
test_that("Summaries of mmkin objects are reproducible", {
- test_summary <- summary(fits)
+ test_summary <- summary(fits[ , 2:3])
test_summary$time <- c(elapsed = "test time 0")
expect_known_output(print(test_summary), "summary_parent_FOCUS_2006.txt")
})

Contact - Imprint