src/test-base.lisp: Actually signal an error if the tests fail.

diff --git a/src/sod-test.asd b/src/sod-test.asd
index a0a39720bc0fa4aa051e9da14db9f86d5a33db15..b3024dce81751f097176e5d0cbfc23cd24fb182d 100644 (file)
--- a/src/sod-test.asd
+++ b/src/sod-test.asd
@@ -68,6 +68,8 @@
                    (declare (ignore cond))
                    (invoke-restart 'muffle-warning))))
     (operate 'load-op system)
                    (declare (ignore cond))
                    (invoke-restart 'muffle-warning))))
     (operate 'load-op system)

-    (funcall (find-symbol "RUN-TESTS" "SOD-TEST"))))
+    (let ((result (funcall (find-symbol "RUN-TESTS" "SOD-TEST"))))
+      (unless (funcall (find-symbol "WAS-SUCCESSFUL" "XLUNIT") result)
+       (error "Failed test")))))

 
 ;;;----- That's all, folks --------------------------------------------------
 
 ;;;----- That's all, folks --------------------------------------------------