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