From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 30 Aug 2015 09:58:38 +0000 (+0100)
Subject: src/test-base.lisp: Actually signal an error if the tests fail.
X-Git-Tag: 0.2.0~9
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/d0bb9ec5609757a5c1850af65c6c27febe766e55?ds=inline;hp=--cc

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

d0bb9ec5609757a5c1850af65c6c27febe766e55
diff --git a/src/sod-test.asd b/src/sod-test.asd
index a0a3972..b3024dc 100644
--- 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)
-    (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 --------------------------------------------------