Ignore:
Timestamp:
11/20/10 14:36:57 (11 years ago)
Author:
Mark Evenson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/0.23.x/abcl/test/lisp/abcl/pathname-tests.lisp

    r13011 r13033  
    439439  t)
    440440
     441#+windows
     442(deftest pathname.windows.6
     443   (equal (pathname-device #p"z:/foo/bar") "z")
     444  t)
     445
     446#+windows
     447(deftest pathname.windows.7
     448    (equal (pathname-device #p"file:z:/foo/bar") "z")
     449  t)
     450
     451#+windows
     452(deftest pathname.windows.8
     453    (equal (pathname-device #p"zoo:/foo/bar") nil)
     454  t)
     455
    441456(deftest wild.1
    442457  (check-physical-pathname #p"foo.*" nil "foo" :wild)
Note: See TracChangeset for help on using the changeset viewer.