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

another repair to `subprocess' test

Browse Source 
Merge to v5.3
This commit is contained in:
Matthew Flatt 2012-07-26 10:53:56 -06:00
parent 87d24ece78
commit 100212cd53
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

@ -392,9 +392,11 @@
(let ([c (make-custodian)]) (let ([c (make-custodian)])
(let ([l (parameterize ([current-custodian c]) (let ([l (parameterize ([current-custodian c])
(process* self (process* self
"-e" "0"
"-e" "-e"
"(let loop () (loop))"))]) "(let loop () (loop))"))])
(test 'running (list-ref l 4) 'status) (test 'running (list-ref l 4) 'status)
(read-line (car l)) ; wait until running
(custodian-shutdown-all c) (custodian-shutdown-all c)
(sleep 0.1) (sleep 0.1)
(when (and wait? (when (and wait?