From 1ba0938b5a39f9d376b54fe3469b40aafea9e8e3 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Tue, 1 Mar 2022 16:59:30 +0100
Subject: Avoid using cat() for default output, tests

---
 tests/testthat/test_mkinfit.R | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'tests/testthat/test_mkinfit.R')

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)
+})
-- 
cgit v1.2.1