[Sbcl-commits] CVS: sbcl/tests pathnames.impure.lisp,1.21,1.22

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28886/tests

Modified Files:
	pathnames.impure.lisp 
Log Message:
0.8.13.77:
	Some bugfixes
	... make failures of REQUIRE printable.  How did that happen?
	... patch from Dave Roberts (sbcl-devel 2004-08-18) for
		sb-bsd-sockets export
	... fix for ENOUGH-NAMESTRING, allowing :relative pathnames
		to be namestringized.


Index: pathnames.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/pathnames.impure.lisp,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- pathnames.impure.lisp	1 Jun 2004 15:27:27 -0000	1.21
+++ pathnames.impure.lisp	18 Aug 2004 17:23:18 -0000	1.22
@@ -331,5 +331,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)