X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fcore.test.sh;h=1c5a0cf8a42961ec2e5bc3c9b38c50416b66092a;hb=3106aee96a20d1a76a114e504bc2931f8196cace;hp=84c6a3da0c8cd5843afec453514460420d01e274;hpb=e1905b479292158bd2bacdebb81e27b4da041097;p=sbcl.git

diff --git a/tests/core.test.sh b/tests/core.test.sh
index 84c6a3d..1c5a0cf 100644
--- a/tests/core.test.sh
+++ b/tests/core.test.sh
@@ -14,7 +14,8 @@
 # more information.
 
 tmpcore="core-test-sh-$$.core"
-rm -f $tmpcore
+tmpoutput="core-test-sh-$$.output.txt"
+rm -f "$tmpcore" "$tmpoutput"
 
 # In sbcl-0.7.7 SAVE-LISP-AND-DIE didn't work at all because of
 # flakiness caused by consing/GC/purify twice-and-at-least-twice
@@ -61,6 +62,29 @@ else
     exit 1
 fi
 
-rm -f $tmpcore
+# test suppression of banner in executable cores
+$SBCL <<EOF
+  (save-lisp-and-die "$tmpcore" :executable t)
+EOF
+chmod u+x "$tmpcore"
+./"$tmpcore" >"$tmpoutput" --eval '(quit :unix-status 71)'
+if [ $? != 71 ]; then
+  echo "failure in banner suppression: $?"
+  exit 1
+elif [ -s "$tmpoutput" ]; then
+  echo "failure in banner suppression: nonempty output:"
+  echo ---
+  cat "$tmpoutput"
+  echo ---
+  exit 1
+elif [ -f "$tmpoutput" ]; then
+  echo "/Executable suppressed banner, good."
+else
+  echo "failure in banner suppression: $tmpoutput was not created or something funny happened."
+  exit 1
+fi
+
+rm -f "$tmpcore"
+rm -f "$tmpoutput"
 echo "/returning success from core.test.sh"
 exit 104