clamp-tests.asd

(in-package :asdf-user)

(defsystem "clamp-tests"
  :description "tests for clamp"
  :depends-on ("clunit" "check-it" "clamp" "clamp-experimental")
  :serial t
  :components ((:module "tests"
                :components ((:file "clamp-suite")
                             (:file "base-suite")
                             (:file "binding-suite")
                             (:file "conditionals-suite")
                             (:file "fns-suite")
                             (:file "fnops-suite")
                             (:file "hof-suite")
                             (:file "iter-suite")
                             (:file "list-suite")
                             (:file "print-suite")
                             (:file "memoize-suite")
                             (:file "misc-suite")
                             (:file "setforms-suite")
                             (:file "tables-suite")
                             (:file "strings-suite")
                             (:file "sort-suite")
                             (:file "io-suite")

                             (:file "clamp-experimental-suite")
                             (:file "destructuring-suite")
                             (:file "coerce-suite")
                             (:file "ssyntax-suite")
                             (:file "lisp1-suite")))))

(defmethod perform ((op test-op) (c (eql (find-system :clamp-tests))))
  (let ((*package* (find-package :clamp-tests)))
    (print (symbol-call :clamp-tests :run-suite (intern* :clamp :clamp-tests)))))