From ab982c5399af0d095da2899c1b8772e4b209c61b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?I=C3=B1aki=20=C3=9Acar?= Date: Fri, 24 Mar 2023 18:25:18 +0100 Subject: [PATCH 1/2] skip tests with path issues on Windows --- inst/tinytest/test_xptr.R | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/inst/tinytest/test_xptr.R b/inst/tinytest/test_xptr.R index 5b61b37a1..4a3d64b9a 100644 --- 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) From 1dfa2411e8841d55edcce90654d4c7f876f6d5c6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?I=C3=B1aki=20=C3=9Acar?= Date: Fri, 24 Mar 2023 18:44:39 +0100 Subject: [PATCH 2/2] update ChangeLog --- ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/ChangeLog b/ChangeLog index c5828118d..e6e9b092e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2023-03-24 Iñaki Ucar + + * inst/tinytest/test_xptr.R: Skip some tests on Windows + 2023-03-19 Dirk Eddelbuettel * DESCRIPTION (Version, Date): Roll minor version