mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
3b3998bc73
Scripts using COMPILE or LOAD, either directly or through third party systems, pollute the standard output with messages unrelated to the script itself. This is undesirable (to quote a comment in toplevel.lisp, "scripts don't need to be stylish or fast, but silence is usually a desirable quality") and can cause bugs when the output of a script is processed through a UNIX pipe by a program expecting to get output and not verbose diagnostic messages. Problem originally signaled by Hraban Luyat <hraban@0brg.net>.
132 lines
4.3 KiB
Bash
132 lines
4.3 KiB
Bash
#!/bin/sh
|
|
|
|
# tests related to --script
|
|
|
|
# This software is part of the SBCL system. See the README file for
|
|
# more information.
|
|
#
|
|
# While most of SBCL is derived from the CMU CL system, the test
|
|
# files (like this one) were written from scratch after the fork
|
|
# from CMU CL.
|
|
#
|
|
# This software is in the public domain and is provided with
|
|
# absolutely no warranty. See the COPYING and CREDITS files for
|
|
# more information.
|
|
|
|
. ./subr.sh
|
|
|
|
use_test_subdirectory
|
|
|
|
tmpscript=$TEST_FILESTEM.lisp-script
|
|
tmpfasl=$TEST_FILESTEM.lisp-fasl
|
|
tmpout=$TEST_FILESTEM.lisp-out
|
|
tmperr=$TEST_FILESTEM.lisp-err
|
|
|
|
echo '(exit :code 7)' > $tmpscript
|
|
run_sbcl --script $tmpscript
|
|
check_status_maybe_lose "--script exit status from EXIT" $? 7 "(status good)"
|
|
|
|
echo '(when (and (null *load-verbose*) (null *compile-verbose*)) (exit :code 7))' > $tmpscript
|
|
run_sbcl --script $tmpscript
|
|
check_status_maybe_lose "--script verbosity" $? 7 "(silent)"
|
|
|
|
echo '(error "oops")' > $tmpscript
|
|
run_sbcl --script $tmpscript 1> $tmpout 2> $tmperr
|
|
check_status_maybe_lose "--script exit status from ERROR" $? 1 "(error implies 1)"
|
|
grep Backtrace $tmpout > /dev/null
|
|
check_status_maybe_lose "--script backtrace not to stdout" $? 1 "(ok)"
|
|
grep Backtrace $tmperr > /dev/null
|
|
check_status_maybe_lose "--script backtrace to stderr" $? 0 "(ok)"
|
|
|
|
echo 'nil'> $tmpscript
|
|
run_sbcl --script $tmpscript
|
|
check_status_maybe_lose "--script exit status from normal exit" $? 0 "(everything ok)"
|
|
|
|
cat > $tmpscript <<EOF
|
|
(setf *standard-output* (make-broadcast-stream))
|
|
(close *standard-output*)
|
|
(sb-ext:exit :code 3)
|
|
EOF
|
|
run_sbcl --script $tmpscript >/dev/null
|
|
check_status_maybe_lose "--script exit status from QUIT when standard-output closed" $? 3 "(as given)"
|
|
run_sbcl --load $tmpscript >/dev/null
|
|
check_status_maybe_lose "--load exit status from QUIT when standard-output closed" $? 3 "(as given)"
|
|
|
|
cat > $tmpscript <<EOF
|
|
(close *standard-output*)
|
|
(sb-ext:quit :unix-status 3)
|
|
EOF
|
|
run_sbcl --script $tmpscript >/dev/null
|
|
check_status_maybe_lose "--script exit status from QUIT when original standard-output closed" $? 3 "(as given)"
|
|
run_sbcl --load $tmpscript >/dev/null
|
|
check_status_maybe_lose "--load exit status from QUIT when original standard-output closed" $? 3 "(as given)"
|
|
|
|
cat > $tmpscript <<EOF
|
|
(close sb-sys:*stdout*)
|
|
(sb-ext:quit :unix-status 3)
|
|
EOF
|
|
run_sbcl --script $tmpscript >/dev/null
|
|
check_status_maybe_lose "--script exit status from EXIT when stdout closed" $? 3 "(as given)"
|
|
run_sbcl --load $tmpscript >/dev/null
|
|
check_status_maybe_lose "--load exit status from EXIT when stdout closed" $? 3 "(as given)"
|
|
|
|
cat > $tmpscript <<EOF
|
|
(loop (write-line (read-line)))
|
|
EOF
|
|
echo ONE | run_sbcl --script $tmpscript 1> $tmpout 2> $tmperr
|
|
check_status_maybe_lose "--script exit status when stdin closed" $? 0 "(as given)"
|
|
if [ -s $tmperr ] || [ "ONE" != `cat $tmpout` ]
|
|
then
|
|
echo "--script outputs wrong"
|
|
exit $EXIT_LOSE
|
|
fi
|
|
|
|
cat > $tmpscript <<EOF
|
|
(loop (write-line "foo"))
|
|
EOF
|
|
run_sbcl --script $tmpscript 2> $tmperr | head -n1 > $tmpout
|
|
check_status_maybe_lose "--script exit status when stdout closed" $? 0 "(as given)"
|
|
if [ -s $tmperr ] || [ "foo" != `cat $tmpout` ]
|
|
then
|
|
echo "--script unexpected error output"
|
|
exit $EXIT_LOSE
|
|
fi
|
|
echo '(write-line "Ok!")' | run_sbcl --script 1>$tmpout 2>$tmperr
|
|
check_status_maybe_lose "--script exit status from stdin" $? 0 "(ok)"
|
|
if [ -s $tmperr ] || [ "Ok!" != `cat $tmpout` ]
|
|
then
|
|
echo "--script unexpected error output"
|
|
exit $EXIT_LOSE
|
|
fi
|
|
|
|
# --script
|
|
cat > $tmpscript <<EOF
|
|
(print :script-ok)
|
|
EOF
|
|
run_sbcl --script $tmpscript --eval foo \
|
|
< /dev/null > $tmpout
|
|
if [ "`grep -c :SCRIPT-OK $tmpout`" != 1 ] ; then
|
|
echo "failed --script test using PRINT"
|
|
exit $EXIT_LOSE
|
|
fi
|
|
|
|
# automatically executing fasls
|
|
#
|
|
# this test is fragile, with its SBCL_HOME hack to get the shebang
|
|
# line in the fasl to find the right core, and also is unlikely to
|
|
# work with that mechanism on Windows.
|
|
echo '(format t "Hello, Fasl~%")' > $tmpscript
|
|
run_sbcl --eval "(compile-file \"$tmpscript\" :output-file \"$tmpfasl\")" </dev/null >/dev/null
|
|
chmod +x $tmpfasl
|
|
SBCL_HOME=`dirname $SBCL_CORE` ./$tmpfasl >$tmpout 2>$tmperr
|
|
check_status_maybe_lose "--script exit status from fasl" $? 0 "(ok)"
|
|
if [ -s $tmperr ] || [ "Hello, Fasl" != "`cat $tmpout`" ]
|
|
then
|
|
echo "--script from fasl unexpected output"
|
|
exit $EXIT_LOSE
|
|
fi
|
|
|
|
rm -f $tmpscript $tmpout $tmperr $tmpfasl
|
|
|
|
exit $EXIT_TEST_WIN
|