diff options
Diffstat (limited to 'tests/testthat')
| -rw-r--r-- | tests/testthat/test_nafta.R | 4 | ||||
| -rw-r--r-- | tests/testthat/test_plot.R | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tests/testthat/test_nafta.R b/tests/testthat/test_nafta.R index 62c88983..80b6adba 100644 --- a/tests/testthat/test_nafta.R +++ b/tests/testthat/test_nafta.R @@ -22,7 +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.1.0") + skip_if(getRversion() >= "4.1.0") vdiffr::expect_doppelganger("NAFTA SOP Appendix B", plot_nafta) } }) @@ -50,7 +50,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.1.0") + skip_if(getRversion() >= "4.1.0") vdiffr::expect_doppelganger("Plot NAFTA analysis", plot_nafta) } }) diff --git a/tests/testthat/test_plot.R b/tests/testthat/test_plot.R index 72f1020c..75fc863f 100644 --- a/tests/testthat/test_plot.R +++ b/tests/testthat/test_plot.R @@ -26,7 +26,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.1.0") + skip_if(getRversion() >= "4.1.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) |