CVS: sbcl/tests core.test.sh,1.1,1.2 run-tests.sh,1.21,1.22

Update of /cvsroot/sbcl/sbcl/tests
In directory usw-pr-cvs1:/tmp/cvs-serv2973/tests

Modified Files:
        core.test.sh run-tests.sh 
Log Message:
0.7.7.38:
        tweaked core.test.sh to stop using .sbclrc (and so not to blow
                up when .sbclrc loads old .fasl files with a fasl file
                version different from the version expected by the new
                build of SBCL)


Index: core.test.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/core.test.sh,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- core.test.sh        19 Sep 2002 17:26:57 -0000      1.1
+++ core.test.sh        22 Sep 2002 13:01:24 -0000      1.2
@@ -28,7 +28,8 @@
   (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

Index: run-tests.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/run-tests.sh,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- run-tests.sh        19 Sep 2002 17:26:57 -0000      1.21
+++ run-tests.sh        22 Sep 2002 13:01:24 -0000      1.22
@@ -25,6 +25,12 @@
 echo /running tests on SBCL=\'$SBCL\'
 # more or less like SBCL, but without enough grot removed that appending
 # a --core command line argument works
+#
+# (KLUDGE: and also without any magic to suppress --userinit and
+# --sysinit, so if you use it in a test, you need to add those
+# yourself if you want things to be clean. If many tests start using
+# this, we can redo it as a shell function or something so that the
+# magic can be done once and only once.)
 SBCL_ALLOWING_CORE=${1:-$sbclstem}
 export SBCL_ALLOWING_CORE
 echo /with SBCL_ALLOWING_CORE=\'$SBCL_ALLOWING_CORE\'



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf