aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_mkinfit.R
diff options
context:
space:
mode:
Diffstat (limited to 'tests/testthat/test_mkinfit.R')
-rw-r--r--tests/testthat/test_mkinfit.R10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/testthat/test_mkinfit.R b/tests/testthat/test_mkinfit.R
index fb81c3d8..11b6111a 100644
--- a/tests/testthat/test_mkinfit.R
+++ b/tests/testthat/test_mkinfit.R
@@ -8,3 +8,13 @@ test_that("Specifying initial values for state variables works correctly", {
# also affecting AIC calculations
expect_equal(logLik(f_1), logLik(f_2))
})
+
+test_that("We get messages and output from mkinfit if desired", {
+ # For progress info we use message()
+ expect_message(mkinfit("SFO", FOCUS_2006_A, quiet = FALSE))
+
+ # trace_parms uses cat()
+ out <- capture.output(
+ tmp <- mkinfit("SFO", FOCUS_2006_A, trace_parms = TRUE, quiet = TRUE))
+ expect_true(length(out) > 10)
+})

Contact - Imprint