external/lift/lift.asd

   1 (defpackage #:asdf-lift (:use #:asdf #:cl))
   2 (in-package #:asdf-lift)
   3
   4 (defsystem lift
   5   :version "1.3.1"
   6   :author "Gary Warren King <gwking@metabang.com>"
   7   :maintainer "Gary Warren King <gwking@metabang.com>"
   8   :licence "MIT Style License; see file COPYING for details"
   9   :description "LIsp Framework for Testing"
  10   :long-description "LIFT is an SUnit variant and much much more."
  11   :components ((:module
  12                 "dev"
  13                 :components
  14                 ((:static-file "notes.text")
  15
  16                  (:file "packages")
  17                  (:file "lift"
  18                         :depends-on ("packages" "measuring"))
  19                  (:file "copy-file"
  20                         :depends-on ("packages"))
  21                  (:file "random-testing"
  22                         :depends-on ("packages" "lift"))
  23                  (:file "port"
  24                         :depends-on ("packages"))
  25                  (:file "measuring"
  26                         :depends-on ("packages"))
  27                  (:file "config"
  28                         :depends-on ("port"))
  29                  (:file "reports"
  30                         :depends-on ("port"))
  31                  #+Ignore
  32                  (:file "prototypes"
  33                         :depends-on ("lift"))))
  34
  35                (:module
  36                 "website"
  37                 :components ((:module "source"
  38                                       :components
  39                                       ((:static-file "index.lml"))))))
  40
  41   :in-order-to ((test-op (load-op lift-test)))
  42   :perform (test-op :after (op c)
  43                     (describe
  44                      (funcall (intern (symbol-name '#:run-tests) :lift)
  45                               :suite '#:lift-test)))
  46   :depends-on ())
  47
  48 (defmethod operation-done-p
  49            ((o test-op) (c (eql (find-system 'lift))))
  50   (values nil))