1#! /bin/sh 2# Usage: check-guile [-i GUILE-INTERPRETER] [GUILE-TEST-ARGS] 3# If `-i GUILE-INTERPRETER' is omitted, use ${top_builddir}/meta/guile. 4# See ${top_srcdir}/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 12set -e 13 14top_builddir=@top_builddir_absolute@ 15top_srcdir=@top_srcdir_absolute@ 16 17TEST_SUITE_DIR=${top_srcdir}/test-suite 18export TEST_SUITE_DIR 19 20if [ x"$1" = x-i ] ; then 21 guile=$2 22 shift 23 shift 24else 25 guile=${top_builddir}/meta/guile 26fi 27 28GUILE_LOAD_PATH=$TEST_SUITE_DIR 29export GUILE_LOAD_PATH 30 31if [ -f "$guile" -a -x "$guile" ] ; then 32 echo Testing $guile ... "$@" 33 echo with GUILE_LOAD_PATH=$GUILE_LOAD_PATH 34else 35 echo ERROR: Cannot execute $guile 36 exit 1 37fi 38 39# documentation searching ignores GUILE_LOAD_PATH. 40if [ ! -f guile-procedures.txt ] ; then 41 @LN_S@ libguile/guile-procedures.txt . 42fi 43 44exec $guile \ 45 --debug \ 46 -L "$TEST_SUITE_DIR" \ 47 --no-auto-compile -e main -s "$TEST_SUITE_DIR/guile-test" \ 48 --test-suite "$TEST_SUITE_DIR/tests" \ 49 --log-file check-guile.log "$@" 50 51# check-guile ends here 52