1.0.45.30: wrap --script loading in a WITH-COMPILATION-UNIT

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

diff --git a/tests/script.test.sh b/tests/script.test.sh
index a9ce19a..87061f6 100644 (file)
--- a/tests/script.test.sh
+++ b/tests/script.test.sh
@@ -31,6 +31,12 @@ echo 'nil'> $tmpscript
 run_sbcl --script $tmpscript
 check_status_maybe_lose "--script exit status from normal exit" $? 0 "(everything ok)"
 
+echo '(setf *error-output* *standard-output*) (defun foo () (bar)) (defun bar () 11) (quit :unix-status (foo))'> $tmpscript
+out=`run_sbcl --script $tmpscript`
+check_status_maybe_lose "--script exit status from normal exit" $? 11 "(everything ok)"
+test -z "$out"
+check_status_maybe_lose "--script forward-referenced functions" $? 0 "(everything ok)"
+
 rm -f $tmpscript
 
 exit $EXIT_TEST_WIN