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=`pwd` |
|
|
|
16 |
top_srcdir=@top_srcdir@ |
top_srcdir=@top_srcdir@ |
17 |
|
|
18 |
TEST_SUITE_DIR=$top_builddir/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 |
22 |
guile_opts= |
guile_opts= |
23 |
shift |
shift |
24 |
shift |
shift |
|
GUILE_LOAD_PATH=$TEST_SUITE_DIR |
|
25 |
else |
else |
26 |
guile=${top_srcdir}/pre-inst-guile |
guile=${top_srcdir}/pre-inst-guile |
27 |
guile_opts="${top_builddir}" |
guile_opts="${top_builddir}" |
|
GUILE_LOAD_PATH=${top_builddir}:$TEST_SUITE_DIR |
|
28 |
fi |
fi |
29 |
|
|
30 |
|
GUILE_LOAD_PATH=$TEST_SUITE_DIR |
31 |
export GUILE_LOAD_PATH |
export GUILE_LOAD_PATH |
32 |
|
|
33 |
if [ -f "$guile" -a -x "$guile" ] ; then |
if [ -f "$guile" -a -x "$guile" ] ; then |