skip test of external tar on Windows

ripley · ripley · commit 89324e5c1a29 · 2025-01-21T19:10:43.000Z
git-svn-id: https://svn.r-project.org/R/trunk@87610 00db46b3-68df-0310-9c12-caf00c1e9a41
diff --git a/src/library/utils/tests/tar.R b/src/library/utils/tests/tar.R
@@ -29,7 +29,11 @@ for(f in  c("none", "gzip", "bzip2", "xz", "zstd"))
     print(head(dir("utils"), 5))
 }
 
-## and external tar
+## and external tar : skip on Windows due to different handling of paths
+if(.Platform$OS.type == "windows") {
+    unlink("utils", recursive = TRUE)
+    quit("no")
+}
 TAR <- Sys.getenv("TAR", "tar")
 for(f in  c("none", "gzip", "bzip2", "xz", "zstd"))
 {

Original file line number	Diff line number	Diff line change
`@@ -29,7 +29,11 @@ for(f in c("none", "gzip", "bzip2", "xz", "zstd"))`
`29`	`29`	`print(head(dir("utils"), 5))`
`30`	`30`	`}`
`31`	`31`
`32`		`-## and external tar`
	`32`	`+## and external tar : skip on Windows due to different handling of paths`
	`33`	`+if(.Platform$OS.type == "windows") {`
	`34`	`+ unlink("utils", recursive = TRUE)`
	`35`	`+ quit("no")`
	`36`	`+}`
`33`	`37`	`TAR <- Sys.getenv("TAR", "tar")`
`34`	`38`	`for(f in c("none", "gzip", "bzip2", "xz", "zstd"))`
`35`	`39`	`{`