test-nested-components.script 1.96 KB
Newer Older
1 2 3 4
;;; -*- Lisp -*-

;;; check that added nesting via modules doesn't confuse ASDF

5
(load "script-support.lisp")
6
(load-asdf)
7

8
(quit-on-error
9 10
 (setf asdf:*central-registry* nil)
 (load (merge-pathnames "test-nested-components-1.asd"))
11
 (print
12 13 14
  (list
   :a
   (asdf::traverse (make-instance 'asdf:compile-op)
15
                   (asdf:find-system 'test-nested-components-a))
16
   (asdf::traverse (make-instance 'asdf:compile-op)
17
                   (asdf:find-system 'test-nested-components-b))
18 19
   :x
   (asdf::traverse (make-instance 'asdf:compile-op)
20
                   (asdf:find-system 'db-agraph-preflight))
21
   (asdf::traverse (make-instance 'asdf:compile-op)
22
                   (asdf:find-system 'db-agraph-preflight-2))
23 24 25 26 27 28 29
   ))

#|

 (asdf:oos 'asdf:compile-op 'test-nested-components-a)
 (asdf:oos 'asdf:compile-op 'test-nested-components-b)

30
 (print
31 32
  (list
   (asdf::traverse (make-instance 'asdf:load-op)
33
                   (asdf:find-system 'test-nested-components-a))
34
   (asdf::traverse (make-instance 'asdf:load-op)
35
                   (asdf:find-system 'test-nested-components-b))))
36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

|#

)





#|
(((#<ASDF:COMPILE-OP NIL {11DEB619}>
   . #<ASDF:CL-SOURCE-FILE "preflight" {11B7B951}>)
  (#<ASDF:COMPILE-OP NIL {11DEB619}>
   . #<ASDF:MODULE "preflight-checks" {11B799A9}>)
  (#<ASDF:COMPILE-OP NIL {11DEB619}>
   . #<ASDF:SYSTEM "test-nested-components-a" {11AEDD59}>)
  (#<ASDF:LOAD-OP NIL {11D04FE9}>
   . #<ASDF:CL-SOURCE-FILE "preflight" {11B7B951}>)
  (#<ASDF:LOAD-OP NIL {11D04FE9}>
   . #<ASDF:MODULE "preflight-checks" {11B799A9}>)
  (#<ASDF:LOAD-OP NIL {11D04FE9}>
   . #<ASDF:SYSTEM "test-nested-components-a" {11AEDD59}>))
58

59 60 61 62 63 64 65 66
 ((#<ASDF:COMPILE-OP NIL {11E4D9B1}>
   . #<ASDF:CL-SOURCE-FILE "preflight" {11C94B89}>)
  (#<ASDF:COMPILE-OP NIL {11E4D9B1}>
   . #<ASDF:SYSTEM "test-nested-components-b" {11C92819}>)
  (#<ASDF:LOAD-OP NIL {11E4A911}>
   . #<ASDF:CL-SOURCE-FILE "preflight" {11C94B89}>)
  (#<ASDF:LOAD-OP NIL {11E4A911}>
   . #<ASDF:SYSTEM "test-nested-components-b" {11C92819}>)))
67
|#