test-nested-components.script 1021 Bytes
Newer Older
1 2 3 4
;;; -*- Lisp -*-

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

5 6 7 8 9
(def-test-system test-nested-components-a
  :components
  ((:module "nested-components"
            :pathname ""
            :components ((:file "test-nested-1")))))
10

11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
(def-test-system test-nested-components-b
  :components
  ((:file "test-nested-1")))

(def-test-system db-agraph-preflight
  :components
  ((:module "preflight-checks"
            :components ((:file "preflight")))))

(defsystem db-agraph-preflight-2
  :pathname "preflight-checks" :source-file nil
  :components
  ((:file "preflight")))

(writeln
26 27 28 29 30 31 32
 (list
  :a
  (traverse 'compile-op 'test-nested-components-a)
  (traverse 'compile-op 'test-nested-components-b)
  :x
  (traverse 'compile-op 'db-agraph-preflight)
  (traverse 'compile-op 'db-agraph-preflight-2)))
33 34

#|
35 36
(oos 'compile-op 'test-nested-components-a)
(oos 'compile-op 'test-nested-components-b)
37

38
(writeln
39 40 41
 (list
  (traverse 'load-op 'test-nested-components-a)
  (traverse 'load-op 'test-nested-components-b)))
42
|#