[bpt/guile.git] / examples / safe / check.test

#!/bin/sh

# must be run from this directory
guile=${GUILE-../../libguile/guile}

if test "X$srcdir" = X; then
    srcdir=.
fi

set -e

#
# ./safe untrusted.scm
#
$guile -s $srcdir/safe $srcdir/untrusted.scm > TMP
cat <<EOF | diff -u - TMP
1
1
2
6
24
120
720
5040
40320
362880
3628800
EOF
rm -f TMP

#
# ./safe evil.scm
#
$guile -s $srcdir/safe $srcdir/evil.scm > TMP
cat <<EOF | diff -u - TMP
** Exception: (unbound-variable #f "Unbound variable: ~S" (open-input-file) #f)
EOF
rm -f TMP

# check.test ends here
Commit	Line	Data
024001c2 MG	1	#!/bin/sh
	2
	3	# must be run from this directory
	4	guile=${GUILE-../../libguile/guile}
	5
	6	if test "X$srcdir" = X; then
	7	srcdir=.
	8	fi
	9
	10	set -e
	11
	12	#
	13	# ./safe untrusted.scm
	14	#
	15	$guile -s $srcdir/safe $srcdir/untrusted.scm > TMP
	16	cat <<EOF \| diff -u - TMP
	17	1
	18	1
	19	2
	20	6
	21	24
	22	120
	23	720
	24	5040
	25	40320
	26	362880
	27	3628800
	28	EOF
	29	rm -f TMP
	30
	31	#
	32	# ./safe evil.scm
	33	#
	34	$guile -s $srcdir/safe $srcdir/evil.scm > TMP
	35	cat <<EOF \| diff -u - TMP
	36	** Exception: (unbound-variable #f "Unbound variable: ~S" (open-input-file) #f)
	37	EOF
	38	rm -f TMP
	39
	40	# check.test ends here