diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-21 23:01:49 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-21 23:01:49 +0200 |
| commit | cc92826badf76c83afd5faafc3cc806a22563186 (patch) | |
| tree | 98ca2da7cb9cfe15958546e7300b040e8d0b4eb3 | |
| parent | Change to proper javascript privates. (diff) | |
| download | calp-cc92826badf76c83afd5faafc3cc806a22563186.tar.gz calp-cc92826badf76c83afd5faafc3cc806a22563186.tar.xz | |
Top level catch around tests.
| -rwxr-xr-x | tests/run-tests.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/run-tests.scm b/tests/run-tests.scm index b0cd4882..a3058465 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -208,7 +208,15 @@ fi )) (test-begin "suite") -(finalizer (lambda () (for-each (lambda (f) (test-group f (load f))) files))) +(finalizer (lambda () (for-each (lambda (f) (catch #t (lambda () (test-group f (load f))) + (case-lambda + ((err from msg args data) + (test-assert (format #f "~a in ~a: ~?" err from msg args) + #f)) + (args + (test-assert (format #f "~a (~s)" f args) + #f))))) + files))) (test-end "suite") (newline) |