diff --git a/test/test-module-pathnames.script b/test/test-module-pathnames.script index 6beaaac1c783289229039ccd975830acbcd955fe..3cf580dd9f533c1cbca9de0b468b75f5e9d665e4 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")