1.0.46.43: fix sb-introspect on non-threaded builds

[sbcl.git] / tests / toplevel.sh

diff --git a/tests/toplevel.sh b/tests/toplevel.sh
index a22d436..f7e055b 100644 (file)
--- 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