From 4527371d1b22ba296db6c8817efd7076e9c78750 Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Thu, 20 Mar 2025 12:44:33 -0500 Subject: [PATCH] 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)