Changeset 13698

Timestamp:

11/23/11 19:43:18 (12 years ago)

Author:

Mark Evenson

Message:

Test for ticket #181 for failure somewhere in MERGE-PATHNAMES.

Probably related to underlying Pathname.truename() code from what I
could see in the JVM debugger.

File:

• trunk/abcl/test/lisp/abcl/jar-pathname.lisp (modified) (1 diff)

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

@@ -482 +482 @@
   #p"/foo/d/e/f.lisp")
 
-      
-
-        
-
+;;; ticket #181
+;;; TODO Make reasons for failure more clear
+(deftest jar-pathname.truename.1
+    (let* ((abcl (slot-value (asdf:find-system 'abcl) 'asdf::absolute-pathname))
+           (jar (pathname (format nil "jar:file:~A/dist/abcl-contrib.jar!/jss/jss.asd" (namestring abcl))))
+           (jar-dir (make-pathname :defaults jar :name nil :type nil))
+           (defaults *default-pathname-defaults*))
+      (let ((*default-pathname-defaults* jar-dir))
+        (not (probe-file (merge-pathnames jar)))))
+  nil)