-
Notifications
You must be signed in to change notification settings - Fork 2
/
tanuki.asd
81 lines (74 loc) · 2.44 KB
/
tanuki.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
75
76
77
78
79
80
81
;;;; -*- mode: Lisp -*-
;;;;
;;;; TODO: bugs in
;;;; html
;;;; decide
;;;;
(defpackage :tanuki-asd
(:use :cl :asdf))
(in-package :tanuki-asd)
;; Tanuki
(defsystem tanuki
:name "tanuki"
:version "0.5"
:author "Seth Carbon <[email protected]>"
:maintainer "Seth Carbon <[email protected]>"
:licence "Modified BSD"
:description "Tanuki"
:long-description "A \"smart\" checker/crawler for web apps."
:components ((:static-file "tanuki.asd")
(:module :src
:serial t
:components (;(:file "forms")
;(:file "file")
;(:file "html")
;(:file "web")
(:file "schema")
(:file "db")
(:file "db-op")
(:file "orm")
(:file "decide")
(:file "agent")
(:file "tanuki"))))
:depends-on (:day-to-day
:kappa
:cl-ppcre
:postmodern
;:s-sysdeps
;:s-http-client
:bordeaux-threads
:closure-html
:trivial-timeout
;:s-xml
;:fiveam
:drakma
:puri)
;;; Replace Albert, maybe with clod.
;; ;; And some stuff for Albert...
;; :properties ((#:author-email . "[email protected]")
;; (#:date . "Spring 2008")
;; ((#:albert #:output-dir) . "docs")
;; ((#:albert #:formats) . ("docbook"))
;; ((#:albert #:docbook #:template) . "book")
;; ((#:albert #:docbook #:bgcolor) . "white")
;; ((#:albert #:docbook #:textcolor) . "black"))
)
;; ;; Add tanuki to our features.
;; (defmethod asdf:perform
;; :after ((op asdf:load-op)
;; (system (eql (asdf:find-system :tanuki))))
;; (pushnew :tanuki cl:*features*))
;; (defmethod asdf:perform ((o test-op) (c (eql (find-system :tanuki))))
;; (asdf:operate 'asdf:test-op :tanuki-test))
;; Describe the testing system.
(defsystem :tanuki-test
:components ((:module :t
:serial t
:components ((:file "tanuki-test"))))
:depends-on (:tanuki :fiveam))
;; ;; TODO: Not sure exactly what this magical incanation does, no doubt
;; ;; running tests on load of tanuki.
;; (defmethod asdf:perform ((o test-op) (c (eql (find-system :tanuki-test))))
;; (asdf:operate 'asdf:load-op :tanuki-test)
;; (funcall (intern (symbol-name :run-tests)
;; (find-package :tanuki-test))))