1 |
#! /bin/sh |
#! /bin/sh |
2 |
# Usage: check-guile [-i GUILE-INTERPRETER] [GUILE-TEST-ARGS] |
# Usage: check-guile [-i GUILE-INTERPRETER] [GUILE-TEST-ARGS] |
3 |
# If `-i GUILE-INTERPRETER' is omitted, use ${top_srcdir}/pre-inst-guile. |
# If `-i GUILE-INTERPRETER' is omitted, use ${top_builddir}/pre-inst-guile. |
4 |
# See test-suite/guile-test for documentation on GUILE-TEST-ARGS. |
# See ${top_srcdir}/test-suite/guile-test for documentation on GUILE-TEST-ARGS. |
5 |
# |
# |
6 |
# Example invocations: |
# Example invocations: |
7 |
# ./check-guile |
# ./check-guile |
12 |
set -e |
set -e |
13 |
|
|
14 |
# this script runs in the top-level build-dir. |
# this script runs in the top-level build-dir. |
15 |
top_builddir=`pwd` |
top_builddir=@top_builddir_absolute@ |
16 |
top_srcdir=@top_srcdir@ |
top_srcdir=@top_srcdir@ |
17 |
|
|
18 |
TEST_SUITE_DIR=${top_srcdir}/test-suite |
TEST_SUITE_DIR=${top_srcdir}/test-suite |
19 |
|
|
20 |
if [ x"$1" = x-i ] ; then |
if [ x"$1" = x-i ] ; then |
21 |
guile=$2 |
guile=$2 |
|
guile_opts= |
|
22 |
shift |
shift |
23 |
shift |
shift |
24 |
else |
else |
25 |
guile=${top_srcdir}/pre-inst-guile |
guile=${top_builddir}/pre-inst-guile |
|
guile_opts="${top_builddir}" |
|
26 |
fi |
fi |
27 |
|
|
28 |
GUILE_LOAD_PATH=$TEST_SUITE_DIR |
GUILE_LOAD_PATH=$TEST_SUITE_DIR |
41 |
@LN_S@ libguile/guile-procedures.txt . |
@LN_S@ libguile/guile-procedures.txt . |
42 |
fi |
fi |
43 |
|
|
44 |
exec $guile $guile_opts \ |
exec $guile \ |
45 |
-e main -s "$TEST_SUITE_DIR/guile-test" \ |
-e main -s "$TEST_SUITE_DIR/guile-test" \ |
46 |
--test-suite "$TEST_SUITE_DIR/tests" \ |
--test-suite "$TEST_SUITE_DIR/tests" \ |
47 |
--log-file check-guile.log "$@" |
--log-file check-guile.log "$@" |