Commit | Line | Data |
---|---|---|
8992c8a2 DH |
1 | #! /bin/sh |
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. | |
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 | |
8992c8a2 | 11 | |
66301f9a | 12 | # this script runs in the top-level build-dir. |
fb11ef91 | 13 | srcdir=@srcdir@ |
fb11ef91 | 14 | TEST_SUITE_DIR=$srcdir/test-suite |
8992c8a2 DH |
15 | |
16 | if [ x"$1" = x-i ] ; then | |
17 | guile=$2 | |
18 | shift | |
19 | shift | |
66301f9a | 20 | GUILE_LOAD_PATH=$TEST_SUITE_DIR |
8992c8a2 | 21 | else |
66301f9a GH |
22 | guile=libguile/guile |
23 | GUILE_LOAD_PATH=$srcdir:$TEST_SUITE_DIR | |
f91fc9cd | 24 | LTDL_LIBRARY_PATH=`pwd`/srfi:${LTDL_LIBRARY_PATH} |
8992c8a2 | 25 | fi |
66301f9a | 26 | export GUILE_LOAD_PATH |
0e70d77b | 27 | export LTDL_LIBRARY_PATH |
8992c8a2 DH |
28 | |
29 | if [ -f "$guile" -a -x "$guile" ] ; then | |
30 | echo Testing $guile ... "$@" | |
66301f9a | 31 | echo with GUILE_LOAD_PATH=$GUILE_LOAD_PATH |
0e70d77b | 32 | echo with LTDL_LIBRARY_PATH=$LTDL_LIBRARY_PATH |
8992c8a2 DH |
33 | else |
34 | echo ERROR: Cannot execute $guile | |
35 | exit 1 | |
36 | fi | |
37 | ||
66301f9a | 38 | # documentation searching ignores GUILE_LOAD_PATH. |
c52b4823 | 39 | if [ ! -f guile-procedures.txt ] ; then |
fb39eb49 | 40 | @LN_S@ libguile/guile-procedures.txt . |
66301f9a GH |
41 | fi |
42 | ||
43 | exec "$guile" -e main -s "$TEST_SUITE_DIR/guile-test" --test-suite "$TEST_SUITE_DIR/tests" --log-file check-guile.log "$@" | |
8992c8a2 DH |
44 | |
45 | # check-guile ends here |