[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: set-current-module broken in current Guile CVS version
From: |
thi |
Subject: |
Re: set-current-module broken in current Guile CVS version |
Date: |
Mon, 15 Jan 2001 09:15:35 -0800 |
From: Dirk Herrmann <address@hidden>
Date: Mon, 15 Jan 2001 17:10:10 +0100 (MET)
Does the produced file "check-guile" get installed? (please forgive
my autoconf/make ignorance). If so, is it possible to have it _not_
installed? IMO, it is sufficient if "make check" works from the
build directory after "make install" has been performed. This would
mean that there should not be a need for a check-guile script (or at
least that is what I think).
first off, thanks for the response!
check-guile indeed does NOT get installed. fyi, you can find out what
gets installed by doing "make -n install | grep ^list=".
the intent of check-guile is that it can be used to check an installed
guile as well as the one in the build directory. this is useful to see
the difference (if any) in behavior in new versus installed.
however, apparently i foolishly posted a buggy check-guile.in w/o
testing if the "-i INTERPRETER" switch actually works. please find
below a revised check-guile.in. (the bug was that the installed guile
could not find the test-suite dir, so now we jam its parent on the end
of the "native" %load-path and pass the whole thing in using env var
`GUILE_LOAD_PATH', just like for testing the uninstalled guile. an
alternate solution that relies on symlinks is to do "cd test-suite ; ln
-s . test-suite".) [insert quote about fools here...]
thi
_______________________________________________
#! /bin/sh
# Usage: check-guile [-i GUILE-INTERPRETER] [GUILE-TEST-ARGS]
# If `-i GUILE-INTERPRETER' is omitted, use libguile/guile.
# See test-suite/guile-test for documentation on GUILE-TEST-ARGS.
#
# Example invocations:
# ./check-guile
# ./check-guile numbers.test
# ./check-guile -i /usr/local/bin/guile
# ./check-guile -i /usr/local/bin/guile numbers.test
address@hidden@
export TEST_SUITE_DIR
parent=`dirname $TEST_SUITE_DIR`
if [ x"$1" = x-i ] ; then
guile=$2
shift
shift
else
guile=$parent/libguile/guile
glp=$parent
fi
if [ -f "$guile" -a -x "$guile" ] ; then
echo Testing $guile ... "$@"
if [ -z "$glp" ] ; then
glp=`$guile -c "(for-each write-line %load-path)"`
glp=`echo $glp | sed 's/ /:/g'`:$parent
fi
GUILE_LOAD_PATH=$glp
export GUILE_LOAD_PATH
echo with GUILE_LOAD_PATH = \`$GUILE_LOAD_PATH\'
else
echo ERROR: Cannot execute $guile
exit 1
fi
cd $TEST_SUITE_DIR
exec $guile -e main -s guile-test "$@"
# check-guile ends here