source: trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd @ 14233

Last change on this file since 14233 was 14233, checked in by Mark Evenson, 8 years ago

Re #262 in abcl-asdf: use first matching line if the first line doesn't work out.

Further work needed as something more meaningful should be returned
other than "The value NIL is not of type REAL" when abcl-asdf can't
parse the Maven version string.

Initial patch by Christoph.

File size: 1.4 KB
Line 
1;;;; -*- Mode: LISP -*-
2
3(asdf:defsystem :abcl-asdf
4  :author "Mark Evenson"
5  :version "0.9.1"
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 abcl-test-lisp abcl-asdf)
23  :components ((:module tests :serial t
24                        :components ((:file "example")
25                                     (:file "maven")
26                                     (:file "test")))))
27
28#|
29(defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf-test))))
30  (funcall (intern (symbol-name 'run) 'abcl-asdf-test)))
31
32(defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf))))
33  (asdf:load-system :abcl-asdf-test))
34  (asdf:test-system :abcl-asdf-test))
35
36 ;;; FIXME
37(defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf))))
38   "Invoke tests with (asdf:test-system 'abcl-asdf)."
39   (asdf:load-system 'abcl)
40   (asdf:load-system 'abcl-test-lisp)
41   (asdf:load-system 'abcl-asdf-test)
42   (funcall (intern (symbol-name 'run) 'abcl-asdf-test)))
43|#
Note: See TracBrowser for help on using the repository browser.