From 0ef092e9487b4da63b33352a81a2bab3ecb0955e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 29 Apr 2021 06:40:06 -0600 Subject: [PATCH] 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. --- pkgs/racket-test-core/tests/racket/file.rktl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/file.rktl b/pkgs/racket-test-core/tests/racket/file.rktl index f84fe4d0b6..59284ef8f8 100644 --- a/pkgs/racket-test-core/tests/racket/file.rktl +++ b/pkgs/racket-test-core/tests/racket/file.rktl @@ -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)