tests/run-tests.sh

   1 #!/bin/sh
   2
   3 # This software is part of the SBCL system. See the README file for
   4 # more information.
   5 #
   6 # While most of SBCL is derived from the CMU CL system, the test
   7 # files (like this one) were written from scratch after the fork
   8 # from CMU CL.
   9 #
  10 # This software is in the public domain and is provided with
  11 # absolutely no warranty. See the COPYING and CREDITS files for
  12 # more information.
  13
  14 if [ "$1" = "--help" ]; then
  15     cat <<EOF
  16 Run the regression tests in this directory.
  17
  18 Usage: $0 [OPTIONS] [files]
  19
  20 Options:
  21
  22   --evaluator-mode              Either compile or interpret. Set the
  23                                 value of SB-EXT:*EVALUATOR-MODE* while
  24                                 running tests.
  25   --break-on-failure            Break into the debugger when a test fails
  26                                 unexpectedly
  27   --break-on-expected-failure   Break into the debugger when any test fails
  28   --report-skipped-tests        Include tests :skipped-on target SBCL in
  29                                 the test report.
  30   --no-color                    Disable coloring of results.
  31   --slow                        Enable slow tests.
  32
  33 If no test files are specified, runs all tests.
  34 EOF
  35     exit 0
  36 fi
  37
  38
  39 . ./subr.sh
  40
  41 echo /running tests on \'$SBCL_RUNTIME --core $SBCL_CORE $SBCL_ARGS\'
  42
  43 tenfour () {
  44     if [ $1 = $EXIT_TEST_WIN ]; then
  45         echo ok
  46     else
  47         echo test failed, expected $EXIT_TEST_WIN return code, got $1
  48         exit 1
  49     fi
  50 }
  51 set +u
  52 run_sbcl \
  53     --eval '(with-compilation-unit () (load "run-tests.lisp"))' \
  54     --eval '(run-tests::run-all)' $*
  55
  56 tenfour $?
  57
  58 echo '//apparent success (reached end of run-tests.sh normally)'
  59 date