mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 12:20:26 +02:00
211e9d8a0d
Create `box' on `make all'. * box-module/check.test, box-dynamic-module/check.test, * box-dynamic/check.test: New files. * box-dynamic/Makefile.am (libbox): Create box library on `make all'. (TESTS): New variable. * box/Makefile.am (TESTS): New variable. Create `box' program on `make all', use freshly built Guile for building. * box/check.test: New file. * modules/check.test, safe/check.test, scripts/check.test: Set GUILE_LOAD_PATH to make the tests run without installed Guile.
49 lines
966 B
Bash
Executable file
49 lines
966 B
Bash
Executable file
#!/bin/sh
|
|
|
|
# must be run from this directory
|
|
guile=${GUILE-../../libguile/guile}
|
|
if [ -x $guile ] ; then
|
|
:
|
|
else
|
|
echo could not find guile interpreter.
|
|
echo '(are you running this script from' `dirname $0` '?)'
|
|
echo GUILE env var: ${GUILE-not set}
|
|
exit 1
|
|
fi
|
|
|
|
set -e
|
|
|
|
#
|
|
# simple-hello.scm
|
|
#
|
|
GUILE_LOAD_PATH=../.. $guile -s simple-hello.scm > TMP
|
|
cat <<EOF | diff -u - TMP
|
|
Hello, World!
|
|
EOF
|
|
rm -f TMP
|
|
|
|
#
|
|
# hello
|
|
#
|
|
GUILE_LOAD_PATH=../.. $guile -s hello > TMP
|
|
echo "Hello, World!" | diff -u - TMP
|
|
rm -f TMP
|
|
|
|
GUILE_LOAD_PATH=../.. $guile -s hello --version > TMP
|
|
echo "hello 0.0.1" | diff -u - TMP
|
|
rm -f TMP
|
|
|
|
GUILE_LOAD_PATH=../.. $guile -s hello --help > TMP
|
|
cat <<EOF | diff -u - TMP
|
|
Usage: hello [options...]
|
|
--help, -h Show this usage information
|
|
--version, -v Show version information
|
|
EOF
|
|
rm -f TMP
|
|
|
|
#
|
|
# fact
|
|
#
|
|
case `GUILE_LOAD_PATH=../.. $guile -s fact 5` in 120) ;; *) echo $0: error: fact 5 ;; esac
|
|
|
|
# check.test ends here
|