~mdw
/
sod
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2b6a135
)
src/test-base.lisp: Actually signal an error if the tests fail.
author
Mark Wooding
<mdw@distorted.org.uk>
Sun, 30 Aug 2015 09:58:38 +0000
(10:58 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Sun, 6 Sep 2015 23:16:17 +0000
(
00:16
+0100)
src/sod-test.asd
patch
|
blob
|
blame
|
history
diff --git
a/src/sod-test.asd
b/src/sod-test.asd
index
a0a3972
..
b3024dc
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)
- (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 --------------------------------------------------