Changeset 13324
- Timestamp:
- 06/10/11 15:52:34 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/test/lisp/abcl/jar-pathname.lisp
r13323 r13324 9 9 (java:jstatic "createTempFile" "java.io.File" "jar" "tmp")))) 10 10 (setf *tmp-directory* 11 ( make-pathname :directory12 (append13 (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"))))))) 15 15 16 16 (defvar *foo.lisp* … … 205 205 (probe-file "jar:file:baz.jar!/eek.lisp")) 206 206 #p#.(format nil "jar:file:~A/baz.jar!/eek.lisp" 207 (namestring * abcl-test-directory*)))207 (namestring *tmp-directory*))) 208 208 209 209 (deftest jar-pathname.probe-file.2 … … 375 375 376 376 (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"))) 378 378 (string= s 379 (namestring (pathname s))))379 (string-downcase (namestring (pathname s))))) 380 380 t) 381 381
Note: See TracChangeset
for help on using the changeset viewer.