X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fscript.test.sh;h=b209d96faa4c9ede76de5271c58d515a83e1794c;hb=9c9d6dbdc28a8bfe70be09f35263e9ec02411d0e;hp=48da1039759a4ac6b76defe1898e0020f584c8f7;hpb=0338d1fc97a74b8ff332821ea275120b9de951c1;p=sbcl.git diff --git a/tests/script.test.sh b/tests/script.test.sh index 48da103..b209d96 100644 --- a/tests/script.test.sh +++ b/tests/script.test.sh @@ -29,9 +29,9 @@ check_status_maybe_lose "--script exit status from EXIT" $? 7 "(status good)" 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 +grep Backtrace $tmpout > /dev/null check_status_maybe_lose "--script backtrace not to stdout" $? 1 "(ok)" -grep BACKTRACE $tmperr > /dev/null +grep Backtrace $tmperr > /dev/null check_status_maybe_lose "--script backtrace to stderr" $? 0 "(ok)" echo 'nil'> $tmpscript @@ -114,7 +114,7 @@ fi echo '(format t "Hello, Fasl~%")' > $tmpscript run_sbcl --eval "(compile-file \"$tmpscript\" :output-file \"$tmpfasl\")" /dev/null chmod +x $tmpfasl -SBCL_HOME=$(dirname $SBCL_CORE) ./$tmpfasl >$tmpout 2>$tmperr +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