diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-06-15 10:27:19 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-06-15 10:27:19 +0200 |
| commit | 8363b1c179c4e83d97c3c0c4cfa365f92c7832af (patch) | |
| tree | e745ed501c421345483574e940ef67d3c9656dd6 /tests/testthat | |
| parent | 8100cd494b0e1869fc03af6c664a5a2cdbb36002 (diff) | |
Test plots on r-devel only
following the arguments of Xavier Robin https://github.com/r-lib/vdiffr/issues/86#issuecomment-636447231
Diffstat (limited to 'tests/testthat')
| -rw-r--r-- | tests/testthat/test_nafta.R | 2 | ||||
| -rw-r--r-- | tests/testthat/test_plot.R | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/tests/testthat/test_nafta.R b/tests/testthat/test_nafta.R index dad6d84c..62c88983 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.1.0") vdiffr::expect_doppelganger("NAFTA SOP Appendix B", plot_nafta) } }) @@ -49,6 +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") vdiffr::expect_doppelganger("Plot NAFTA analysis", plot_nafta) } }) diff --git a/tests/testthat/test_plot.R b/tests/testthat/test_plot.R index c6a187be..40d5928f 100644 --- a/tests/testthat/test_plot.R +++ b/tests/testthat/test_plot.R @@ -21,6 +21,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") 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) |