From: Nikodemus S. <de...@us...> - 2012-01-02 10:21:09
|
The branch "master" has been updated in SBCL: via dd5c055b2ddd60e76fa9c17c2d6d97b3b5032a6e (commit) from 568d94164d0cf7bb6edaa27554e6e3a0f003434e (commit) - Log ----------------------------------------------------------------- commit dd5c055b2ddd60e76fa9c17c2d6d97b3b5032a6e Author: Nikodemus Siivola <nik...@ra...> Date: Mon Jan 2 11:56:03 2012 +0200 twiddle script.test.sh Can't open /dev/stdout on all platforms -- but happily for the behaviour we want to test we don't have to. Also add a compile of variations on the theme. --- tests/script.test.sh | 24 +++++++++++++++++++----- 1 files changed, 19 insertions(+), 5 deletions(-) diff --git a/tests/script.test.sh b/tests/script.test.sh index db270df..87a2e08 100644 --- a/tests/script.test.sh +++ b/tests/script.test.sh @@ -38,15 +38,29 @@ run_sbcl --script $tmpscript check_status_maybe_lose "--script exit status from normal exit" $? 0 "(everything ok)" cat > $tmpscript <<EOF -#+(or darwin netbsd openbsd) -(progn - (format t "silently skipping known failure in script.test.sh~%") - (sb-ext:quit :unix-status 3)) -(setf *standard-output* (open "/dev/stdout")) +(setf *standard-output* (make-broadcast-stream)) (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 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 QUIT when stdout closed" $? 3 "(as given)" run_sbcl --load $tmpscript >/dev/null check_status_maybe_lose "--load exit status from QUIT when stdout closed" $? 3 "(as given)" ----------------------------------------------------------------------- hooks/post-receive -- SBCL |