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

failures saved as list rather than exceptions, since memory usage seemed a lot higher than expected.

Browse Source
This commit is contained in:
Danny Yoo 2011-06-05 16:13:18 -04:00
parent 31f96bd40a
commit 14bbb3523d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test-parse-bytecode-on-collects.rkt
View File

@ -31,8 +31,10 @@
(flush-output) (flush-output)
(let ([start-time (current-inexact-milliseconds)]) (let ([start-time (current-inexact-milliseconds)])
(with-handlers ((exn:fail? (lambda (exn) (with-handlers ((exn:fail? (lambda (exn)
(set! failures (cons (list path exn) (set! failures
failures)) (cons (list (path->string path)
(exn-message exn))
failures))
(printf "FAILED: ~a\n" (exn-message exn))))) (printf "FAILED: ~a\n" (exn-message exn)))))
(call-with-timeout (lambda () (call-with-timeout (lambda ()
(void (parse-bytecode path))) (void (parse-bytecode path)))