X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fpathnames.impure.lisp;h=945d25f7e8ba8506945d5da7ecf2ad6150f74a17;hb=c3ba3bc968894227fd936ffd777f94c100bdea7d;hp=927f288c4f2634d8d531dcf39c97313e0d15c0cb;hpb=eb4330788f7b527b7d93a434a6fbb584c0563456;p=sbcl.git

diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index 927f288..945d25f 100644
--- a/tests/pathnames.impure.lisp
+++ b/tests/pathnames.impure.lisp
@@ -410,4 +410,19 @@
 
 (enough-namestring #p".a*")
 
+
+(assert (eq 99
+            (pathname-version
+             (translate-pathname
+              (make-pathname :name "foo" :type "bar" :version 99)
+              (make-pathname :name :wild :type :wild :version :wild)
+              (make-pathname :name :wild :type :wild :version :wild)))))
+
+(assert (eq 99
+            (pathname-version
+             (translate-pathname
+              (make-pathname :name "foo" :type "bar" :version 99)
+              (make-pathname :name :wild :type :wild :version :wild)
+              (make-pathname :name :wild :type :wild :version nil)))))
+
 ;;;; success