diff --git a/test/test-utilities.script b/test/test-utilities.script index b0c49664b9a2da1a0469b79649d05ddb0e14aa39..a1cb12e3ae80ec229b91d2eb3e288fe15dfbc70a 100644 --- a/test/test-utilities.script +++ b/test/test-utilities.script @@ -7,15 +7,17 @@ :output '(:string :stripped t)) :ensure-directory t)) -(chdir *asdf-directory*) -(assert-pathname-equal *asdf-directory* (getcwd)) -(assert-pathname-equal *asdf-directory* (getcwd-from-run-program)) -(assert (probe-file* "asdf.asd")) +(let ((asdf-directory (truename *asdf-directory*))) + (chdir asdf-directory) + (assert-pathname-equal asdf-directory (getcwd)) + (assert-pathname-equal asdf-directory (getcwd-from-run-program)) + (assert (probe-file* "asdf.asd"))) -(chdir *test-directory*) -(assert-pathname-equal *test-directory* (getcwd)) -(assert-pathname-equal *test-directory* (getcwd-from-run-program)) -(assert (probe-file* "test-utilities.script")) +(let ((test-directory (truename *test-directory*))) + (chdir test-directory) + (assert-pathname-equal test-directory (getcwd)) + (assert-pathname-equal test-directory (getcwd-from-run-program)) + (assert (probe-file* "test-utilities.script"))) (assert (every #'directory-pathname-p