Commit e6b5d611 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Slightly simplify test-nested-components.

parent 012c60ff
;;; -*- Mode: common-lisp; Syntax: Common-Lisp; -*-
(defsystem test-nested-components-a
:components
((:module "nested-components"
:pathname ""
:components ((:file "test-nested-1")))))
(defsystem test-nested-components-b
:pathname ""
:components
((:file "test-nested-1")))
(defsystem db-agraph-preflight
:components
((:module "preflight-checks"
:components ((:file "preflight")))))
(defsystem db-agraph-preflight-2
:pathname "preflight-checks"
:components
((:file "preflight")))
......@@ -2,10 +2,27 @@
;;; check that added nesting via modules doesn't confuse ASDF
(setf *central-registry* nil)
(load "test-nested-components-1.asd")
(def-test-system test-nested-components-a
:components
((:module "nested-components"
:pathname ""
:components ((:file "test-nested-1")))))
(print
(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
(list
:a
(traverse 'compile-op 'test-nested-components-a)
......@@ -18,7 +35,7 @@
(oos 'compile-op 'test-nested-components-a)
(oos 'compile-op 'test-nested-components-b)
(print
(writeln
(list
(traverse 'load-op 'test-nested-components-a)
(traverse 'load-op 'test-nested-components-b)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment