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

fix open-output-file #:permissions` test

Browse Source 
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
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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