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