X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fpathnames.impure.lisp;h=bb23ae0f1adc67b51960fc33caccb9e6ba982ab0;hb=4a4da2875171c4802af72defcb71d720e8fa8093;hp=b9a416e3f25880919b0e5225230f30ea3a33f355;hpb=771b864c8f32af7734bc0550aeaf1539fc4df194;p=sbcl.git

diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index b9a416e..bb23ae0 100644
--- a/tests/pathnames.impure.lisp
+++ b/tests/pathnames.impure.lisp
@@ -315,8 +315,8 @@
 	  (assert (equal (read-from-string (format nil "~S" p)) p)))
       (print-not-readable () nil))))
 
-;;; BUG 330: "PARSE-NAMESTRING should accept namestrings as the default argument"
-;;; ...and streams as well
+;;; BUG 330: "PARSE-NAMESTRING should accept namestrings as the
+;;; default argument" ...and streams as well
 (assert (equal (parse-namestring "foo" nil "/")
 	       (parse-namestring "foo" nil #P"/")))
 (let ((test "parse-namestring-test.tmp"))
@@ -335,6 +335,9 @@
 ;;; ENOUGH-NAMESTRING should probably not fail when the namestring in
 ;;; question has a :RELATIVE pathname.
 (assert (equal (enough-namestring #p"foo" #p"./") "foo"))
-
+
+;;; bug reported by Artem V. Andreev: :WILD not handled in unparsing
+;;; directory lists.
+(assert (equal (namestring #p"/tmp/*/") "/tmp/*/"))
 ;;;; success
 (quit :unix-status 104)