From: William H. N. <wn...@us...> - 2002-09-19 17:27:00
|
Update of /cvsroot/sbcl/sbcl/tests In directory usw-pr-cvs1:/tmp/cvs-serv17040/tests Modified Files: run-tests.sh Added Files: core.test.sh Log Message: 0.7.7.32: added test case for can't-run-saved-.core bug --- NEW FILE: core.test.sh --- #!/bin/sh # tests related to .core files # This software is part of the SBCL system. See the README file for # more information. # # 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 # 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 # mismatch grot. # # "serves yall right for fiddling with too much stuff" # -- 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 (defun foo (x) (+ x 11)) (save-lisp-and-die "$tmpcore") EOF $SBCL_ALLOWING_CORE --core "$tmpcore" <<EOF (quit :unix-status (foo 10)) EOF if [ $? = 21 ]; then echo "/Basic SAVE-LISP-AND-DIE worked, good." else echo "failure in basic SAVE-LISP-AND-DIE: $?" exit 1 fi rm -f $tmpcore echo "/returning success from core.test.sh" exit 104 Index: run-tests.sh =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/run-tests.sh,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- run-tests.sh 6 Jun 2002 14:08:10 -0000 1.20 +++ run-tests.sh 19 Sep 2002 17:26:57 -0000 1.21 @@ -19,9 +19,15 @@ # pathname, but now we take care to bind it to an absolute pathname (still # generated relative to `pwd` in the tests/ directory) so that tests # can chdir before invoking SBCL and still work. -SBCL="${1:-`pwd`/../src/runtime/sbcl --core `pwd`/../output/sbcl.core --noinform --sysinit /dev/null --userinit /dev/null --noprint --disable-debugger}" +sbclstem=`pwd`/../src/runtime/sbcl +SBCL="${1:-$sbclstem --core `pwd`/../output/sbcl.core --noinform --sysinit /dev/null --userinit /dev/null --noprint --disable-debugger}" export SBCL echo /running tests on SBCL=\'$SBCL\' +# more or less like SBCL, but without enough grot removed that appending +# a --core command line argument works +SBCL_ALLOWING_CORE=${1:-$sbclstem} +export SBCL_ALLOWING_CORE +echo /with SBCL_ALLOWING_CORE=\'$SBCL_ALLOWING_CORE\' # "Ten four" is the closest numerical slang I can find to "OK", so # it's the Unix status value that we expect from a successful test. |