diff options
author | cvs2svn <admin@example.com> | 2002-08-04 00:18:34 +0000 |
---|---|---|
committer | cvs2svn <admin@example.com> | 2002-08-04 00:18:34 +0000 |
commit | 2f4c89c4f475d3b2c718cbd4332c650214488ff9 (patch) | |
tree | 5abd57b1ace53b0c6970da9395f15d80d5f79430 /examples/scripts/check.test | |
parent | c7743d027a335eae585335b959e483c5a6c38d36 (diff) | |
download | guile-after-hanwen-gc-change.tar.gz |
This commit was manufactured by cvs2svn to create tagafter-hanwen-gc-change
'after-hanwen-gc-change'.
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 |