tests/run-tests.sh

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