1 (defsystem :cl-smoke.qt.tests
2 :name :cl-smoke.qt.tests
4 :author "Tobias Rautenkranz"
5 :license "GPL with linking exception"
6 :description "Qt unit tests."
7 :depends-on (:cl-smoke.qt.test :cl-smoke.qt.gui :cl-smoke.qt.opengl
8 :FiveAM :trivial-garbage :cl-smoke.smoke)
14 (:file "tests" :depends-on ("package"))
15 (:file "qbytearray" :depends-on ("tests"))
16 (:file "qstring" :depends-on ("tests"))
17 (:file "qvector" :depends-on ("tests"))
18 (:file "qlist" :depends-on ("tests"))
19 (:file "graphics-item" :depends-on ("tests"))
20 (:file "overload" :depends-on ("tests"))
21 (:file "opengl" :depends-on ("tests"))
22 (:file "gc" :depends-on ("tests" "object"))
23 (:file "variant" :depends-on ("tests"))
24 (:file "application" :depends-on ("tests"))
25 (:file "signal-slot" :depends-on ("tests"))
26 (:file "operators" :depends-on ("tests"))
27 (:file "undo" :depends-on ("tests"))
28 (:file "abort" :depends-on ("tests"))
29 (:file "object" :depends-on ("tests"))
30 (:file "thread" :depends-on ("tests"))
31 (:file "properties" :depends-on ("tests"))
32 (:file "click" :depends-on ("tests"))))))
34 (defmethod perform ((operation test-op) (c (eql (find-system :cl-smoke.qt.tests))))
35 (funcall (intern (string :run) (string :qt.tests))))