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

fix race in subprocess test

Browse Source
This commit is contained in:
Matthew Flatt 2011-02-19 08:51:10 -07:00
parent 010e6fc2a4
commit c8acebce8b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/racket/subprocess.rktl
View File

@ -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)])