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