diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-02-25 17:05:59 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-02-25 17:05:59 +0100 |
| commit | 241f0b977092e4fe106a23ef70506bf37c1a3609 (patch) | |
| tree | e7a7dfcbfbb5c9d94f1d69c6aca0f08b44627f11 /tests/testthat/test_plots_summary_twa.R | |
| parent | aeb6ff55560fa1c704312576be82e3e7ab4ab364 (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.R | 4 |
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") }) |