Changeset 13324


Ignore:
Timestamp:
06/10/11 15:52:34 (10 years ago)
Author:
Mark Evenson
Message:

Fix problems with remaining jar-pathname tests.

File:
1 edited

Legend:

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

    r13323 r13324  
    99                               (java:jstatic "createTempFile" "java.io.File" "jar" "tmp"))))
    1010    (setf *tmp-directory*
    11           (make-pathname :directory
    12                          (append
    13                           (pathname-directory (pathname temp-file))
    14                           '("jar-pathname-tests"))))))
     11          (truename (make-pathname :directory
     12                                   (append
     13                                    (pathname-directory (pathname temp-file))
     14                                    '("jar-pathname-tests")))))))
    1515
    1616(defvar *foo.lisp*
     
    205205        (probe-file "jar:file:baz.jar!/eek.lisp"))
    206206  #p#.(format nil "jar:file:~A/baz.jar!/eek.lisp"
    207               (namestring *abcl-test-directory*)))
     207              (namestring *tmp-directory*)))
    208208
    209209(deftest jar-pathname.probe-file.2
     
    375375
    376376(deftest jar-pathname.11
    377     (let ((s "jar:file:/foo/bar/a%20space%3f/that!/this"))
     377    (let ((s (string-downcase "jar:file:/foo/bar/a%20space%3f/that!/this")))
    378378      (string= s
    379              (namestring (pathname s))))
     379               (string-downcase (namestring (pathname s)))))
    380380  t)
    381381
Note: See TracChangeset for help on using the changeset viewer.