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"))
  25                  (:file "macros"
  26                         :depends-on ("packages"))))
  27                (:module
  28                 "api"
  29                 :pathname "dev/"
  30                 :depends-on ("setup")
  31                 :components ((:file "generics")
  32                              #+(or)
  33                              (:file "classes" :depends-on ("generics"))))
  34                (:module
  35                 "dev"
  36                 :depends-on ("setup" "api")
  37                 :components
  38                 ((:static-file "notes.text")
  39                  (:file "lift"
  40                         :depends-on ("measuring" "port"))
  41                  (:file "copy-file"
  42                         :depends-on ())
  43                  (:file "random-testing"
  44                         :depends-on ("lift"))
  45                  (:file "port"
  46                         :depends-on ())
  47                  (:file "measuring"
  48                         :depends-on ("port"))
  49                  (:file "config"
  50                         :depends-on ("port" "lift"))
  51                  (:file "reports"
  52                         :depends-on ("port" "lift" "copy-file"))
  53                  (:file "introspection"
  54                         :depends-on ("lift"))
  55                  (:file "test-runner"
  56                         :depends-on ("lift"))
  57                  #+allegro
  58                  (:file "periodic-profiling"
  59                         ;; what I'd like to say
  60                         #+no :depends-on #+no ((:feature :allegro)))
  61                   #+Ignore
  62                  (:file "prototypes"
  63                         :depends-on ("lift")))))
  64
  65   :in-order-to ((test-op (load-op lift-test)))
  66   :depends-on ()
  67   :perform (test-op :after (op c)
  68                     (funcall
  69                       (intern (symbol-name '#:run-tests) :lift)
  70                       :config :generic)))
  71
  72 (defmethod operation-done-p
  73            ((o test-op) (c (eql (find-system 'lift))))
  74   (values nil))
  75
  76 (when (find-system 'asdf-system-connections nil)
  77   (asdf:operate 'asdf:load-op 'asdf-system-connections))
  78
  79 #+asdf-system-connections
  80 (asdf:defsystem-connection lift-report-locations
  81   :requires (:lift :asdf-binary-locations)
  82   :components ((:module "dev"
  83                         :components ((:file "report-locations")))))