X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffilesys.test.sh;h=3580d869b72cf20d6559eb82b7a8de2d8be85363;hb=17794352c2ef078a1fc3cdd306f17f7328edf40b;hp=753009065603960f804f6c311b8cd98bb2da7a18;hpb=92018c1900a1c690f0235c7b752dbe4ce35af35c;p=sbcl.git

diff --git a/tests/filesys.test.sh b/tests/filesys.test.sh
index 7530090..3580d86 100644
--- a/tests/filesys.test.sh
+++ b/tests/filesys.test.sh
@@ -12,10 +12,11 @@
 # more information.
 
 # Test DIRECTORY and TRUENAME.
-testdir=`pwd`"/filesys-test-$$"
+testdir=`/bin/pwd`"/filesys-test-$$"
 mkdir $testdir
 echo this is a test > $testdir/test-1.tmp
 echo this is a test > $testdir/test-2.tmp
+echo this is a test > $testdir/wild\?test.tmp
 cd $testdir
 ln -s test-1.tmp link-1
 ln -s `pwd`/test-2.tmp link-2
@@ -29,7 +30,8 @@ expected_truenames=\
    #p\"$testdir/link-5\"\
    #p\"$testdir/link-6\"\
    #p\"$testdir/test-1.tmp\"\
-   #p\"$testdir/test-2.tmp\")"
+   #p\"$testdir/test-2.tmp\"\
+   #p\"$testdir/wild\\\\?test.tmp\")"
 $SBCL <<EOF
   (in-package :cl-user)
   (let* ((directory (directory "./*.*"))
@@ -86,6 +88,8 @@ mkdir animal/vertebrate/mammal/bear
 mkdir animal/vertebrate/mammal/mythical
 mkdir animal/vertebrate/mammal/rodent
 mkdir animal/vertebrate/mammal/ruminant
+touch animal/vertebrate/mammal/platypus
+touch animal/vertebrate/mammal/walrus
 touch animal/vertebrate/mammal/bear/grizzly
 touch animal/vertebrate/mammal/mythical/mermaid
 touch animal/vertebrate/mammal/mythical/unicorn
@@ -180,7 +184,12 @@ Lisp filename syntax idiosyncrasies)."
   (need-match "animal/vertebrate/mammal/../**/robot/*.*" nil)
   (need-match "animal/vertebrate/mammal/robot/../**/../**/*.*" nil))
 (need-matches)
+(sb-ext:quit :unix-status 52)
 EOF
+if [ $? != 52 ]; then
+    echo DIRECTORY/TRUENAME test part 1 failed, unexpected SBCL return code=$?
+    exit 1
+fi
 cd ..
 rm -r $testdir