Skip tests on old R versions

Author: lionel-

R/testthat-ui.R

@@ -136,7 +136,7 @@ expect_doppelganger <- function(title,
   testcase <- make_testcase_file(fig_name)
   writer(fig, testcase, title)
 
-  if (getRversion() < "4.1.0") {
+  if (is_engine_stale()) {
     testthat::skip(paste_line(
       "The R graphics engine is too old.",
       "Please update to R 4.1.0 and regenerate the vdiffr snapshots."
@@ -173,6 +173,10 @@ is_collecting <- function() {
   !inherits(testthat::get_reporter(), "StopReporter")
 }
 
+is_engine_stale <- function() {
+  nzchar(Sys.getenv("_VDIFFR_CHECK_STALE")) && getRversion() < "4.1.0"
+}
+
 str_standardise <- function(s, sep = "-") {
   stopifnot(is_scalar_character(s))
   s <- gsub("[^a-z0-9]", sep, tolower(s))

tests/testthat/helper-mock.R

@@ -1,3 +1,6 @@
+vdiffr_skip_stale <- function() {
+  skip_if_not_installed("base", "4.1.0")
+}
 
 create_mock_pkg <- function(pkg = "mock-pkg") {
   dir <- tempfile()

tests/testthat/test-cases.R

@@ -1,5 +1,4 @@
-
-context("Cases")
+vdiffr_skip_stale()
 
 test_that("Attributes are preserved", {
   cases <- vdiffr:::cases(list(), "pkg_path", "deps")

tests/testthat/test-compare.R

@@ -1,5 +1,4 @@
-
-context("File comparison")
+vdiffr_skip_stale()
 
 write_tempfile <- function(lines) {
   path <- tempfile()

tests/testthat/test-error.R

@@ -1,5 +1,4 @@
-
-context("Thrown error")
+vdiffr_skip_stale()
 
 collect_silently <- function(pkg) {
   capture.output(suppressMessages(collect_cases(pkg)))

tests/testthat/test-expectations.R

@@ -1,5 +1,4 @@
-
-context("Expectations")
+vdiffr_skip_stale()
 
 test_that("Mismatches are skipped except on CI and interactively", {
   notcran_result <- subset_results(test_results, "test-failed.R", "mismatches are hard failures when NOT_CRAN is set")[[1]]

tests/testthat/test-filter.R

@@ -1,4 +1,4 @@
-context("Filtering")
+vdiffr_skip_stale()
 
 test_that("Can filter to test certain cases", {
   mock_pkg_dir <- create_mock_pkg("mock-pkg")

tests/testthat/test-ggplot.R

@@ -1,5 +1,4 @@
-
-context("ggplot")
+vdiffr_skip_stale()
 
 test_that("ggtitle is set correctly", {
   ggplot_results <- subset_results(test_results, "test-ggplot.R", "ggtitle is set correctly")

tests/testthat/test-mismatch.R

@@ -1,4 +1,4 @@
-context("mismatch")
+vdiffr_skip_stale()
 
 test_that("failures are pushed to log file", {
   log_path <- file.path(mock_pkg_dir, "tests", "vdiffr.Rout.fail")

tests/testthat/test-new.R

@@ -1,5 +1,4 @@
-
-context("New cases")
+vdiffr_skip_stale()
 
 test_that("New cases are skipped", {
   new_results <- subset_results(test_results, "test-new.R", "New plots are collected")