1 (defsystem :cl-smoke.commonqt-tests

2 :name :cl-smoke.commonqt-tests

3 :author "Tobias Rautenkranz"

4 :license "GPL with linking exception"

5 :depends-on (:cl-smoke.commonqt :FiveAM)

6

7 :components

8 ((:module "tests"

9 :components

10 ((:file "test")))))

11

12 (defmethod perform ((o test-op) (c (eql (find-system :cl-smoke.commonqt-tests))))

13 (funcall (intern (string :run) (string :cl-smoke.commonqt))))