X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Frun-tests.sh;h=a0881b7b38400e6ecad8ecce3542c02389a82d32;hb=2d0b882f9eabffe5e2d32c0e2e7ab06c96f4fea3;hp=400a29efa34e34e5c5b365da0c48a060fd607dbf;hpb=bbfeb9a341eb81fdd80146f38548437b211dc280;p=sbcl.git

diff --git a/tests/run-tests.sh b/tests/run-tests.sh
index 400a29e..a0881b7 100644
--- a/tests/run-tests.sh
+++ b/tests/run-tests.sh
@@ -14,7 +14,7 @@
 # more information.
 
 # how we invoke SBCL
-sbcl=${1:-../src/runtime/sbcl --core ../output/sbcl.core --noinform --noprint --noprogrammer}
+sbcl=${1:-../src/runtime/sbcl --core ../output/sbcl.core --noinform --sysinit /dev/null --userinit /dev/null --noprint --noprogrammer}
 
 # "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.
@@ -66,7 +66,7 @@ echo //running '*.test.sh' tests
 for f in *.test.sh; do
     if [ -f $f ]; then
 	echo //running $f test
-	sh $f ; tenfour
+	sh $f "$sbcl"; tenfour
     fi
 done
 
@@ -79,3 +79,23 @@ for f in *.assertoids; do
 	echo "(load \"$f\")" | $sbcl --eval '(load "assertoid.lisp")' ; tenfour
     fi
 done
+
+# *.pure-cload.lisp files want to be compiled, then loaded. They 
+# can all be done in the same invocation of Lisp.
+echo //running '*.pure-cload.lisp' tests
+for f in *.pure-cload.lisp; do
+    if [ -f $f ]; then
+	echo //running $f test
+	$sbcl <<EOF ; tenfour
+		(compile-file "$f")
+		(progn (load *) (sb-ext:quit :unix-status 104))
+EOF
+    fi
+done
+
+# (*.before-xc.lisp and *.after-xc.lisp files aren't handled in this
+# script at all. They're tests intended to run in the cross-compiler,
+# so that some functionality can be tested even when cold init doesn't
+# work.)
+
+echo '//apparent success (reached end of run-tests.sh normally)'