From 66131b3898717a3d90d706ea5847c8871f99ce5e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 16 Jul 2014 13:31:52 +0100 Subject: [PATCH] pkg test harness: fix race condition in I/O handling --- pkgs/racket-pkgs/racket-test/tests/pkg/shelly.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-pkgs/racket-test/tests/pkg/shelly.rkt b/pkgs/racket-pkgs/racket-test/tests/pkg/shelly.rkt index 022201fc56..ba1c56f5de 100644 --- a/pkgs/racket-pkgs/racket-test/tests/pkg/shelly.rkt +++ b/pkgs/racket-pkgs/racket-test/tests/pkg/shelly.rkt @@ -86,11 +86,11 @@ (loop))))))) (to-proc 'wait) (define cmd-status (to-proc 'exit-code)) - (when stdout (close-input-port stdout)) - (when stderr (close-input-port stderr)) (when stdin (close-output-port stdin)) (thread-wait stdout-t) (thread-wait stderr-t) + (when stdout (close-input-port stdout)) + (when stderr (close-input-port stderr)) (define actual-output (get-output-string output-port)) (define actual-error