diff options
-rwxr-xr-x | tests/run-tests.scm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/tests/run-tests.scm b/tests/run-tests.scm index 4060a170..fd91c264 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -90,8 +90,17 @@ ((guile) make-struct/no-tail) ) all-pure-bindings))))))) - (lambda args (format (current-error-port) - "Test unexpectedly crashed: ~a~%" args) )))) + (lambda (err . args) + (case err + ((misc-error) + (display-error #f (current-error-port) + (car args) + (cadr args) + (caddr args) + #f)) + (else + (format (current-error-port) + "Test unexpectedly crashed: ~a~%" args))) )))) (test-end "tests") |