src/tests.lisp
Fri Apr 3 00:17:02 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* initial import
--- old-qt.tests/src/tests.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-qt.tests/src/tests.lisp 2014-10-30 07:59:53.000000000 +0100
@@ -0,0 +1,13 @@
+(in-package :qt.tests)
+
+(5am:def-suite :qt.suite :description "Qt tests")
+
+(5am:in-suite :qt.suite)
+
+(defun run ()
+; (let ((5am:*debug-on-failure* t)
+; (5am:*debug-on-error* t))
+ (let ((results (5am:run :qt.suite)))
+ (5am:explain! results)
+ (unless (5am:results-status results)
+ (error "Testsuite :qt.suite failed."))))