diff --git a/test/test-module-depend.asd b/test/test-module-depend.asd index de3964a114eb287da7f735f0268de83e9776ba84..721d7fadb856ccf6c455a23aef43af09826d65cb 100644 --- a/test/test-module-depend.asd +++ b/test/test-module-depend.asd @@ -3,4 +3,9 @@ (:module "quux" :pathname #p"" :depends-on ("file1") - :components ((:file "file2"))))) + :components ((:file "file2") + (:module "file3mod" + :pathname #p"" + :components + ((:file "file3"))))))) + diff --git a/test/test-module-depend.script b/test/test-module-depend.script index 17c165a24588f4446b8f83fda83c64fc4d0efda9..4a810369f9167fccd1d2df41279359120b939f6f 100644 --- a/test/test-module-depend.script +++ b/test/test-module-depend.script @@ -23,6 +23,9 @@ (asdf::run-shell-command "touch file1.lisp") (sleep 1) (asdf:operate 'asdf:load-op 'test-module-depend) - (assert (> (file-write-date (asdf:compile-file-pathname* "file2")) before)))) + (assert (> (file-write-date (asdf:compile-file-pathname* "file2")) before)) + ;; does this properly go to the second level? + (assert (> (file-write-date (asdf:compile-file-pathname* "file3")) before)) + ))