From 72fa50e6eb81caa5e7e0917562cb697f32aa8529 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Mon, 8 Jun 2015 15:20:15 -0400 Subject: [PATCH] make test-utilities more robust when *asdf-directory* isn't a truename. --- test/test-utilities.script | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/test/test-utilities.script b/test/test-utilities.script index b0c49664b..a1cb12e3a 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 -- GitLab