1.0.23.21: Stack allocated conses for MIPS.
[sbcl.git] / tests / core.test.sh
1 #!/bin/sh
2
3 # tests related to .core files
4
5 # This software is part of the SBCL system. See the README file for
6 # more information.
7 #
8 # While most of SBCL is derived from the CMU CL system, the test
9 # files (like this one) were written from scratch after the fork
10 # from CMU CL.
11 #
12 # This software is in the public domain and is provided with
13 # absolutely no warranty. See the COPYING and CREDITS files for
14 # more information.
15
16 . ./subr.sh
17
18 use_test_subdirectory
19
20 tmpcore=$TEST_FILESTEM.core
21 tmpoutput=$TEST_FILESTEM.txt
22
23 # In sbcl-0.7.7 SAVE-LISP-AND-DIE didn't work at all because of
24 # flakiness caused by consing/GC/purify twice-and-at-least-twice
25 # mismatch grot.
26 #
27 # "serves yall right for fiddling with too much stuff"
28 #   -- Eric Marsden, <http://tunes.org/~nef/logs/lisp/02.09.15>
29 #
30 # diagnosed and fixed by Dan Barlow in sbcl-0.7.7.29
31 run_sbcl <<EOF
32   (defun foo (x) (+ x 11))
33   (save-lisp-and-die "$tmpcore")
34 EOF
35 run_sbcl_with_core "$tmpcore" --no-userinit --no-sysinit <<EOF
36   (quit :unix-status (foo 10))
37 EOF
38 check_status_maybe_lose "Basic SAVE-LISP-AND-DIE" $? 21 "(saved core ran)"
39
40 # In sbcl-0.9.8 saving cores with callbacks didn't work on gencgc platforms
41 run_sbcl <<EOF
42   (defun bar ()
43     (format t "~&Callbacks not supported, skipping~%")
44     (quit :unix-status 42))
45   #+alien-callbacks
46   (progn
47     (sb-alien::define-alien-callback foo int () 42)
48     (defun bar () (quit :unix-status (alien-funcall foo))))
49   (save-lisp-and-die "$tmpcore")
50 EOF
51 run_sbcl_with_core "$tmpcore" --no-userinit --no-sysinit <<EOF
52   (bar)
53 EOF
54 check_status_maybe_lose "Callbacks after SAVE-LISP-AND-DIE" $? \
55     42 "(callback function ran)"
56
57 # test suppression of banner in executable cores
58 run_sbcl <<EOF
59   (save-lisp-and-die "$tmpcore" :executable t)
60 EOF
61 chmod u+x "$tmpcore"
62 ./"$tmpcore" > "$tmpoutput" --no-userinit --no-sysinit --noprint <<EOF 
63   (quit :unix-status 71)
64 EOF
65 status=$?
66 if [ $status != 71 ]; then
67   echo "failure in banner suppression: $status"
68   exit 1
69 elif [ -s "$tmpoutput" ]; then
70   echo "failure in banner suppression: nonempty output:"
71   echo ---
72   cat "$tmpoutput"
73   echo ---
74   exit 1
75 elif [ -f "$tmpoutput" ]; then
76   echo "/Executable suppressed banner, good."
77 else
78   echo "failure in banner suppression: $tmpoutput was not created or something funny happened."
79   exit 1
80 fi
81
82 exit $EXIT_TEST_WIN