diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-21 12:01:08 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-21 12:01:08 +0200 |
| commit | 19d23b957f4362351c029f0c0bbc74ce3a99179f (patch) | |
| tree | f6b4a681fbe6c00bca8c63810272fb4a92001b5d /tests/run-tests.scm | |
| parent | Improve error messages of rfc->datetime-weekday (diff) | |
| download | calp-19d23b957f4362351c029f0c0bbc74ce3a99179f.tar.gz calp-19d23b957f4362351c029f0c0bbc74ce3a99179f.tar.xz | |
Slightly improve error handling in test-runner.
Diffstat (limited to 'tests/run-tests.scm')
| -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") |