From 868c69ffa12b4cd1aee2ef96382c68a61ebb257f Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@real-time.com> Date: Wed, 10 Feb 2010 10:07:40 -0600 Subject: [PATCH] Refined the tests for module dependencies. Examining the new TRAVERSE method definition, it became clear to me that the current method would not propagate the value of the *forcing* special variable properly. The modification to the test-module-depend.{script,asd} verifies this bug. --- test/test-module-depend.asd | 7 ++++++- test/test-module-depend.script | 5 ++++- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/test/test-module-depend.asd b/test/test-module-depend.asd index de3964a1..721d7fad 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 17c165a2..4a810369 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)) + )) -- GitLab