From 29d71e719b2629b11668e714c31ea5cd9471dd32 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 25 Feb 2019 12:33:43 -0700 Subject: [PATCH] update a file test to work on Windows --- pkgs/racket-test-core/tests/racket/file.rktl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-test-core/tests/racket/file.rktl b/pkgs/racket-test-core/tests/racket/file.rktl index 7009188a66..aa43f1bbcf 100644 --- a/pkgs/racket-test-core/tests/racket/file.rktl +++ b/pkgs/racket-test-core/tests/racket/file.rktl @@ -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)])