diff options
-rwxr-xr-x | tests/run-tests.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/run-tests.scm b/tests/run-tests.scm index 9c12fc15..5aecdebb 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -196,9 +196,15 @@ (cadr args) (caddr args) #f)) + ((unbound-variable) + (let ((proc (car args)) + (fmt (cadr args)) + (fmt-args (caddr args))) + (format (current-error-port) + "[~a] ~?~%" proc fmt fmt-args))) (else (format (current-error-port) - "Test unexpectedly crashed: ~a~%" args))) ))))))) + "Test unexpectedly crashed [~a]: ~s~%" err args))) ))))))) (call-with-values run-with-coverage |