mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

check-guile.in: improve quoting (e.g. paths with spaces)

Browse source 
* check-guile.in: improve shell quoting.
This commit is contained in:
Rob Browning 2023-08-25 17:14:41 -05:00
parent fc62dba31b
commit 6495b4d578
1 changed files with 9 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

23
check-guile.in
View file

@ -15,25 +15,22 @@ set -e
top_builddir=@top_builddir_absolute@
top_srcdir=@top_srcdir_absolute@
TEST_SUITE_DIR=${top_srcdir}/test-suite
export TEST_SUITE_DIR
export TEST_SUITE_DIR="${top_srcdir}/test-suite"
if [ x"$1" = x-i ] ; then
guile=$2
shift
shift
guile="$2"
shift 2
else
guile=${top_builddir}/meta/guile
guile="${top_builddir}/meta/guile"
fi
GUILE_LOAD_PATH=$TEST_SUITE_DIR
export GUILE_LOAD_PATH
export GUILE_LOAD_PATH="$TEST_SUITE_DIR"
if [ -f "$guile" -a -x "$guile" ] ; then
echo Testing $guile ... "$@"
echo with GUILE_LOAD_PATH=$GUILE_LOAD_PATH
echo "Testing $guile ..." "$@"
echo "with GUILE_LOAD_PATH=$GUILE_LOAD_PATH"
else
echo ERROR: Cannot execute $guile
echo "ERROR: Cannot execute $guile"
exit 1
fi
@ -42,11 +39,9 @@ if [ ! -f guile-procedures.txt ] ; then
@LN_S@ libguile/guile-procedures.txt .
fi
exec $guile \
exec "$guile" \
--debug \
-L "$TEST_SUITE_DIR" \
--no-auto-compile -e main -s "$TEST_SUITE_DIR/guile-test" \
--test-suite "$TEST_SUITE_DIR/tests" \
--log-file check-guile.log "$@"
# check-guile ends here