[Sbcl-commits] CVS: sbcl/tests filesys.test.sh,1.9,1.10

[Nikodemus S. <de...@us...>]

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

Modified Files:
	filesys.test.sh 
Log Message:
0.9.1.27: (truename "symlink-to-dir") === (truename "symlink-to-dir/")
  * it appears that libc doesn't like trailing slashes at the end of symlink
     names; paper over this sillyness.


Index: filesys.test.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/filesys.test.sh,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- filesys.test.sh	27 Jan 2004 12:02:46 -0000	1.9
+++ filesys.test.sh	6 Jun 2005 06:54:22 -0000	1.10
@@ -18,6 +18,7 @@
 echo this is a test > $testdir/test-2.tmp
 echo this is a test > $testdir/wild\?test.tmp
 cd $testdir
+ln -s $testdir dirlinktest
 ln -s test-1.tmp link-1
 ln -s `pwd`/test-2.tmp link-2
 ln -s i-do-not-exist link-3
@@ -25,7 +26,8 @@
 ln -s link-5 link-6
 ln -s `pwd`/link-6 link-5
 expected_truenames=\
-"'(#p\"$testdir/link-3\"\
+"'(#p\"$testdir/\"\
+   #p\"$testdir/link-3\"\
    #p\"$testdir/link-4\"\
    #p\"$testdir/link-5\"\
    #p\"$testdir/link-6\"\
@@ -39,6 +41,8 @@
     (format t "~&TRUENAMES=~S~%" truenames)
     (finish-output)
     (assert (equal truenames $expected_truenames)))
+  (assert (equal (truename "dirlinktest") #p"$testdir/"))
+  (assert (equal (truename "dirlinktest/") #p"$testdir/"))
   (assert (equal (truename "test-1.tmp") #p"$testdir/test-1.tmp"))
   (assert (equal (truename "link-1")     #p"$testdir/test-1.tmp"))
   (assert (equal (truename "link-2")     #p"$testdir/test-2.tmp"))