From 5f6977fec4ed2cd63a492509efba96eaef20f037 Mon Sep 17 00:00:00 2001
From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Sat, 14 Jul 2001 18:59:28 +0000
Subject: [PATCH] Initial revision

---
 examples/scripts/check.test | 41 +++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100755 examples/scripts/check.test

diff --git a/examples/scripts/check.test b/examples/scripts/check.test
new file mode 100755
index 000000000..1b4c7da41
--- /dev/null
+++ b/examples/scripts/check.test
@@ -0,0 +1,41 @@
+#!/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