2 # Usage: check-guile [-i GUILE-INTERPRETER] [GUILE-TEST-ARGS]
3 # If `-i GUILE-INTERPRETER' is omitted, use ${top_builddir}/pre-inst-guile.
4 # See ${top_srcdir}/test-suite/guile-test for documentation on GUILE-TEST-ARGS.
8 # ./check-guile numbers.test
9 # ./check-guile -i /usr/local/bin/guile
10 # ./check-guile -i /usr/local/bin/guile numbers.test
14 top_builddir=@top_builddir_absolute@
15 top_srcdir=@top_srcdir_absolute@
17 TEST_SUITE_DIR=${top_srcdir}/test-suite
19 if [ x"$1" = x-i ] ; then
24 guile=${top_builddir}/pre-inst-guile
27 GUILE_LOAD_PATH=$TEST_SUITE_DIR
28 export GUILE_LOAD_PATH
30 if [ -f "$guile" -a -x "$guile" ] ; then
31 echo Testing $guile ... "$@"
32 echo with GUILE_LOAD_PATH=$GUILE_LOAD_PATH
34 echo ERROR: Cannot execute $guile
38 # documentation searching ignores GUILE_LOAD_PATH.
39 if [ ! -f guile-procedures.txt ] ; then
40 @LN_S@ libguile/guile-procedures.txt .
44 -l ${top_builddir}/libguile/stack-limit-calibration.scm \
45 -e main -s "$TEST_SUITE_DIR/guile-test" \
46 --test-suite "$TEST_SUITE_DIR/tests" \
47 --log-file check-guile.log "$@"
49 # check-guile ends here