suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix open-output-file #:permissions` test again

Browse Source 
When tests are run as root, checking for write permission through the
summary from `file-or-directory-permissions` still doesn't work.
This commit is contained in:
Matthew Flatt 2021-04-29 08:16:49 -06:00
parent 0ef092e948
commit 9bd71dec93
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-test-core/tests/racket/file.rktl
View File

@ -2448,7 +2448,10 @@
(define (check open) (define (check open)
(open file #o444) (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)) (delete-file file))
(check (lambda (file perms) (check (lambda (file perms)