Fix a test snapshot

Author: gaborcsardi

tests/testthat/_snaps/install-tar.md

@@ -0,0 +1,8 @@
+# get_untar_decompress_arg
+
+    Code
+      get_untar_decompress_arg(zip)
+    Condition
+      Error:
+      ! '<path>/xxx.zip' is not a tar file, it looks like a zip file
+

tests/testthat/test-install-tar.R

@@ -52,7 +52,13 @@ test_that("get_untar_decompress_arg", {
   })
 
   zip <- system.file(package = "pkgdepends", "tools", "xxx.zip")
-  expect_snapshot(error = TRUE, get_untar_decompress_arg(zip))
+  expect_snapshot(
+    error = TRUE,
+    get_untar_decompress_arg(zip),
+    transform = function(x) {
+      sub("'.*xxx[.]zip'", "'<path>/xxx.zip'", x)
+    }
+  )
 })
 
 test_that("eup_get_args", {