Changeset 9986


Ignore:
Timestamp:
09/19/05 14:05:03 (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

    r9984 r9986  
    399399(expect (signals-error (make-pathname :host "EFFLUVIA" :directory "bla" :name "bar" :type "&baz")
    400400                       'error))
     401
     402(expect (equal (namestring (parse-namestring "" "EFFLUVIA")) "EFFLUVIA:"))
     403
     404#-cmu
     405(expect (equal (namestring (parse-namestring "" :unspecific)) ""))
     406#+cmu
     407;; It seems reasonable to signal an error here, since the HOST argument to
     408;; PARSE-NAMESTRING is specified to be "a valid pathname host, a logical host,
     409;; or NIL".
     410(expect (signals-error (parse-namestring "" :unspecific) 'type-error))
Note: See TracChangeset for help on using the changeset viewer.