From 9bd71dec939396e9ba21e9e82c68eb6e580c839f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 29 Apr 2021 08:16:49 -0600 Subject: [PATCH] fix `open-output-file` #:permissions` test again When tests are run as root, checking for write permission through the summary from `file-or-directory-permissions` still doesn't work. --- pkgs/racket-test-core/tests/racket/file.rktl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-test-core/tests/racket/file.rktl b/pkgs/racket-test-core/tests/racket/file.rktl index 59284ef8f8..0fa725296e 100644 --- a/pkgs/racket-test-core/tests/racket/file.rktl +++ b/pkgs/racket-test-core/tests/racket/file.rktl @@ -2448,7 +2448,10 @@ (define (check open) (open file #o444) - (test #f memq 'write (file-or-directory-permissions file)) + (if (eq? 'windows (system-type)) + (test #f memq 'write (file-or-directory-permissions file)) + ;; umask might drop additional bits from mode #o444 + (test 0 bitwise-and (bitwise-not #o444) (file-or-directory-permissions file 'bits))) (delete-file file)) (check (lambda (file perms)