Don't run compare_figs() on CRAN

Author: lionel-

R/testthat-ui.R

@@ -169,6 +169,12 @@ str_standardise <- function(s, sep = "-") {
 }
 
 case_compare <- function(case) {
+  # Skipping early to avoid running `compare_files()` on machines
+  # performing sanitizer checks
+  if (!is_ci()) {
+    return(new_expectation("Skipping on CRAN", case, "skip", "vdiffr_skip"))
+  }
+
   equal <- compare_files(case$testcase, normalizePath(case$path))
 
   if (equal) {

tests/mock.Rout.fail

@@ -1,6 +1,6 @@
 Environment:
 - vdiffr-svg-engine: 0.9000
-- vdiffr: 0.2.3.9001
+- vdiffr: 0.3.0
 - freetypeharfbuzz: 0.2.5
 
 
@@ -63,23 +63,3 @@ Failed doppelganger: myplot (../figs//myplot.svg)
   Mi41Mg==)' />                                                             
   <defs>                                                                    
 
-
-Failed doppelganger: myplot (../figs//myplot.svg)
-
-< before                                                                    
-> after                                                                     
-@@ 50,4 / 50,5 @@                                                           
-  <rect x='641.72' y='401.98' width='20.80' height='118.58' style='stroke-wi
-  dth: 1.07; stroke: none; stroke-linecap: butt; fill: #595959;' clip-path='
-  url(#cpMjguMDl8NzE0LjUyfDU0NC4yN3wyMi41Mg==)' />                          
-  <rect x='662.52' y='401.98' width='20.80' height='118.58' style='stroke-wi
-  dth: 1.07; stroke: none; stroke-linecap: butt; fill: #595959;' clip-path='
-  url(#cpMjguMDl8NzE0LjUyfDU0NC4yN3wyMi41Mg==)' />                          
-> <line x1='417.09' y1='544.27' x2='417.09' y2='22.52' style='stroke-width: 
-: 1.07; stroke-linecap: butt;' clip-path='url(#cpMjguMDl8NzE0LjUyfDU0NC4yN3w
-: yMi41Mg==)' />                                                            
-  <rect x='28.09' y='22.52' width='686.43' height='521.75' style='stroke-wid
-  th: 1.07; stroke: #333333;' clip-path='url(#cpMjguMDl8NzE0LjUyfDU0NC4yN3wy
-  Mi41Mg==)' />                                                             
-  <defs>                                                                    
-

tests/testthat/test-expectations.R

@@ -11,7 +11,7 @@ test_that("Mismatches are skipped except on CI and interactively", {
   expect_is(failed_result, "expectation_failure")
 
   skipped_result <- subset_results(test_results, "test-failed.R", "mismatches are skipped when NOT_CRAN is unset")[[1]]
-  expect_match(skipped_result$message, "Figures don't match: myplot.svg\n")
+  expect_match(skipped_result$message, "Skipping on CRAN")
   expect_is(skipped_result, "expectation_skip")
 })
 
@@ -27,6 +27,7 @@ test_that("Doppelgangers pass", {
 })
 
 test_that("skip mismatches if vdiffr is stale", {
+  withr::local_envvar(c(NOT_CRAN = "true"))
   mock_dir <- create_mock_pkg("mock-pkg-skip-stale")
 
   mock_test_dir <- file.path(mock_dir, "tests", "testthat")