check-guile.in

   1 #! /bin/sh
   2 # Usage: check-guile [-i GUILE-INTERPRETER] [GUILE-TEST-ARGS]
   3 # If `-i GUILE-INTERPRETER' is omitted, use libguile/guile.
   4 # See test-suite/guile-test for documentation on GUILE-TEST-ARGS.
   5 #
   6 # Example invocations:
   7 # ./check-guile
   8 # ./check-guile numbers.test
   9 # ./check-guile -i /usr/local/bin/guile
  10 # ./check-guile -i /usr/local/bin/guile numbers.test
  11 #
  12 # Dependencies: dirname sed
  13
  14 build_dir=`pwd`
  15 srcdir=@srcdir@
  16 if [ x"$srcdir" = x. ]; then
  17     srcdir=$build_dir
  18 fi
  19 TEST_SUITE_DIR=$srcdir/test-suite
  20
  21 if [ x"$1" = x-i ] ; then
  22     guile=$2
  23     shift
  24     shift
  25     glp=
  26 else
  27     guile=$build_dir/libguile/guile
  28     glp=$srcdir
  29 fi
  30
  31 if [ -f "$guile" -a -x "$guile" ] ; then
  32     echo Testing $guile ... "$@"
  33     if [ x"$glp" = x ] ; then
  34         glp=`$guile -c "(for-each write-line %load-path)"`
  35         glp=`echo $glp | sed 's/ /:/g'`:$srcdir
  36     fi
  37     GUILE_LOAD_PATH=$glp
  38     export GUILE_LOAD_PATH
  39     echo with GUILE_LOAD_PATH: $GUILE_LOAD_PATH
  40 else
  41     echo ERROR: Cannot execute $guile
  42     exit 1
  43 fi
  44
  45 cd $TEST_SUITE_DIR
  46 exec $guile -e main -s guile-test --test-suite $TEST_SUITE_DIR/tests --log-file $build_dir/check-guile.log "$@"
  47
  48 # check-guile ends here