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:
parent
cfa10d5f30
commit
0ef092e948
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user