mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 20:30:28 +02:00
41 lines
659 B
Bash
Executable file
41 lines
659 B
Bash
Executable file
#!/bin/sh
|
|
|
|
# must be run from this directory
|
|
guile=${GUILE-../../libguile/guile}
|
|
|
|
set -e
|
|
|
|
#
|
|
# simple-hello.scm
|
|
#
|
|
$guile -s simple-hello.scm > TMP
|
|
cat <<EOF | diff -u - TMP
|
|
Hello, World!
|
|
EOF
|
|
rm -f TMP
|
|
|
|
#
|
|
# hello
|
|
#
|
|
$guile -s hello > TMP
|
|
echo "Hello, World!" | diff -u - TMP
|
|
rm -f TMP
|
|
|
|
$guile -s hello --version > TMP
|
|
echo "hello 0.0.1" | diff -u - TMP
|
|
rm -f TMP
|
|
|
|
$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 -s fact 5` in 120) ;; *) echo $0: error: fact 5 ;; esac
|
|
|
|
# check.test ends here
|