forked from hraban/lift
-
Notifications
You must be signed in to change notification settings - Fork 1
/
lift.asd
74 lines (71 loc) · 1.94 KB
/
lift.asd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
(defpackage #:lift-system (:use #:common-lisp #:asdf))
(in-package #:lift-system)
(defsystem lift
:version "1.7.1"
:author "Gary Warren King <gwking@metabang.com>"
:maintainer "Gary Warren King <gwking@metabang.com>"
:licence "MIT Style License; see file COPYING for details"
:description "LIsp Framework for Testing"
:long-description "LIFT is an SUnit variant and much much more."
:components ((:module
"timeout"
:pathname "timeout/"
:components
((:file "package")
(:file "with-timeout" :depends-on ("package"))))
(:module
"setup"
:pathname "dev/"
:depends-on ("timeout")
:components
((:file "packages")
(:file "utilities"
:depends-on ("packages" "definitions"))
(:file "macros"
:depends-on ("packages" "utilities" "definitions"))
(:file "definitions"
:depends-on ("packages"))
(:file "class-defs"
:depends-on ("definitions"))))
(:module
"api"
:pathname "dev/"
:depends-on ("setup")
:components ((:file "generics")
(:file "port")))
(:module
"dev"
:depends-on ("setup" "api")
:components
((:static-file "notes.text")
(:file "lift"
:depends-on ("measuring"))
(:file "copy-file"
:depends-on ())
(:file "random-testing"
:depends-on ("lift"))
(:file "measuring")
(:file "config"
:depends-on ("lift"))
(:file "reports"
:depends-on ("lift" "copy-file"))
(:file "introspection"
:depends-on ("lift"))
(:file "test-runner"
:depends-on ("lift"))
#+allegro
(:file "periodic-profiling"
;; what I'd like to say
#+no :depends-on #+no ((:feature :allegro)))
#+Ignore
(:file "prototypes"
:depends-on ("lift")))))
:in-order-to ((test-op (load-op lift-test)))
:depends-on ()
:perform (test-op :after (op c)
(funcall
(intern (symbol-name '#:run-tests) :lift)
:config :generic)))
(defmethod operation-done-p
((o test-op) (c (eql (find-system 'lift))))
(values nil))