Adjust snapshot tests

On Windows we got `<tempdir>//<tempfile>` for some reason.

Author: gaborcsardi

tests/testthat/helper.R

@@ -84,6 +84,7 @@ fix_temp_path <- function(x) {
   x <- sub("\\R\\", "/R/", x, fixed = TRUE)
   x <- sub("[\\\\/]file[a-zA-Z0-9]+", "/<tempfile>", x)
   x <- sub("[A-Z]:.*Rtmp[a-zA-Z0-9]+[\\\\/]", "<tempdir>/", x)
+  x <- sub("//", "/", x, fixed = TRUE)
   x
 }