Changeset 9988


Ignore:
Timestamp:
09/19/05 15:37:47 (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

    r9986 r9988  
    373373#-(or sbcl cmu allegro abcl)
    374374;; BUG Pathnames should match if the following translation is to work.
    375 (expect (pathname-match-p "demo:;foo.lisp" "demo:;**;*.*.*"))
     375(expect (pathname-match-p "demo1:;foo.lisp" "demo1:;**;*.*.*"))
    376376#+clisp
    377377(expect (pathname-match-p "demo1:;foo.lisp" ";**;*.*.*"))
     
    409409;; or NIL".
    410410(expect (signals-error (parse-namestring "" :unspecific) 'type-error))
     411
     412(expect (equal (namestring (parse-namestring ""
     413                                             (pathname-host
     414                                              (translate-logical-pathname
     415                                               "EFFLUVIA:"))))
     416               ""))
     417
     418;; PARSE-NAMESTRING host mismatch: "If HOST is supplied and not NIL, and THING
     419;; contains a manifest host name, an error of type ERROR is signaled if the
     420;; hosts do not match."
     421(expect (signals-error (parse-namestring "effluvia:foo.bar" "demo2") 'error))
     422
     423(setf (logical-pathname-translations "bazooka")
     424      '(("todemo;*.*.*" "demo0:*.*.*")))
     425#+allegro ;; BUG
     426(expect (equal (namestring (translate-logical-pathname "bazooka:todemo;x.y")) "/tmp/todemo/x.y"))
     427#+clisp ;; BUG
     428(expect (signals-error (translate-logical-pathname "bazooka:todemo;x.y") 'error))
     429#-(or allegro clisp)
     430(expect (equal (namestring (translate-logical-pathname "bazooka:todemo;x.y")) "/tmp/x.y"))
     431#+clisp ;; BUG
     432(expect (signals-error (translate-logical-pathname "demo0:x.y") 'error))
     433#-clisp
     434(expect (equal (namestring (translate-logical-pathname "demo0:x.y")) "/tmp/x.y"))
     435#-(or allegro clisp)
     436(expect (equal (namestring (translate-logical-pathname "bazooka:todemo;x.y"))
     437               (namestring (translate-logical-pathname "demo0:x.y"))))
     438
     439;; "If HOST is incorrectly supplied, an error of type TYPE-ERROR is signaled."
     440(expect (signals-error (logical-pathname-translations "unregistered-host")
     441                       #+clisp 'error ;; BUG
     442                       #+cmu 'file-error ;; BUG
     443                       #-(or clisp cmu) 'type-error))
Note: See TracChangeset for help on using the changeset viewer.