# 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
+. ./subr.sh
+
+use_test_subdirectory
+
+tmpcore=$TEST_FILESTEM.core
+tmpoutput=$TEST_FILESTEM.txt
+
+run_sbcl <<EOF
+ (save-lisp-and-die "$tmpcore" :toplevel (lambda () 42))
+EOF
+run_sbcl_with_core "$tmpcore" --no-userinit --no-sysinit
+check_status_maybe_lose "SAVE-LISP-AND-DIE :TOPLEVEL" $? 0 "(saved core ran)"
# 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
# -- Eric Marsden, <http://tunes.org/~nef/logs/lisp/02.09.15>
#
# diagnosed and fixed by Dan Barlow in sbcl-0.7.7.29
-$SBCL <<EOF
+run_sbcl <<EOF
(defun foo (x) (+ x 11))
(save-lisp-and-die "$tmpcore")
EOF
-$SBCL_ALLOWING_CORE --core "$tmpcore" <<EOF
- (quit :unix-status (foo 10))
+run_sbcl_with_core "$tmpcore" --no-userinit --no-sysinit <<EOF
+ (exit :code (foo 10))
+EOF
+check_status_maybe_lose "Basic SAVE-LISP-AND-DIE" $? 21 "(saved core ran)"
+
+# In sbcl-0.9.8 saving cores with callbacks didn't work on gencgc platforms
+run_sbcl <<EOF
+ (defun bar ()
+ (format t "~&Callbacks not supported, skipping~%")
+ (exit :code 42))
+ #+alien-callbacks
+ (progn
+ (sb-alien::define-alien-callback foo int () 42)
+ (defun bar () (exit :code (alien-funcall foo))))
+ (save-lisp-and-die "$tmpcore")
+EOF
+run_sbcl_with_core "$tmpcore" --no-userinit --no-sysinit <<EOF
+ (bar)
+EOF
+check_status_maybe_lose "Callbacks after SAVE-LISP-AND-DIE" $? \
+ 42 "(callback function ran)"
+
+# test suppression of banner in executable cores
+run_sbcl <<EOF
+ (save-lisp-and-die "$tmpcore" :executable t)
EOF
-if [ $? = 21 ]; then
- echo "/Basic SAVE-LISP-AND-DIE worked, good."
+chmod u+x "$tmpcore"
+./"$tmpcore" > "$tmpoutput" --no-userinit --no-sysinit --noprint <<EOF
+ (exit :code 71)
+EOF
+status=$?
+if [ $status != 71 ]; then
+ echo "failure in banner suppression: $status"
+ 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 basic SAVE-LISP-AND-DIE: $?"
+ echo "failure in banner suppression: $tmpoutput was not created or something funny happened."
+ exit 1
+fi
+
+# saving runtime options _from_ executable cores
+run_sbcl <<EOF
+ (save-lisp-and-die "$tmpcore" :executable t)
+EOF
+chmod u+x "$tmpcore"
+./"$tmpcore" --no-userinit <<EOF
+ (save-lisp-and-die "$tmpcore" :executable t :save-runtime-options t)
+EOF
+chmod u+x "$tmpcore"
+./"$tmpcore" --no-userinit --version --eval '(exit)' <<EOF
+ (when (equal *posix-argv* '("./$tmpcore" "--version" "--eval" "(exit)"))
+ (exit :code 42))
+EOF
+status=$?
+if [ $status != 42 ]; then
+ echo "saving runtime options from executable failed"
exit 1
fi
-rm -f $tmpcore
-echo "/returning success from core.test.sh"
-exit 104
+rm "$tmpcore"
+run_sbcl <<EOF
+ (save-lisp-and-die "$tmpcore" :toplevel (lambda () 42)
+ :compression (and (member :sb-core-compression *features*) t))
+EOF
+run_sbcl_with_core "$tmpcore" --no-userinit --no-sysinit
+check_status_maybe_lose "SAVE-LISP-AND-DIE :COMPRESS" $? 0 "(compressed saved core ran)"
+
+rm "$tmpcore"
+run_sbcl <<EOF
+ (save-lisp-and-die "$tmpcore" :toplevel (lambda () 42) :executable t
+ :compression (and (member :sb-core-compression *features*) t))
+EOF
+chmod u+x "$tmpcore"
+./"$tmpcore" --no-userinit --no-sysinit
+check_status_maybe_lose "SAVE-LISP-AND-DIE :EXECUTABLE-COMPRESS" $? 0 "(executable compressed saved core ran)"
+
+exit $EXIT_TEST_WIN