Changeset 13033 for branches/0.23.x/abcl/test/lisp/abcl/pathname-tests.lisp

Timestamp:

11/20/10 14:36:57 (13 years ago)

Author:

Mark Evenson

Message:

[ticket #110][backport r13024,r13026] Fix #\+ in JAR pathnames.

File:

• branches/0.23.x/abcl/test/lisp/abcl/pathname-tests.lisp (modified) (1 diff)

branches/0.23.x/abcl/test/lisp/abcl/pathname-tests.lisp

@@ -439 +439 @@
   t)
 
+#+windows
+(deftest pathname.windows.6
+   (equal (pathname-device #p"z:/foo/bar") "z")
+  t)
+
+#+windows
+(deftest pathname.windows.7
+    (equal (pathname-device #p"file:z:/foo/bar") "z")
+  t)
+
+#+windows
+(deftest pathname.windows.8
+    (equal (pathname-device #p"zoo:/foo/bar") nil)
+  t)
+
 (deftest wild.1
   (check-physical-pathname #p"foo.*" nil "foo" :wild)