Last change
on this file since 14185 was
14185,
checked in by Mark Evenson, 8 years ago
|
abcl-asdf-test: require ABCL-ASDF for ASDF:DEFSYSTEM.
|
File size:
1.3 KB
|
Line | |
---|
1 | ;;;; -*- Mode: LISP -*- |
---|
2 | |
---|
3 | (asdf:defsystem :abcl-asdf |
---|
4 | :author "Mark Evenson" |
---|
5 | :version "0.8.0" |
---|
6 | :depends-on (jss) |
---|
7 | :components |
---|
8 | ((:module packages :pathname "" |
---|
9 | :components |
---|
10 | ((:file "packages"))) |
---|
11 | (:module base :pathname "" |
---|
12 | :components |
---|
13 | ((:file "abcl-asdf") |
---|
14 | (:file "asdf-jar" |
---|
15 | :depends-on ("abcl-asdf")) |
---|
16 | (:file "maven-embedder" |
---|
17 | :depends-on ("abcl-asdf" "asdf-jar"))) |
---|
18 | :depends-on (packages)))) |
---|
19 | |
---|
20 | (asdf:defsystem :abcl-asdf-test |
---|
21 | :author "Mark Evenson" |
---|
22 | :defsystem-depends-on (abcl-asdf) |
---|
23 | :components |
---|
24 | ((:module tests :serial t :components |
---|
25 | ((:file "example") |
---|
26 | (:file "maven") |
---|
27 | (:file "test"))))) |
---|
28 | |
---|
29 | #| |
---|
30 | (defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf-test)))) |
---|
31 | (funcall (intern (symbol-name 'run) 'abcl-asdf-test))) |
---|
32 | |
---|
33 | (defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf)))) |
---|
34 | (asdf:load-system :abcl-asdf-test)) |
---|
35 | (asdf:test-system :abcl-asdf-test)) |
---|
36 | |
---|
37 | ;;; FIXME |
---|
38 | (defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf)))) |
---|
39 | "Invoke tests with (asdf:test-system 'abcl-asdf)." |
---|
40 | (asdf:load-system 'abcl) |
---|
41 | (asdf:load-system 'abcl-test-lisp) |
---|
42 | (asdf:load-system 'abcl-asdf-test) |
---|
43 | (funcall (intern (symbol-name 'run) 'abcl-asdf-test))) |
---|
44 | |# |
---|
Note: See
TracBrowser
for help on using the repository browser.