Ignore:
Timestamp:
01/08/10 08:22:55 (11 years ago)
Author:
Mark Evenson
Message:

Adjust tests for jar:file syntax should work with TRUENAME.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/jar-file.lisp

    r12301 r12343  
    1616
    1717(defvar *jar-file-init* nil)
    18 
    1918
    2019(defmacro with-jar-file-init (&rest body)
     
    7069    (with-jar-file-init
    7170        (probe-file "jar:file:baz.jar!/eek.lisp"))
    72   #p"jar:file:baz.jar!/eek.lisp")
     71  #p"jar:file:baz.jar!/eek.lisp") ; WRONG: PROBE-FILE should return
     72                                  ; TRUENAME on existence.
    7373
    7474
     
    7878  #p"jar:file:baz.jar!/foo")
    7979
    80 
     80(deftest jar-file-truename.1
     81    (truename "jar:file:baz.jar!/foo")
     82  (format nil "jar:file:~S/baz.jar!/foo"
     83          *this-directory*))
     84         
    8185
    8286
Note: See TracChangeset for help on using the changeset viewer.