(defsystem :cl-smoke.commonqt-tests :name :cl-smoke.commonqt-tests :author "Tobias Rautenkranz" :license "GPL with linking exception" :depends-on (:cl-smoke.commonqt :FiveAM) :components ((:module "tests" :components ((:file "test"))))) (defmethod perform ((o test-op) (c (eql (find-system :cl-smoke.commonqt-tests)))) (funcall (intern (string :run) (string :cl-smoke.commonqt))))