Re: set-current-module broken in current Guile CVS version

[thi]

   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