skipping file permission-related tests in windows

ipeaGIT · Apr 4, 2024 · 16d8a70 · 16d8a70
1 parent b7aaa2f
commit 16d8a70
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/r-package/tests/testthat/test-setup_r5.R b/r-package/tests/testthat/test-setup_r5.R
@@ -65,6 +65,10 @@ test_that("'overwrite' parameter works correctly", {
 })
 
 test_that("throws error if write access to given dir is denied", {
+  # this test only works correctly with unix OSes. not sure how to change
+  # permissions from inside R in windows
+  skip_if_not(.Platform$OS.type == "unix")
+
   invisible(file.copy(path, tempdir(), recursive = TRUE))
 
   tmpdir <- file.path(tempdir(), "poa")