fix a non-deterministic test

2013-04-07 09:37:18 -06:00 · 2013-04-07 09:37:18 -06:00 · bc5c89cbf0
commit bc5c89cbf0
parent 495e5c94cf
1 changed files with 3 additions and 1 deletions
--- a/collects/tests/racket/portlib.rktl
+++ b/collects/tests/racket/portlib.rktl
@ -1021,9 +1021,11 @@
       (set! res (sync (read-bytes-evt 2 i))))))
  
  (write-bytes #"1" o)
-  (sleep 0.1)
+  (sync (system-idle-evt))
+  (thread-suspend t)
  (write-bytes #"2" o)
  (test #"1" read-bytes 1 i)
+  (thread-resume t)
  (sleep)
  (write-bytes #"34" o)