diff options
Diffstat (limited to 'tests/testthat/test_mkinfit.R')
| -rw-r--r-- | tests/testthat/test_mkinfit.R | 10 |
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) +}) |