X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Frun-tests.sh;h=164bbb4530922e5f79f76cfa74328b1d4aaa459b;hb=8e6a4a018f54dc0babb710d3525c1f2e7f3b6d48;hp=0ea9c8568dab486a7c827b930c46b706313c276a;hpb=c0f9314af1b6f7aa67e6c5db523d6ddef735986c;p=sbcl.git

diff --git a/tests/run-tests.sh b/tests/run-tests.sh
index 0ea9c85..164bbb4 100755
--- a/tests/run-tests.sh
+++ b/tests/run-tests.sh
@@ -1,19 +1,5 @@
 #!/bin/sh
 
-# Run the regression tests in this directory.
-#
-# Usage: run-tests.sh [OPTIONS] [files]
-#
-# Valid options are as follows:
-#
-#  --break-on-failure            Break into the debugger when a test fails
-#                                unexpectedly
-#  --break-on-expected-failure   Break into the debugger when any test fails
-#  --report-skipped-tests        Include tests :skipped-on target SBCL in
-#                                the test report.
-#
-# If no test files are specified, runs all tests.
-
 # This software is part of the SBCL system. See the README file for
 # more information.
 #
@@ -25,6 +11,27 @@
 # absolutely no warranty. See the COPYING and CREDITS files for
 # more information.
 
+if [ $1 = "--help" ]; then
+    cat <<EOF
+Run the regression tests in this directory.
+
+Usage: $0 [OPTIONS] [files]
+
+Options:
+
+  --break-on-failure            Break into the debugger when a test fails
+                                unexpectedly
+  --break-on-expected-failure   Break into the debugger when any test fails
+  --report-skipped-tests        Include tests :skipped-on target SBCL in
+                                the test report.
+  --no-color                    Disable coloring of results. 
+
+If no test files are specified, runs all tests.
+EOF
+    exit 0
+fi
+
+
 . ./subr.sh
 
 echo /running tests on \'$SBCL_RUNTIME --core $SBCL_CORE $SBCL_ARGS\'