[armedbear-cvs] r14244 - trunk/abcl/test/lisp/abcl

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu Nov 15 04:32:58 2012
New Revision: 14244

Log:
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.

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

Modified: trunk/abcl/test/lisp/abcl/file-system-tests.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/file-system-tests.lisp	Thu Nov 15 03:44:35 2012	(r14243)
+++ trunk/abcl/test/lisp/abcl/file-system-tests.lisp	Thu Nov 15 04:32:58 2012	(r14244)
@@ -459,7 +459,11 @@
        #+clisp
        ;; 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))
        ;; 4. Delete the directory.