skip tests with path issues on Windows

Enchufa2 · Mar 24, 2023 · ab982c5 · ab982c5
1 parent 66d3b06
commit ab982c5
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/inst/tinytest/test_xptr.R b/inst/tinytest/test_xptr.R
@@ -19,6 +19,9 @@
 
 if (Sys.getenv("RunAllRcppTests") != "yes") exit_file("Set 'RunAllRcppTests' to 'yes' to run.")
 
+## used below
+.onWindows <- .Platform$OS.type == "windows"
+
 Rcpp::sourceCpp("cpp/XPtr.cpp")
 
 #    test.XPtr <- function(){
@@ -37,6 +40,8 @@ expect_true(xptr_access_released(xp), info = "check access of released external
 
 expect_error(xptr_use_released(xp), info = "check exception on use of released external pointer")
 
+if (.onWindows) exit_file("Skipping remainder of file on Windows")
+
 # test finalizeOnExit default depending on RCPP_USE_FINALIZE_ON_EXIT
 file_path <- tempfile(fileext=".cpp")
 on.exit(unlink(file_path), add=TRUE)