diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-03 21:15:16 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-04 13:08:39 +0100 |
| commit | ab18f67a46daa2dd0e7b1cd0b73efc7fa1bc5bf8 (patch) | |
| tree | 8f1eea6f5eb57436d28646ca9824496554f261bd /tests/run-tests.scm | |
| parent | Properly note failing tets in recurrence. (diff) | |
| download | calp-ab18f67a46daa2dd0e7b1cd0b73efc7fa1bc5bf8.tar.gz calp-ab18f67a46daa2dd0e7b1cd0b73efc7fa1bc5bf8.tar.xz | |
Explicitly format unbound-variable errors.
Diffstat (limited to 'tests/run-tests.scm')
| -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 |