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 "$@" |