test-asdf.script 476 Bytes
Newer Older
1
(with-asdf-session (:override t)
2
  (load-system "test-asdf/test-module-depend"))
3

4
(defparameter *plan* (make-plan () 'load-op "test-asdf/test-module-depend"))
5 6 7 8 9
(DBG :foo *plan*
     (component-depends-on 'compile-op '("test-asdf/test-module-depend" "quux" "file3mod" "file3"))
     (asdf::component-if-feature (find-component "test-asdf/test-module-depend" '("quux" "file3mod" "file3"))))

(assert (not (in-plan-p *plan* '(compile-op "test-asdf/test-module-depend" "file1"))))