tests/run-tests.sh

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