diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/testthat/test_nafta.R | 2 | ||||
| -rw-r--r-- | tests/testthat/test_plots_summary_twa.R | 1 |
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) |