mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 03:40:34 +02:00
53 lines
942 B
Bash
Executable file
53 lines
942 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
|
|
|
|
if test "X$srcdir" = X; then
|
|
srcdir=.
|
|
fi
|
|
|
|
set -e
|
|
|
|
#
|
|
# simple-hello.scm
|
|
#
|
|
$guile -s $srcdir/simple-hello.scm > TMP
|
|
cat <<EOF | diff -u - TMP
|
|
Hello, World!
|
|
EOF
|
|
rm -f TMP
|
|
|
|
#
|
|
# hello
|
|
#
|
|
$guile -s $srcdir/hello > TMP
|
|
echo "Hello, World!" | diff -u - TMP
|
|
rm -f TMP
|
|
|
|
$guile -s $srcdir/hello --version > TMP
|
|
echo "hello 0.0.1" | diff -u - TMP
|
|
rm -f TMP
|
|
|
|
$guile -s $srcdir/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 -s $srcdir/fact 5` in 120) ;; *) echo $0: error: fact 5 ;; esac
|
|
|
|
# check.test ends here
|