Changeset 10001


Ignore:
Timestamp:
09/22/05 00:27:01 (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

    r9993 r10001  
    598598         (frob pathname-name)
    599599         (frob pathname-type))))
     600
     601(expect (string=
     602         (namestring (parse-namestring "/foo" (host-namestring #p"/bar")))
     603         "/foo"))
     604(expect (string=
     605         (namestring (parse-namestring "FOO" (host-namestring #p"SCRATCH:BAR")))
     606         "SCRATCH:FOO"))
     607#-(or allegro clisp cmu)
     608(expect (signals-error
     609         (setf (logical-pathname-translations "")
     610               (list '("**;*.*.*" "/**/*.*")))
     611         'error))
Note: See TracChangeset for help on using the changeset viewer.