From 0e3db4838c7eb0fbf32b1df23a3e7163e3c0479a Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Sat, 12 Oct 2013 23:35:11 -0400
Subject: [PATCH] Fix a bug in test-module-pathnames.

---
 test/test-module-pathnames.script | 24 +++++++-----------------
 1 file changed, 7 insertions(+), 17 deletions(-)

diff --git a/test/test-module-pathnames.script b/test/test-module-pathnames.script
index 6beaaac1..3cf580dd 100644
--- a/test/test-module-pathnames.script
+++ b/test/test-module-pathnames.script
@@ -31,26 +31,16 @@
 (assert (symbol-value (find-symbol (symbol-name '*file-tmp*) :test-package))
         () "symbol `*file-tmp*` has wrong value")
 
-(assert (probe-file
-         (apply-output-translations
-          (merge-pathnames*
-           (make-pathname*
-            :name "file1"
-            :type (compile-file-type)
-            :directory '(:relative "sources" "level1"))
-           *test-directory*)))
-        () "compiled file not found")
+(defun pf (path)
+  (let* ((fasl (apply-output-translations
+                (subpathname *test-directory* path :type (compile-file-type)))))
+    (assert (probe-file fasl) () "Cannot find compiled file ~S" fasl)))
+
+(pf "sources/level1/file1")
 
 (assert (find-symbol (symbol-name '*file-tmp2*) :test-package)
         () "symbol `*file-tmp2*` not found")
 (assert (symbol-value (find-symbol (symbol-name '*file-tmp2*) :test-package))
         () "symbol `*file-tmp2*` has wrong value")
 
-(assert (probe-file
-         (apply-output-translations
-          (merge-pathnames*
-           (make-pathname*
-            :name "file2"
-            :type (compile-file-type)
-            :directory '(:relative "sources" "level1" "level2")))))
-        nil "compiled file not found")
+(pf "sources/level1/level2/file2")
-- 
GitLab