Skip more tests of external tar on Windows.

git-svn-id: https://svn.r-project.org/R/trunk@87618 00db46b3-68df-0310-9c12-caf00c1e9a41

src/library/utils/tests/tar.R

@@ -18,7 +18,12 @@ for(f in  c("none", "gzip", "bzip2", "xz", "zstd"))
     untar(zz, tar = "internal")
 }
 
-## Now try external untar
+## Now try external untar : skip on Windows due to different handling of paths
+if(.Platform$OS.type == "windows") {
+    unlink("utils", recursive = TRUE)
+    quit("no")
+}
+
 for(f in  c("none", "gzip", "bzip2", "xz", "zstd"))
 {
     z <- if (f=="none") "utils.tar" else paste0("utils.tar.", f)
@@ -29,11 +34,7 @@ for(f in  c("none", "gzip", "bzip2", "xz", "zstd"))
     print(head(dir("utils"), 5))
 }
 
-## and external tar : skip on Windows due to different handling of paths
-if(.Platform$OS.type == "windows") {
-    unlink("utils", recursive = TRUE)
-    quit("no")
-}
+## and external tar
 TAR <- Sys.getenv("TAR", "tar")
 for(f in  c("none", "gzip", "bzip2", "xz", "zstd"))
 {