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.
8 # ./check-guile numbers.test
9 # ./check-guile -i /usr/local/bin/guile
10 # ./check-guile -i /usr/local/bin/guile numbers.test
12 # this script runs in the top-level build-dir.
14 TEST_SUITE_DIR
=$srcdir/test-suite
16 if [ x
"$1" = x-i
] ; then
20 GUILE_LOAD_PATH
=$TEST_SUITE_DIR
23 GUILE_LOAD_PATH
=$srcdir:$TEST_SUITE_DIR
25 export GUILE_LOAD_PATH
27 if [ -f "$guile" -a -x "$guile" ] ; then
28 echo Testing
$guile ...
"$@"
29 echo with GUILE_LOAD_PATH
=$GUILE_LOAD_PATH
31 echo ERROR
: Cannot execute
$guile
35 # documentation searching ignores GUILE_LOAD_PATH.
36 if [ ! -f guile-procedures.txt
] ; then
37 ln -s libguile
/guile-procedures.txt .
40 exec "$guile" -e main
-s "$TEST_SUITE_DIR/guile-test" --test-suite "$TEST_SUITE_DIR/tests" --log-file check-guile.log
"$@"
42 # check-guile ends here