aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_summary.R
diff options
context:
space:
mode:
Diffstat (limited to 'tests/testthat/test_summary.R')
-rw-r--r--tests/testthat/test_summary.R6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/testthat/test_summary.R b/tests/testthat/test_summary.R
index 5cf6ac6b..87dc7de2 100644
--- a/tests/testthat/test_summary.R
+++ b/tests/testthat/test_summary.R
@@ -46,6 +46,12 @@ test_that("Summaries are reproducible", {
expect_known_output(print(test_summary_3), "summary_DFOP_FOCUS_D_deSolve.txt")
})
+test_that("Summaries of mmkin objects are reproducible", {
+ 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")
+})
+
test_that("A fit generated with mkin 0.9.48.1 can be summarised", {
# Generated with mkin 0.9.48.1
# SFO_SFO <- mkinmod(parent = list(type = "SFO", to = "m1"),

Contact - Imprint