Fix make-array transforms.

[sbcl.git] / tests / toplevel.test.sh

diff --git a/tests/toplevel.test.sh b/tests/toplevel.test.sh
index 1103354..04f805e 100644 (file)
--- a/tests/toplevel.test.sh
+++ b/tests/toplevel.test.sh
@@ -28,4 +28,50 @@ if [ "`grep -c FOO::BAR $TEST_FILESTEM`" != 1 ] ; then
     exit $EXIT_LOSE
 fi
 
+# --quit
+run_sbcl --eval "(defpackage :foo)" --eval "(print 'foo::bar)" --quit \
+    > $TEST_FILESTEM
+if [ "`grep -c FOO::BAR $TEST_FILESTEM`" != 1 ] ; then
+    echo failed DEFPACKAGE-then-PRINT with --quit
+    exit $EXIT_LOSE
+fi
+# --quit gets delayed
+run_sbcl --eval "(defpackage :foo)" --quit --eval "(print 'foo::bar)" \
+    > $TEST_FILESTEM
+if [ "`grep -c FOO::BAR $TEST_FILESTEM`" != 1 ] ; then
+    echo failed DEFPACKAGE-then-PRINT with delayed --quit
+    exit $EXIT_LOSE
+fi
+
+# --non-interactive
+run_sbcl --eval "(defpackage :foo)" \
+    --non-interactive \
+    --eval "(print 'foo::bar)" \
+    > $TEST_FILESTEM
+if [ "`grep -c FOO::BAR $TEST_FILESTEM`" != 1 ] ; then
+    echo failed DEFPACKAGE-then-PRINT with --non-interactive
+    exit $EXIT_LOSE
+fi
+
+# disable the use of --disable-debugger through run_sbcl for the rest of
+# this file
+SBCL_ARGS="--noinform --no-sysinit --no-userinit --noprint"
+
+# --non-interactive with error
+#
+# (This test would hang if --non-interactive did not work properly.)
+run_sbcl --eval "(defpackage :foo)" \
+    --non-interactive \
+    --eval "(print 'foo::bar)" \
+    --eval '(error "fail-safe")' \
+    >$TEST_FILESTEM 2>&1
+if [ "`grep -c FOO::BAR $TEST_FILESTEM`" != 1 ] ; then
+    echo failed DEFPACKAGE-then-PRINT with --non-interactive and error
+    exit $EXIT_LOSE
+fi
+if [ "`grep -c -i SIMPLE-ERROR $TEST_FILESTEM`" -lt 1 ] ; then
+    echo no error seen in --non-interactive test
+    exit $EXIT_LOSE
+fi
+
 exit $EXIT_TEST_WIN