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
24 LTDL_LIBRARY_PATH
=$srcdir/srfi
/.libs
:${LTDL_LIBRARY_PATH}
26 export GUILE_LOAD_PATH
27 export LTDL_LIBRARY_PATH
29 if [ -f "$guile" -a -x "$guile" ] ; then
30 echo Testing
$guile ...
"$@"
31 echo with GUILE_LOAD_PATH
=$GUILE_LOAD_PATH
32 echo with LTDL_LIBRARY_PATH
=$LTDL_LIBRARY_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 .
43 exec "$guile" -e main
-s "$TEST_SUITE_DIR/guile-test" --test-suite "$TEST_SUITE_DIR/tests" --log-file check-guile.log
"$@"
45 # check-guile ends here