lift.asd

   1 (defpackage #:lift-system (:use #:common-lisp #:asdf))
   2 (in-package #:lift-system)
   3
   4 (defsystem lift
   5   :version "1.7.0"
   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                 "timeout"
  13                 :pathname "timeout/"
  14                 :components
  15                 ((:file "package")
  16                  (:file "with-timeout" :depends-on ("package"))))
  17                (:module
  18                 "setup"
  19                 :pathname "dev/"
  20                 :depends-on ("timeout")
  21                 :components
  22                 ((:file "packages")
  23                  (:file "utilities"
  24                         :depends-on ("packages" "macros" "definitions"))
  25                  (:file "macros"
  26                         :depends-on ("packages" "definitions"))
  27                  (:file "definitions"
  28                         :depends-on ("packages"))
  29                  (:file "class-defs"
  30                         :depends-on ("definitions"))))
  31                (:module
  32                 "api"
  33                 :pathname "dev/"
  34                 :depends-on ("setup")
  35                 :components ((:file "generics")))
  36                (:module
  37                 "dev"
  38                 :depends-on ("setup" "api")
  39                 :components
  40                 ((:static-file "notes.text")
  41                  (:file "lift"
  42                         :depends-on ("measuring" "port"))
  43                  (:file "copy-file"
  44                         :depends-on ())
  45                  (:file "random-testing"
  46                         :depends-on ("lift"))
  47                  (:file "port"
  48                         :depends-on ())
  49                  (:file "measuring"
  50                         :depends-on ("port"))
  51                  (:file "config"
  52                         :depends-on ("port" "lift"))
  53                  (:file "reports"
  54                         :depends-on ("port" "lift" "copy-file"))
  55                  (:file "introspection"
  56                         :depends-on ("lift"))
  57                  (:file "test-runner"
  58                         :depends-on ("lift"))
  59                  #+allegro
  60                  (:file "periodic-profiling"
  61                         ;; what I'd like to say
  62                         #+no :depends-on #+no ((:feature :allegro)))
  63                   #+Ignore
  64                  (:file "prototypes"
  65                         :depends-on ("lift")))))
  66
  67   :in-order-to ((test-op (load-op lift-test)))
  68   :depends-on ()
  69   :perform (test-op :after (op c)
  70                     (funcall
  71                       (intern (symbol-name '#:run-tests) :lift)
  72                       :config :generic)))
  73
  74 (defmethod operation-done-p
  75            ((o test-op) (c (eql (find-system 'lift))))
  76   (values nil))