fix open-output-file #:permissions` test

Fix the permissions integer. Also, for the benefit of tests running in
a container, use `file-or-directory-permissions` instead of another
`open-output-file` to check permissions.
This commit is contained in:
Matthew Flatt 2021-04-29 06:40:06 -06:00
parent cfa10d5f30
commit 0ef092e948

View File

@ -2447,8 +2447,8 @@
(define file (build-path dir "f"))
(define (check open)
(open file #x444)
(err/rt-test/once (open file #x666) exn:fail:filesystem?)
(open file #o444)
(test #f memq 'write (file-or-directory-permissions file))
(delete-file file))
(check (lambda (file perms)