Changeset 9990


Ignore:
Timestamp:
09/19/05 16:58:08 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/pathname-tests.lisp

    r9988 r9990  
    387387               #+clisp "TEST;FOO.LISP"
    388388               #+allegro "/test/foo.lisp" ;; BUG
    389                #+abcl "/TEST/FOO.LISP" ;; BUG
     389               #+abcl "DEMO2:TEST;FOO.LISP"
    390390               ))
    391391
     
    442442                       #+cmu 'file-error ;; BUG
    443443                       #-(or clisp cmu) 'type-error))
     444
     445(expect (not (string-equal (host-namestring (parse-namestring "OTHER-HOST:ILLEGAL/LPN")) "OTHER-HOST")))
     446(expect (string= (pathname-name (parse-namestring "OTHER-HOST:ILLEGAL/LPN")) "LPN"))
     447
     448(setf (logical-pathname-translations "test0")
     449      '(("**;*.*.*"              "/library/foo/**/")))
     450(expect (equal (namestring (translate-logical-pathname
     451                            "test0:foo;bar;baz;mum.quux"))
     452               "/library/foo/foo/bar/baz/mum.quux"))
     453(setf (logical-pathname-translations "prog")
     454      '(("RELEASED;*.*.*"        "MY-UNIX:/sys/bin/my-prog/")
     455        ("RELEASED;*;*.*.*"      "MY-UNIX:/sys/bin/my-prog/*/")
     456        ("EXPERIMENTAL;*.*.*"    "MY-UNIX:/usr/Joe/development/prog/")
     457        ("EXPERIMENTAL;*;*.*.*"  "MY-UNIX:/usr/Joe/development/prog/*/")))
     458(setf (logical-pathname-translations "prog")
     459      '(("CODE;*.*.*"             "/lib/prog/")))
     460#-allegro
     461(expect (equal (namestring (translate-logical-pathname
     462                            "prog:code;documentation.lisp"))
     463               "/lib/prog/documentation.lisp"))
     464(setf (logical-pathname-translations "prog")
     465      '(("CODE;DOCUMENTATION.*.*" "/lib/prog/docum.*")
     466        ("CODE;*.*.*"             "/lib/prog/")))
     467#-allegro
     468(expect (equal (namestring (translate-logical-pathname
     469                            "prog:code;documentation.lisp"))
     470               "/lib/prog/docum.lisp"))
Note: See TracChangeset for help on using the changeset viewer.