X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftoplevel.test.sh;h=04f805e4b539d79463079f1572431d40b441a8fa;hb=1cba0af01f5107ab384d0d8b94b1f6330b3d0ef4;hp=1103354cb7b299885861ed7be3bd7eb7a9c46768;hpb=832ac1d6d923ced44c63486c8d5bf344795e54a1;p=sbcl.git

diff --git a/tests/toplevel.test.sh b/tests/toplevel.test.sh
index 1103354..04f805e 100644
--- 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