aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2019-10-22 14:49:05 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2019-10-22 14:49:05 +0200
commit9bbdcf6e3858a888eeaa2be68755fcd81791f2db (patch)
tree09fcc76cf410ce8be55e0b89c610017d9ad2d735 /tests/testthat
parent4aeef10690f4992f75f4ace0b6412a05a48b29fc (diff)
Two more plotting tests
Diffstat (limited to 'tests/testthat')
-rw-r--r--tests/testthat/test_plots_summary_twa.R4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/testthat/test_plots_summary_twa.R b/tests/testthat/test_plots_summary_twa.R
index 0f88bc30..3fe078b5 100644
--- a/tests/testthat/test_plots_summary_twa.R
+++ b/tests/testthat/test_plots_summary_twa.R
@@ -92,6 +92,8 @@ context("Plotting")
test_that("Plotting mkinfit and mmkin objects is reproducible", {
skip_on_cran()
+ plot_default_FOCUS_C_SFO <- function() plot(fits[["SFO", "FOCUS_C"]])
+ plot_res_FOCUS_C_SFO <- function() plot(fits[["SFO", "FOCUS_C"]], show_residuals = TRUE)
plot_sep_FOCUS_C_SFO <- function() plot_sep(fits[["SFO", "FOCUS_C"]])
mkinparplot_FOCUS_C_SFO <- function() mkinparplot(fits[["SFO", "FOCUS_C"]])
mkinerrplot_FOCUS_C_SFO <- function() mkinerrplot(fits[["SFO", "FOCUS_C"]])
@@ -102,6 +104,8 @@ test_that("Plotting mkinfit and mmkin objects is reproducible", {
plot_errmod_fit_obs_1 <- function() plot_err(fit_obs_1, sep_obs = FALSE)
plot_errmod_fit_tc_1 <- function() plot_err(fit_tc_1, sep_obs = FALSE)
+ vdiffr::expect_doppelganger("mkinfit plot for FOCUS C with defaults", plot_default_FOCUS_C_SFO)
+ vdiffr::expect_doppelganger("mkinfit plot for FOCUS C with residuals like in gmkin", plot_res_FOCUS_C_SFO)
vdiffr::expect_doppelganger("mkinfit plot for FOCUS C with sep = TRUE", plot_sep_FOCUS_C_SFO)
vdiffr::expect_doppelganger("mkinparplot for FOCUS C SFO", mkinparplot_FOCUS_C_SFO)
vdiffr::expect_doppelganger("mkinerrplot for FOCUS C SFO", mkinerrplot_FOCUS_C_SFO)

Contact - Imprint