suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

try to make this test's timing better behaved

Browse Source
This commit is contained in:
Robby Findler 2013-01-04 16:58:13 -06:00
parent cd73a8b02a
commit d53d3c3528
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/future/random-future.rkt
View File

@ -186,11 +186,13 @@ Errors/exceptions and other kinds of control?
(printf "DrDr Ignore! random-seed ~s\n" seed) (printf "DrDr Ignore! random-seed ~s\n" seed)
(random-seed seed)) (random-seed seed))
(define start-time (current-seconds))
(let loop ([n 32]) (let loop ([n 32])
(unless (zero? n) (unless (zero? n)
(when (< (- (current-seconds) start-time) 120)
(printf ".") (flush-output) (printf ".") (flush-output)
(let ([p (gen-prog)]) (let ([p (gen-prog)])
;(pretty-print p) ;(pretty-print p)
(eval p (namespace-anchor->namespace ns-here))) (eval p (namespace-anchor->namespace ns-here)))
(loop (- n 1)))) (loop (- n 1)))))
(newline) (newline)