From 19d23b957f4362351c029f0c0bbc74ce3a99179f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 21 Aug 2021 12:01:08 +0200
Subject: Slightly improve error handling in test-runner.

---
 tests/run-tests.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'tests/run-tests.scm')

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")
 
 
-- 
cgit v1.2.3