Add workaround for old R snapshot failure

tidyverse · Oct 23, 2024 · bdd5a9f · bdd5a9f
1 parent 414ae42
commit bdd5a9f
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/tests/testthat/test-gather.R b/tests/testthat/test-gather.R
@@ -137,7 +137,10 @@ test_that("gather throws error for weird objects", {
   expect_snapshot(error = TRUE, cnd_class = TRUE, {
     gather(d, key, val, -x)
     gather(df, key, val, -y)
-  })
+    },
+    # Failing for old versions of R. (<4.3)
+    transform = function(x) gsub(" in `gather()`", "", x)
+  )
 
   e <- new.env(parent = emptyenv())
   e$x <- 1