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

2011-06-05 16:13:18 -04:00 · 2011-06-05 16:13:18 -04:00 · 14bbb3523d
commit 14bbb3523d
parent 31f96bd40a
1 changed files with 4 additions and 2 deletions
--- 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)))