Signal error on test failture
Annotate for file src/tests.lisp
2010-04-03 tobias 1 (in-package :kde.tests)
2009-04-02 tobias 2
22:18:27 ' 3 (5am:def-suite :kde.suite)
' 4
' 5 (5am:in-suite :kde.suite)
' 6
' 7 (defun run ()
' 8 (let ((results (5am:run :kde.suite)))
2009-06-11 tobias 9 (5am:explain! results)
19:07:08 ' 10 (unless (5am:results-status results)
' 11 (error "Testsuite :kde.suite failed."))))