X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcore.test.sh;h=1fd0ad4a7532bdb3f91ab1a9749e7188497efedc;hb=0e03a9ac950b78d776c4869c809e202d9e929f39;hp=224247083ad5b0bf8177d6155bede056f1104934;hpb=ce7ae6fa75e33b4e484ba7b4e0d79ec2b9d424fd;p=sbcl.git

diff --git a/tests/core.test.sh b/tests/core.test.sh
index 2242470..1fd0ad4 100644
--- a/tests/core.test.sh
+++ b/tests/core.test.sh
@@ -8,13 +8,14 @@
 # While most of SBCL is derived from the CMU CL system, the test
 # files (like this one) were written from scratch after the fork
 # from CMU CL.
-# 
+#
 # This software is in the public domain and is provided with
 # absolutely no warranty. See the COPYING and CREDITS files for
 # 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
@@ -28,7 +29,8 @@ $SBCL <<EOF
   (defun foo (x) (+ x 11))
   (save-lisp-and-die "$tmpcore")
 EOF
-$SBCL_ALLOWING_CORE --core "$tmpcore" <<EOF
+$SBCL_ALLOWING_CORE --core "$tmpcore" \
+--userinit /dev/null --sysinit /dev/null <<EOF
   (quit :unix-status (foo 10))
 EOF
 if [ $? = 21 ]; then
@@ -38,6 +40,52 @@ else
     exit 1
 fi
 
-rm -f $tmpcore
+# In sbcl-0.9.8 saving cores with callbacks didn't work on gencgc platforms
+$SBCL <<EOF
+  (defun bar ()
+    (format t "~&Callbacks not supported, skipping~%")
+    (quit :unix-status 42))
+  #+alien-callbacks
+  (progn
+    (sb-alien::define-alien-callback foo int () 42)
+    (defun bar () (quit :unix-status (alien-funcall foo))))
+  (save-lisp-and-die "$tmpcore")
+EOF
+$SBCL_ALLOWING_CORE --core "$tmpcore" \
+--userinit /dev/null --sysinit /dev/null <<EOF
+  (bar)
+EOF
+if [ $? = 42 ]; then
+    echo "/Callbacks after SAVE-LISP-AND-DIE worked, good."
+else
+    echo "failure in basic SAVE-LISP-AND-DIE: $?"
+    exit 1
+fi
+
+# test suppression of banner in executable cores
+$SBCL <<EOF
+  (save-lisp-and-die "$tmpcore" :executable t)
+EOF
+chmod u+x "$tmpcore"
+./"$tmpcore" >"$tmpoutput" \
+  --no-userinit --no-sysinit --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