diff --git a/test/test-utilities.script b/test/test-utilities.script index e8ef0b4357e225c34954c0b5685d59c25d0a8914..fdaba0a505bf0f700d660048b0468ddd9eec0653 100644 --- a/test/test-utilities.script +++ b/test/test-utilities.script @@ -63,10 +63,12 @@ (assert-pathname-equal true dir) (setf true dir))) (assert-pathname-equal true (truename (ensure-directory-pathname file))) - (assert-pathname-equal true (nest #+(and clisp windows) (ensure-directory-pathname) + (assert-pathname-equal true (nest #+(and clisp os-windows) (ensure-directory-pathname) (truename* file))) - (assert-pathname-equal true (nest #+(or allegro (and clisp windows)) (ensure-directory-pathname) - (probe-file* file :truename t))) + (assert-pathname-equal true + (let ((path (probe-file* file :truename t))) + #+(or allegro (and clisp os-windows)) (ensure-directory-pathname path) + #-(or allegro (and clisp os-windows)) path)) (assert-pathname-equal true (if-let (x (probe-file* file)) (ensure-absolute-pathname (ensure-directory-pathname x) 'get-pathname-defaults)))) (check-directory-doesnt-exist (file)