aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/testthat/test_nafta.R2
-rw-r--r--tests/testthat/test_plots_summary_twa.R1
2 files changed, 3 insertions, 0 deletions
diff --git a/tests/testthat/test_nafta.R b/tests/testthat/test_nafta.R
index a0acd152..2cc25f82 100644
--- a/tests/testthat/test_nafta.R
+++ b/tests/testthat/test_nafta.R
@@ -22,6 +22,7 @@ test_that("Test data from Appendix B are correctly evaluated", {
plot_nafta <- function() plot(res)
if(requireNamespace("vdiffr", quietly = TRUE)) {
+ skip_if(getRversion() > 4.0)
vdiffr::expect_doppelganger("NAFTA SOP Appendix B", plot_nafta)
}
})
@@ -46,6 +47,7 @@ test_that("Test data from Appendix D are correctly evaluated", {
plot_nafta <- function() plot(res)
if(requireNamespace("vdiffr", quietly = TRUE)) {
+ skip_if(getRversion() > 4.0)
vdiffr::expect_doppelganger("Plot NAFTA analysis", plot_nafta)
}
})
diff --git a/tests/testthat/test_plots_summary_twa.R b/tests/testthat/test_plots_summary_twa.R
index bc3d29a8..aedc9da3 100644
--- a/tests/testthat/test_plots_summary_twa.R
+++ b/tests/testthat/test_plots_summary_twa.R
@@ -95,6 +95,7 @@ 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)
+ skip_if(getRversion() > 4.0)
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("plot_res for FOCUS C", plot_res_FOCUS_C_SFO_2)

Contact - Imprint