Former tests may fail (fail to produce error) if run with elevated pe…

…rmissions.
bpvgoncalves · Oct 18, 2023 · 6fad10a · 6fad10a
1 parent 3e123b8
commit 6fad10a
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 9 deletions.
diff --git a/tests/testthat/test-envelope_write.R b/tests/testthat/test-envelope_write.R
@@ -18,11 +18,11 @@ test_that("Envelope writing works", {
                "'envelope' parameter does not have the expected class")
 
   if (Sys.info()[1] == "Linux") {
-    dest <- "/home/file.env"    # Shouldn't be able to write into root's home dir
+    dest <- "/fake_path/file.env"
   } else if ((Sys.info()[1] == "Windows")) {
-    dest <- "c:/Windows/system32/file.env"    # Shouldn't be able to write into system dir
+    dest <- "z:/fake_path/file.env"
   } else {
     skip("Unknown OS")
   }
-  expect_error(write_envelope(env, dest), "Permission denied")
+  expect_error(write_envelope(env, dest), "cannot open file")
 })
diff --git a/tests/testthat/test-signature_write.R b/tests/testthat/test-signature_write.R
@@ -18,13 +18,13 @@ test_that("Signature Writing works: Dilithium", {
                "'signature' parameter does not have the expected class")
 
   if (Sys.info()[1] == "Linux") {
-    dest <- "/home/file.sig"    # Shouldn't be able to write into root's home dir
+    dest <- "/fake_path/file.env"
   } else if ((Sys.info()[1] == "Windows")) {
-    dest <- "c:/Windows/system32/file.sig"    # Shouldn't be able to write into system dir
+    dest <- "z:/fake_path/file.env"
   } else {
     skip("Unknown OS")
   }
-  expect_error(write_signature(signature, dest), "Permission denied")
+  expect_error(write_signature(signature, dest), "cannot open file")
 })
 
 
@@ -48,11 +48,11 @@ test_that("Signature Writing works: Sphincs+", {
                "'signature' parameter does not have the expected class")
 
   if (Sys.info()[1] == "Linux") {
-    dest <- "/home/file.sig"    # Shouldn't be able to write into root's home dir
+    dest <- "/fake_path/file.env"
   } else if ((Sys.info()[1] == "Windows")) {
-    dest <- "c:/Windows/system32/file.sig"    # Shouldn't be able to write into system dir
+    dest <- "z:/fake_path/file.env"
   } else {
     skip("Unknown OS")
   }
-  expect_error(write_signature(signature, dest), "Permission denied")
+  expect_error(write_signature(signature, dest), "cannot open file")
 })