fix a test that relied on the current input port as not-ready

2014-07-16 11:37:34 +01:00 · 2014-07-16 11:37:34 +01:00 · 83a203c461
commit 83a203c461
parent 68c43a3db9
1 changed files with 2 additions and 1 deletions
--- a/pkgs/racket-pkgs/racket-test/tests/racket/sync.rktl
+++ b/pkgs/racket-pkgs/racket-test/tests/racket/sync.rktl
@ -607,11 +607,12 @@
  ;; never get an answe back from this depth:
  (define overflow-depth 40000)

+  (read-byte i)
  (set! nacks null)
  (define t
    (thread (lambda ()
              (with-handlers ([exn:break? void])
-                (sync (deep #t (current-input-port) overflow-depth))))))
+                (sync (deep #t i overflow-depth))))))
  (sync (system-idle-evt))

  (test #f sync/timeout 0 t)