rlb pushed a commit to branch main
in repository guile.
commit 4527371d1b22ba296db6c8817efd7076e9c78750
Author: Rob Browning <r...@defaultvalue.org>
AuthorDate: Thu Mar 20 12:44:33 2025 -0500
filesys.test: skip copy-file EACCES test when root
Accidentally omitted from b3b74771281dd3d59b2d082d5fee91b1b99b966b.
* test-suite/tests/filesys.test: skip copy-file EACCES test when root.
---
test-suite/tests/filesys.test | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/test-suite/tests/filesys.test b/test-suite/tests/filesys.test
index 4d15de0dd..5ff738886 100644
--- a/test-suite/tests/filesys.test
+++ b/test-suite/tests/filesys.test
@@ -62,13 +62,14 @@
(copy-file src dest)
(pass-if-equal "copy-file dest content" msg
(call-with-input-file dest get-string-all)))
- (with-test-prefix "read only dest"
- (chmod dest #o444)
- (with-exception-handler
- (λ (ex)
- (pass-if-equal "errno is EACCES" EACCES (exception-errno ex)))
- (λ () (copy-file src dest))
- #:unwind? #t)))))
+ (unless (zero? (geteuid))
+ (with-test-prefix "read only dest"
+ (chmod dest #o444)
+ (with-exception-handler
+ (λ (ex)
+ (pass-if-equal "errno is EACCES" EACCES (exception-errno ex)))
+ (λ () (copy-file src dest))
+ #:unwind? #t))))))
;; return next prospective file descriptor number
(define (next-fd)
