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

skip tests with path issues on Windows
Enchufa2 · Mar 24, 2023 · 62d0fe2 · 62d0fe2
2 parents 66d3b06 + 1dfa241
commit 62d0fe2
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+2023-03-24  Iñaki Ucar  <iucar@fedoraproject.org>
+
+	* inst/tinytest/test_xptr.R: Skip some tests on Windows
+
 2023-03-19  Dirk Eddelbuettel  <edd@debian.org>
 
 	* DESCRIPTION (Version, Date): Roll minor version

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)