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 07:21:06.000000000 +0100
+++ new-kde.tests/src/tests.lisp	2014-10-30 07:21:06.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."))))