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.
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
20 if [ x
"$1" = x-i
] ; then
25 guile
=${top_builddir}/meta
/guile
28 GUILE_LOAD_PATH
=$TEST_SUITE_DIR
29 export GUILE_LOAD_PATH
31 if [ -f "$guile" -a -x "$guile" ] ; then
32 echo Testing
$guile ...
"$@"
33 echo with GUILE_LOAD_PATH
=$GUILE_LOAD_PATH
35 echo ERROR
: Cannot execute
$guile
39 # documentation searching ignores GUILE_LOAD_PATH.
40 if [ ! -f guile-procedures.txt
] ; then
41 @LN_S@ libguile
/guile-procedures.txt .
45 --no-autocompile -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