X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffilesys.test.sh;h=4d78f7d2be66313e4e14ffc971b3b0b9117bf5e1;hb=079ef9dad558ca07cb8178ef428bf738112174fa;hp=10ba9e55eaac550a05f158f4084fb0c87d5742a5;hpb=eb356db4c5c358c3a8f05877a07179994b43bf17;p=sbcl.git

diff --git a/tests/filesys.test.sh b/tests/filesys.test.sh
index 10ba9e5..4d78f7d 100644
--- a/tests/filesys.test.sh
+++ b/tests/filesys.test.sh
@@ -177,14 +177,21 @@ Lisp filename syntax idiosyncrasies)."
     (need-match "animal/vertebrate/**/*.*" vertebrates)
     (need-match "animal/vertebrate/mammal/../**/*.*" vertebrates)
     (need-match "animal/vertebrate/mammal/../**/**/*.*" vertebrates)
+    #+nil
     (need-match "animal/vertebrate/mammal/mythical/../**/../**/*.*"
 		vertebrates))
   (need-match "animal/vertebrate/**/robot.*" nil)
   (need-match "animal/vertebrate/mammal/../**/*.robot" nil)
   (need-match "animal/vertebrate/mammal/../**/robot/*.*" nil)
+  #+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