diff --git a/test/run-tests.sh b/test/run-tests.sh index c324aecbe7e0cfecef64248b5a92a3d121a4e8fd..82866ce5806782234bac82b00477a7a3fc567f6d 100755 --- a/test/run-tests.sh +++ b/test/run-tests.sh @@ -5,6 +5,18 @@ # - quit with exit status 0 on getting eof # - quit with exit status >0 if an unhandled error occurs +usage () { + echo "$0 [lisp invocation] [scripts-regex]" + echo " - read lisp forms one at a time from matching scripts" + echo " - quit with exit status 0 on getting eof" + echo " - quit with exit status >0 if an unhandled error occurs" + echo " you need to supply the .script in the second argument" + echo " lisps include sbcl, clisp, allegro and allegromodern" + echo "OPTIONS:" + echo " -d -- debug mode" + echo " -u -h -- show this message." +} + unset DEBUG_ASDF_TEST while getopts "duh" OPTION @@ -38,18 +50,6 @@ fi sok=1 -usage () { - echo "$0 [lisp invocation] [scripts-regex]" - echo " - read lisp forms one at a time from matching scripts" - echo " - quit with exit status 0 on getting eof" - echo " - quit with exit status >0 if an unhandled error occurs" - echo " you need to supply the .script in the second argument" - echo " lisps include sbcl, clisp, allegro and allegromodern" - echo "OPTIONS:" - echo " -d -- debug mode" - echo " -u -h -- show this message." -} - DO () { ( set -x ; "$@" ); } do_tests() {