From 1c6fecf5cfcc836a95c59de159137cf7ad6d0be5 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Sat, 19 Oct 2013 14:04:30 -0400
Subject: [PATCH] Tweak tests. Thanks to Dave Cooper for fix to run-tests.sh
 instructions on reproducing tests.

---
 test/run-tests.sh                 | 2 +-
 test/test-force.script            | 2 +-
 test/test-logical-pathname.script | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/test/run-tests.sh b/test/run-tests.sh
index 4e9c0779..4a1c8657 100755
--- a/test/run-tests.sh
+++ b/test/run-tests.sh
@@ -120,7 +120,7 @@ do_tests () {
         echo "or more interactively (and maybe with rlwrap or in emacs), start with:" >&2
         echo "(cd test ; $icmd )" >&2
         echo "then copy/paste:" >&2
-        echo "'(#.(load \"script-support.lisp\") #.(asdf-test::da) #.(load-asdf) #.(frob-packages) #.(load \"$i\"))" >&2
+        echo "'(#.(load \"script-support.lisp\") #.(asdf-test::da) #.(load-asdf) #.(frob-packages) #.(asdf::with-asdf-cache () (load \"$i\")))" >&2
       fi
       echo >&2
       echo >&2
diff --git a/test/test-force.script b/test/test-force.script
index 8404b7b4..4a16f3d2 100644
--- a/test/test-force.script
+++ b/test/test-force.script
@@ -15,7 +15,7 @@
 (touch-file "file1.lisp" :timestamp date1)
 (touch-file file1 :timestamp date2)
 (load-system 'test-force)
-(assert (equal (get-file-stamp file1) date2))
+(assert-equal (get-file-stamp file1) date2)
 
 ;; forced, it should be later
 (load-system 'test-force :force t)
diff --git a/test/test-logical-pathname.script b/test/test-logical-pathname.script
index 7a2c9c0a..739046cf 100644
--- a/test/test-logical-pathname.script
+++ b/test/test-logical-pathname.script
@@ -16,8 +16,8 @@
 
 (DBG :logical
      (logical-pathname-translations "ASDF")
-     (translate-logical-pathname "ASDF:test;test-force.asd")
-     (truename "ASDF:test;test-force.asd"))
+     (translate-logical-pathname "ASDF:test;test-logical-pathname.asd")
+     (truename "ASDF:test;test-logical-pathname.asd"))
 
 #+xcl (leave-test "GCL 2.6 doesn't do Logical pathnames well enough" 0)
 
-- 
GitLab