From ccf0c67d9fe79c0dc989ebbfefa9e7b903876f2d Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@real-time.com>
Date: Wed, 10 Feb 2010 10:33:15 -0600
Subject: [PATCH] Fixed cut-and-paste typo in test definition.

Was loading wrong system once.
---
 test/test-module-excessive-depend.script | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/test/test-module-excessive-depend.script b/test/test-module-excessive-depend.script
index 160d76e7..b06a561e 100644
--- a/test/test-module-excessive-depend.script
+++ b/test/test-module-excessive-depend.script
@@ -48,12 +48,12 @@
                 (make-instance 'asdf:load-op)
                 (asdf:find-system 'test-module-excessive-depend)))
          (file3-only (asdf:find-system 'file3-only)))
-;;;     (format t "~%Operation plan is:~%")
-;;;     (pprint plan)
-;;;     (format t "Target system is: ~a" file3-only)
+;;;    (format t "~%Operation plan is:~%")
+;;;    (pprint plan)
+;;;    (format t "Target system is: ~a" file3-only)
      (when (find file3-only plan :key #'cdr)
        (error "Excessive operations on file3-only system.  Bad propagation of dependencies.")))
-   (asdf:operate 'asdf:load-op 'test-module-depend)
+   (asdf:operate 'asdf:load-op 'test-module-excessive-depend)
    (assert (>  (file-write-date (asdf:compile-file-pathname* "file2")) before))
    (assert (>  (file-write-date (asdf:compile-file-pathname* "file2")) before))
    )
-- 
GitLab