Changeset 13324

Timestamp:

06/10/11 15:52:34 (11 years ago)

Author:

Mark Evenson

Message:

Fix problems with remaining jar-pathname tests.

File:

• trunk/abcl/test/lisp/abcl/jar-pathname.lisp (modified) (3 diffs)

trunk/abcl/test/lisp/abcl/jar-pathname.lisp

@@ -9 +9 @@
                                (java:jstatic "createTempFile" "java.io.File" "jar" "tmp"))))
     (setf *tmp-directory*
-          (make-pathname :directory 
-                         (append 
-                          (pathname-directory (pathname temp-file))
-                          '("jar-pathname-tests"))))))
+          (truename (make-pathname :directory 
+                                   (append 
+                                    (pathname-directory (pathname temp-file))
+                                    '("jar-pathname-tests")))))))
 
 (defvar *foo.lisp*
@@ -205 +205 @@
         (probe-file "jar:file:baz.jar!/eek.lisp"))
   #p#.(format nil "jar:file:~A/baz.jar!/eek.lisp" 
-              (namestring *abcl-test-directory*)))
+              (namestring *tmp-directory*)))
 
 (deftest jar-pathname.probe-file.2
@@ -375 +375 @@
 
 (deftest jar-pathname.11
-    (let ((s "jar:file:/foo/bar/a%20space%3f/that!/this"))
+    (let ((s (string-downcase "jar:file:/foo/bar/a%20space%3f/that!/this")))
       (string= s
-             (namestring (pathname s))))
+               (string-downcase (namestring (pathname s)))))
   t)