Changeset 13294 for trunk/abcl/test/lisp/abcl/pathname-tests.lisp

Timestamp:

05/24/11 12:25:55 (12 years ago)

Author:

Mark Evenson

Message:

Fix #150: MAKE-PATHNAME ignores version in :DEFAULTS.

File:

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

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

@@ -1718 +1718 @@
     (make-pathname :directory nil :defaults "/home/fare/")
   #p"")
+
+(deftest pathname.make-pathname.2
+    (let ((p (make-pathname 
+              :defaults (make-pathname :name :wild :type :wild :version :wild :directory :wild))))
+      (values 
+       (pathname-name p) (pathname-type p) (pathname-version p) (pathname-directory p)))
+  :wild :wild :wild (:absolute :wild))
+