From 14bbb3523d87ad9c6a78b88bb2f1079591aeddd5 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Sun, 5 Jun 2011 16:13:18 -0400 Subject: [PATCH] failures saved as list rather than exceptions, since memory usage seemed a lot higher than expected. --- tests/test-parse-bytecode-on-collects.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/tests/test-parse-bytecode-on-collects.rkt b/tests/test-parse-bytecode-on-collects.rkt index 1beebfe..e4e4705 100644 --- a/tests/test-parse-bytecode-on-collects.rkt +++ b/tests/test-parse-bytecode-on-collects.rkt @@ -31,8 +31,10 @@ (flush-output) (let ([start-time (current-inexact-milliseconds)]) (with-handlers ((exn:fail? (lambda (exn) - (set! failures (cons (list path exn) - failures)) + (set! failures + (cons (list (path->string path) + (exn-message exn)) + failures)) (printf "FAILED: ~a\n" (exn-message exn))))) (call-with-timeout (lambda () (void (parse-bytecode path)))