aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/testthat/test_mhmkin.R3
-rw-r--r--tests/testthat/test_saemix_parent.R1
2 files changed, 3 insertions, 1 deletions
diff --git a/tests/testthat/test_mhmkin.R b/tests/testthat/test_mhmkin.R
index fc588473..72b81fec 100644
--- a/tests/testthat/test_mhmkin.R
+++ b/tests/testthat/test_mhmkin.R
@@ -25,6 +25,7 @@ test_that("Multiple hierarchical kinetic models can be fitted and diagnosed", {
hfit_sfo_tc <- update(hfits[["SFO", "tc"]],
covariance.model = diag(c(0, 1)))
expect_equal(illparms(hfit_sfo_tc), character(0))
+ expect_silent(print(illparms(hfit_sfo_tc)))
test_summary <- summary(hfit_sfo_tc)
test_summary$saemixversion <- "Dummy 0.0 for testing"
@@ -37,7 +38,7 @@ test_that("Multiple hierarchical kinetic models can be fitted and diagnosed", {
expect_known_output(print(test_summary, digits = 1),
"summary_hfit_sfo_tc.txt")
- # It depends on the platform exactly which of the
+ # It depends on the platform exactly which of the
# SFO datasets fail to converge with FOMC
skip_on_travis()
diff --git a/tests/testthat/test_saemix_parent.R b/tests/testthat/test_saemix_parent.R
index 39efa18f..e7574b01 100644
--- a/tests/testthat/test_saemix_parent.R
+++ b/tests/testthat/test_saemix_parent.R
@@ -12,6 +12,7 @@ test_that("Parent fits using saemix are correctly implemented", {
expect_equal(illparms(sfo_saem_1), "sd(parent_0)")
# So we have also done a fit without this variance
expect_equal(illparms(sfo_saem_1_reduced), character(0))
+ expect_silent(print(illparms(sfo_saem_1_reduced)))
# We cannot currently do the fit with completely fixed initial values
mmkin_sfo_2 <- update(mmkin_sfo_1, fixed_initials = c(parent = 100))

Contact - Imprint