Changeset 10003


Ignore:
Timestamp:
09/22/05 16:49:56 (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

    r10002 r10003  
    7373
    7474(defmacro check-namestring (pathname namestring)
    75   `(expect (string= (namestring ,pathname) 
     75  `(expect (string= (namestring ,pathname)
    7676                    #+windows (substitute #\\ #\/ ,namestring)
    7777                    #-windows ,namestring)))
     
    479479(expect (equal (namestring (translate-logical-pathname "demo0:x.y"))
    480480               #-windows "/tmp/x.y"
    481                #+windows "\\tmp\\x.y"))               
     481               #+windows "\\tmp\\x.y"))
    482482#-(or allegro clisp)
    483483(expect (equal (namestring (translate-logical-pathname "bazooka:todemo;x.y"))
     
    517517;; doesn't have versions should ignore the version slot. CMU CL didn't ignore
    518518;; this as it should, but we [i.e. SBCL] do."
     519#-cmucl
    519520(check-namestring (translate-logical-pathname "test0:foo;bar;baz;mum.quux.3")
    520521                  "/library/foo/foo/bar/baz/mum.quux")
Note: See TracChangeset for help on using the changeset viewer.