(defsystem :cl-smoke.qt.tests :name :cl-smoke.qt.tests :version (0 0 1) :author "Tobias Rautenkranz" :license "GPL with linking exception" :description "Qt unit tests." :depends-on (:cl-smoke.qt.test :cl-smoke.qt.gui :cl-smoke.qt.opengl :FiveAM :trivial-garbage :cl-smoke.smoke) :components ((:module "src" :components ((:file "package") (:file "tests" :depends-on ("package")) (:file "qbytearray" :depends-on ("tests")) (:file "qstring" :depends-on ("tests")) (:file "qvector" :depends-on ("tests")) (:file "qlist" :depends-on ("tests")) (:file "graphics-item" :depends-on ("tests")) (:file "overload" :depends-on ("tests")) (:file "opengl" :depends-on ("tests")) (:file "gc" :depends-on ("tests" "object")) (:file "variant" :depends-on ("tests")) (:file "application" :depends-on ("tests")) (:file "signal-slot" :depends-on ("tests")) (:file "operators" :depends-on ("tests")) (:file "undo" :depends-on ("tests")) (:file "abort" :depends-on ("tests")) (:file "object" :depends-on ("tests")) (:file "thread" :depends-on ("tests")) (:file "properties" :depends-on ("tests")) (:file "click" :depends-on ("tests")))))) (defmethod perform ((operation test-op) (c (eql (find-system :cl-smoke.qt.tests)))) (funcall (intern (string :run) (string :qt.tests))))