From 462a4f5c3758388284a06f0390477360c6ced52a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 24 May 2020 07:38:56 -0600 Subject: [PATCH] adjust test to avoid port leaks --- pkgs/racket-test-core/tests/racket/subprocess.rktl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/subprocess.rktl b/pkgs/racket-test-core/tests/racket/subprocess.rktl index 09d93148cd..e0c5765a1c 100644 --- a/pkgs/racket-test-core/tests/racket/subprocess.rktl +++ b/pkgs/racket-test-core/tests/racket/subprocess.rktl @@ -258,7 +258,7 @@ (test 'done-error (list-ref p 4) 'status) (let ([p (open-input-string (get-output-string f2))]) - (test (expt 10 50000) read p) + (test #t '1e50001 (equal? (expt 10 50000) (read p))) (test "" read-line p) (let ([p (if (eq? f3 'stdout) p @@ -471,7 +471,10 @@ (test post-shutdown? running? sub-pid) (when post-shutdown? (parameterize ([current-input-port (open-input-string "")]) - (system (format "kill ~a" sub-pid)))))))]) + (system (format "kill ~a" sub-pid)))) + (close-input-port (car l)) + (close-output-port (cadr l)) + (close-input-port (cadddr l)))))]) (try #t) (try #f))