1 ;;; Copyright (C) 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
3 ;;; This program is free software: you can redistribute it and/or modify
4 ;;; it under the terms of the GNU General Public License as published by
5 ;;; the Free Software Foundation, either version 3 of the License, or
6 ;;; (at your option) any later version.
8 ;;; This program is distributed in the hope that it will be useful,
9 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
10 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 ;;; GNU General Public License for more details.
13 ;;; You should have received a copy of the GNU General Public License
14 ;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
16 ;;; As a special exception, the copyright holders of this library give you
17 ;;; permission to link this library with independent modules to produce an
18 ;;; executable, regardless of the license terms of these independent
19 ;;; modules, and to copy and distribute the resulting executable under
20 ;;; terms of your choice, provided that you also meet, for each linked
21 ;;; independent module, the terms and conditions of the license of that
22 ;;; module. An independent module is a module which is not derived from or
23 ;;; based on this library. If you modify this library, you may extend this
24 ;;; exception to your version of the library, but you are not obligated to
25 ;;; do so. If you do not wish to do so, delete this exception statement
26 ;;; from your version.
28 (in-package :qt.tests)
30 (5am:def-suite :qt.suite :description "Qt tests")
32 (5am:in-suite :qt.suite)
35 ; (let ((5am:*debug-on-failure* t)
36 ; (5am:*debug-on-error* t))
37 (let ((results (5am:run :qt.suite)))
38 (5am:explain! results)
39 (unless (5am:results-status results)
40 (error "Testsuite :qt.suite failed."))))