From cc92826badf76c83afd5faafc3cc806a22563186 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 21 Jun 2022 23:01:49 +0200 Subject: Top level catch around tests. --- tests/run-tests.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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) -- cgit v1.2.3