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