Merge pull request #1258 from RcppCore/fix/xptr-paths-windows

skip tests with path issues on Windows

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,7 @@
+2023-03-24  Iñaki Ucar  <[email protected]>
+
+	* inst/tinytest/test_xptr.R: Skip some tests on Windows
+
 2023-03-19  Dirk Eddelbuettel  <[email protected]>
 
 	* DESCRIPTION (Version, Date): Roll minor version

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)