repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
initial import
Annotate for file src/tests.lisp
2009-04-02 tobias
1
(in-package :qt.tests)
22:17:02 '
2
'
3
(5am:def-suite :qt.suite :description "Qt tests")
'
4
'
5
(5am:in-suite :qt.suite)
'
6
'
7
(defun run ()
'
8
; (let ((5am:*debug-on-failure* t)
'
9
; (5am:*debug-on-error* t))
'
10
(let ((results (5am:run :qt.suite)))
'
11
(5am:explain! results)
'
12
(unless (5am:results-status results)
'
13
(error "Testsuite :qt.suite failed."))))