more time, for slower machines

svn: r14207
This commit is contained in:
Eli Barzilay 2009-03-22 01:30:13 +00:00
parent 2af626972d
commit 1048d204ca

View File

@ -134,7 +134,7 @@
(call-with-output-file (car m) #:exists 'truncate
(lambda (o) (display (cdr m) o))))
(set! thd (thread run))
(t (with-limits 1 #f
(t (with-limits 2 #f
(if len-to-read (read-string len-to-read i) (port->string i)))
=> expected)
(t (begin (kill-thread thd) (cond [exn => raise] [else #t])))))