From c8acebce8b5e9905b7fae3b50b7f5551e2a2b2f7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 19 Feb 2011 08:51:10 -0700 Subject: [PATCH] fix race in subprocess test --- collects/tests/racket/subprocess.rktl | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/tests/racket/subprocess.rktl b/collects/tests/racket/subprocess.rktl index e13a961b36..a8d7291ce5 100644 --- a/collects/tests/racket/subprocess.rktl +++ b/collects/tests/racket/subprocess.rktl @@ -298,6 +298,7 @@ (test "Hi" read-line (car p) 'any) (close-input-port (car p)) (close-input-port (cadddr p)) + ((list-ref p 4) 'wait) (test 'done-ok (list-ref p 4) 'status)))]) (go path->string) (go path->bytes)) @@ -306,6 +307,7 @@ (test "Hi" read-line (car p) 'any) (close-input-port (car p)) (test #f cadddr p) + ((list-ref p 4) 'wait) (test 'done-ok (list-ref p 4) 'status)) (let ([out (open-output-string)])