X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fpathnames.impure.lisp;h=891c589cc1cd00fa94a78d7f15fcae7b445c9731;hb=e404d36bb823d93ad20ccd6c653244cf443f2633;hp=07f4f317b80a4f0bb6cab330718b0c79a174f468;hpb=0e5c7ae9b0e73edb5efcb9d334760ff2171d17ab;p=sbcl.git

diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index 07f4f31..891c589 100644
--- a/tests/pathnames.impure.lisp
+++ b/tests/pathnames.impure.lisp
@@ -356,6 +356,18 @@
                  (list* 'write-to-string pathname vars)
                  expected
                  actual))
+
+;;; we got (truename "/") wrong for about 6 months.  Check that it's
+;;; still right.
+(let ((pathname (truename "/")))
+  (assert (equalp pathname #p"/"))
+  (assert (equal (pathname-directory pathname) '(:absolute))))
+
+;;; we failed to unparse logical pathnames with :NAME :WILD :TYPE NIL.
+;;; (Reported by Pascal Bourguignon.
+(let ((pathname (make-pathname :host "SYS" :directory '(:absolute :wild-inferiors)
+                               :name :wild :type nil)))
+  (assert (string= (namestring pathname) "SYS:**;*"))
+  (assert (string= (write-to-string pathname :readably t) "#P\"SYS:**;*\"")))
 
 ;;;; success
-(quit :unix-status 104)