src/tests.lisp
Thu Jun 11 21:07:08 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Signal error on test failture
--- old-kde.tests/src/tests.lisp 2014-10-30 07:21:08.000000000 +0100
+++ new-kde.tests/src/tests.lisp 2014-10-30 07:21:08.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."))))