improve parallel testing

svn: r5548

original commit: 126ff2a91a96805871bde17e8363cf352625a0ca
This commit is contained in:
Matthew Flatt 2007-02-03 22:15:36 +00:00
parent dbc90df6ae
commit 1e62e8d67e

View File

@ -97,3 +97,5 @@
(test #f coroutine-result w4)
(err/rt-test (coroutine-run MAX-RUN-TIME w4) (lambda (x) (eq? x 15)))
(test #t coroutine-run 100 w4)
(report-errs)