suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pkg test harness: fix race condition in I/O handling

Browse Source
This commit is contained in:
Matthew Flatt 2014-07-16 13:31:52 +01:00
parent bada20a57f
commit 66131b3898
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/racket-pkgs/racket-test/tests/pkg/shelly.rkt
View File

@ -86,11 +86,11 @@
(loop))))))) (loop)))))))
(to-proc 'wait) (to-proc 'wait)
(define cmd-status (to-proc 'exit-code)) (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)) (when stdin (close-output-port stdin))
(thread-wait stdout-t) (thread-wait stdout-t)
(thread-wait stderr-t) (thread-wait stderr-t)
(when stdout (close-input-port stdout))
(when stderr (close-input-port stderr))
(define actual-output (define actual-output
(get-output-string output-port)) (get-output-string output-port))
(define actual-error (define actual-error