X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Ftoplevel.sh;h=f7e055bc26586cfe78c9f7f230eb62fb601bc9c8;hb=6d36f2d6954cb79e3c88fef33fe0c3ad63deaea8;hp=a22d4365b151ab0a42f35370a722692e53151d13;hpb=a42922aef908a1b45ae5420d51b2ca7ee1bafb9e;p=sbcl.git

diff --git a/tests/toplevel.sh b/tests/toplevel.sh
index a22d436..f7e055b 100644
--- a/tests/toplevel.sh
+++ b/tests/toplevel.sh
@@ -27,4 +27,12 @@ if [ "`grep -c FOO::BAR $TEST_FILESTEM`" != 1 ] ; then
     echo failed DEFPACKAGE-then-PRINT from --eval form
     exit $EXIT_LOSE
 fi
-exit $EXIT_TEST_WIN
\ No newline at end of file
+
+# --script
+run_sbcl --script script-test.lisp --eval foo \
+  < /dev/null > $TEST_FILESTEM
+if [ "`grep -c :SCRIPT-OK $TEST_FILESTEM`" != 1 ] ; then
+   echo "failed --script test"
+   exit $EXIT_LOSE
+fi
+exit $EXIT_TEST_WIN