fix test to not write to stderr

original commit: 08303d9db827a037db98df57833766cd073116db
This commit is contained in:
Matthew Flatt 2012-02-14 14:27:40 -07:00
parent 6878919906
commit 669232d35a

View File

@ -109,7 +109,9 @@
;; Check that breaking an eventspace thread doesn't kill it: ;; Check that breaking an eventspace thread doesn't kill it:
(let () (let ()
(define evtsp (make-eventspace)) (define o (open-output-bytes))
(define evtsp (parameterize ([current-error-port o])
(make-eventspace)))
(define evtth (eventspace-handler-thread evtsp)) (define evtth (eventspace-handler-thread evtsp))
(sleep 0.1) (sleep 0.1)