X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=tests%2Fpathnames.impure.lisp;h=b9a416e3f25880919b0e5225230f30ea3a33f355;hb=b1b85bbf17f686a0787304a04cf0e01e8216d038;hp=a58c08eb0fd99e7b92dee070c100f96c8c63b04c;hpb=e73a30c901ab234291aefc9f1e73507650628892;p=sbcl.git

diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index a58c08e..b9a416e 100644
--- a/tests/pathnames.impure.lisp
+++ b/tests/pathnames.impure.lisp
@@ -309,6 +309,7 @@
 		  (parse-namestring "SCRATCH:FOO.TXT.NEWEST")
 		  (parse-namestring "SCRATCH:FOO.TXT"))))
   (dolist (p pathnames)
+    (print p)
     (handler-case
 	(let ((*print-readably* t))
 	  (assert (equal (read-from-string (format nil "~S" p)) p)))
@@ -331,5 +332,9 @@
     (when (probe-file test)
       (delete-file test))))
 
+;;; ENOUGH-NAMESTRING should probably not fail when the namestring in
+;;; question has a :RELATIVE pathname.
+(assert (equal (enough-namestring #p"foo" #p"./") "foo"))
+
 ;;;; success
 (quit :unix-status 104)