diff options
Diffstat (limited to 'examples/scripts/check.test')
| -rwxr-xr-x | examples/scripts/check.test | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/examples/scripts/check.test b/examples/scripts/check.test deleted file mode 100755 index 2a3e753d6..000000000 --- a/examples/scripts/check.test +++ /dev/null @@ -1,53 +0,0 @@ -#!/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 |