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

fix I/O race in test

Browse Source
This commit is contained in:
Matthew Flatt 2012-01-09 05:47:25 -07:00
parent 6cacd57ebc
commit 3d76aa5c32
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/racket/iostream.rktl
View File

@ -123,15 +123,12 @@
(flush-output (cadr p)) (flush-output (cadr p))
(thread-wait t) (thread-wait t)
(fprintf (cadr p) "(begin ((copy-stream r w2)) (exit))\n")) (fprintf (cadr p) "(begin ((copy-stream r w2)) (exit))\n"))
(fprintf (cadr p) "(begin (flush-output) ((copy-stream (current-input-port) (current-output-port))) (exit))\n")) (fprintf (cadr p) "(begin (display \"!READY!\") (flush-output) ((copy-stream (current-input-port) (current-output-port))) (exit))"))
(flush-output (cadr p)) (flush-output (cadr p))
(unless tcp? (unless tcp?
;; Flush initial output from other process: ;; Flush initial output from other process:
(let loop () (regexp-match #rx"!READY!" (car p)))
(sleep 0.3)
(unless (zero? (read-bytes-avail!* s (car p)))
(loop))))
(if tcp? (if tcp?
(values r w r2 w2) (values r w r2 w2)