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

update a file test to work on Windows

Browse Source
This commit is contained in:
Matthew Flatt 2019-02-25 12:33:43 -07:00
parent aa42163b70
commit 29d71e719b
1 changed files with 3 additions and 1 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

@ -363,7 +363,9 @@
(delete-file tempfilename))
(err/rt-test (open-output-file tempfilename #:exists 'update) exn:fail:filesystem?)
(test #t output-port? (open-output-file tempfilename #:exists 'can-update))
(let ([p (open-output-file tempfilename #:exists 'can-update)])
(test #t output-port? p)
(close-output-port p))
(delete-file tempfilename)
(let ([p (open-output-file tempfilename)])