Changeset 14244

Timestamp:

11/15/12 12:32:58 (8 years ago)

Author:

Mark Evenson

Message:

Correct ENSURE-DIRECTORIES-EXIST.1 test logic.

ABCL fills in DEVICE as :UNSPECIFIC when resolving filesystem paths on
non-M$DOG meaning that an unresolved pathname is not always equivalent
to its resolved version.

File:

• trunk/abcl/test/lisp/abcl/file-system-tests.lisp (modified) (1 diff)

trunk/abcl/test/lisp/abcl/file-system-tests.lisp

@@ -460 +460 @@
        ;; CLISP's PROBE-DIRECTORY just returns T.
        (ext:probe-directory directory-namestring)
-       #-clisp
+       ;; ABCL fills in DEVICE as :UNSPECIFIC when resolving
+       ;; filesystem paths on non-M$DOG
+       #+abcl
+       (not (null (truename directory-namestring)))
+       #-(or clisp abcl)
        (pathnames-equal-p (probe-file directory-namestring)
                           (pathname directory-namestring))