w

metawilm · May 5, 2024 · cdf04f8 · cdf04f8
1 parent 591cf01
commit cdf04f8
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/test-suite.lisp b/test-suite.lisp
@@ -136,6 +136,7 @@
   (basic-test))
 
 (defun run-without-debugging ()
-  (if (ignore-errors (run))
-      (format t "No test failures.~%")
-    (error "There were test failures")))
+  (without-debugging (run))
+  (if (hu.dwim.stefil::failure-descriptions-of **last-test-result*)
+      (error "There were test failures")
+    (format t "No test failures.~%")))