Thu Jun 11 21:07:08 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Signal error on test failture
diff -rN -u old-kde.tests/src/tests.lisp new-kde.tests/src/tests.lisp
--- old-kde.tests/src/tests.lisp 2014-10-30 06:57:10.000000000 +0100
+++ new-kde.tests/src/tests.lisp 2014-10-30 06:57:10.000000000 +0100
@@ -6,5 +6,6 @@
(defun run ()
(let ((results (5am:run :kde.suite)))
- (5am:explain! results)
- (5am:results-status results)))
+ (5am:explain! results)
+ (unless (5am:results-status results)
+ (error "Testsuite :kde.suite failed."))))