aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_plots_summary_twa.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2019-02-25 17:05:59 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2019-02-25 17:05:59 +0100
commit241f0b977092e4fe106a23ef70506bf37c1a3609 (patch)
treee7a7dfcbfbb5c9d94f1d69c6aca0f08b44627f11 /tests/testthat/test_plots_summary_twa.R
parentaeb6ff55560fa1c704312576be82e3e7ab4ab364 (diff)
Fix tests and add plot and print for nafta
Diffstat (limited to 'tests/testthat/test_plots_summary_twa.R')
-rw-r--r--tests/testthat/test_plots_summary_twa.R4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/testthat/test_plots_summary_twa.R b/tests/testthat/test_plots_summary_twa.R
index 83a6a040..d5f4f199 100644
--- a/tests/testthat/test_plots_summary_twa.R
+++ b/tests/testthat/test_plots_summary_twa.R
@@ -53,11 +53,13 @@ context("Summary")
test_that("The summary is reproducible", {
skip_on_cran()
fit <- fits[["DFOP", "FOCUS_C"]]
- undebug(summary.mkinfit)
+ test_summary <- summary(fit)
test_summary$fit_version <- "Dummy 0.0 for testing"
test_summary$fit_Rversion <- "Dummy R version for testing"
test_summary$date.fit <- "Dummy date for testing"
test_summary$date.summary <- "Dummy date for testing"
+ test_summary$calls <- "test 0"
+ test_summary$time <- c(elapsed = "test time 0")
expect_known_output(print(test_summary), "summary_DFOP_FOCUS_C.txt")
})

Contact - Imprint