Fix snapshot tests across platforms

Author: gaborcsardi

tests/testthat/_snaps/path.md

@@ -4,12 +4,12 @@
       path(paste(rep("a", 1e+05), collapse = ""))
     Condition
       Error in `path_tidy()`:
-      ! Total path length must be less than PATH_MAX: 1024
+      ! Total path length must be less than PATH_MAX: <path-max>
     Code
       do.call(path, as.list(rep("a", 1e+05)))
     Condition
       Error in `path_tidy()`:
-      ! Total path length must be less than PATH_MAX: 1024
+      ! Total path length must be less than PATH_MAX: <path-max>
 
 # path_rel: works for POSIX paths
 

tests/testthat/helper.R

@@ -37,3 +37,7 @@ named_fs_path <- function(x) {
 transform_error <- function(x) {
   sub("Error in `.*[(][)]`:", "Error:", x)
 }
+
+transform_path_max <- function(x) {
+  sub("PATH_MAX: [0-9]+", "PATH_MAX: <path-max>", x)
+}

tests/testthat/test-path.R

@@ -52,7 +52,7 @@ describe("path", {
     expect_snapshot(error = TRUE, {
       path(paste(rep("a", 100000), collapse = ""))
       do.call(path, as.list(rep("a", 100000)))
-    })
+    }, transform = transform_path_max)
   })
 
   it("follows recycling rules", {