From 0f425f2029c208c696b1bf7fa7ccc3e2f8ac427b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 12 Oct 2017 17:45:04 -0600 Subject: [PATCH] fix "subprocess.rktl" test to run in quiet mode --- pkgs/racket-test-core/tests/racket/subprocess.rktl | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/subprocess.rktl b/pkgs/racket-test-core/tests/racket/subprocess.rktl index a1e0356415..9e48507701 100644 --- a/pkgs/racket-test-core/tests/racket/subprocess.rktl +++ b/pkgs/racket-test-core/tests/racket/subprocess.rktl @@ -454,8 +454,8 @@ (try #f)) (define (try-add-to-group kill-second?) - (define-values (p1 o1 i1 e1) (subprocess (current-output-port) (current-input-port) (current-error-port) 'new "/bin/cat")) - (define-values (p2 o2 i2 e2) (subprocess (current-output-port) (current-input-port) (current-error-port) p1 "/bin/cat")) + (define-values (p1 o1 i1 e1) (subprocess #f #f #f 'new "/bin/cat")) + (define-values (p2 o2 i2 e2) (subprocess #f #f #f p1 "/bin/cat")) (test 'running subprocess-status p1) (test 'running subprocess-status p2) @@ -469,7 +469,14 @@ (test p1 sync p1) (test p2 sync p2) - (test (subprocess-status p1) subprocess-status p2)) + (test (subprocess-status p1) subprocess-status p2) + + (close-input-port o1) + (close-input-port o2) + (close-input-port e1) + (close-input-port e2) + (close-output-port i1) + (close-output-port i2)) (try-add-to-group #f) (try-add-to-group #t))