mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

* modules/check.test, safe/check.test: New files.

Browse source 
* modules/Makefile.am (TESTS), safe/Makefile.am (TESTS): New
	variables.
This commit is contained in:
Martin Grabmüller 2001-07-16 17:44:22 +00:00
parent 6750a1baac
commit 08a309fb3b
5 changed files with 70 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
examples/ChangeLog
View file

@ -1,3 +1,10 @@
2001-07-16 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
* modules/check.test, safe/check.test: New files.
* modules/Makefile.am (TESTS), safe/Makefile.am (TESTS): New
variables.
2001-07-14 Thien-Thi Nguyen <ttn@revel.glug.org>
* scripts/check.test: New file.

2
examples/modules/Makefile.am
View file

@ -20,3 +20,5 @@
## 330, Boston, MA 02111-1307 USA
EXTRA_DIST = README module-0.scm module-1.scm module-2.scm main
TESTS = check.test

23
examples/modules/check.test Executable file
View file

@ -0,0 +1,23 @@
#!/bin/sh
# must be run from this directory
guile=${GUILE-../../libguile/guile}
set -e
#
# ./safe untrusted.scm
#
$guile -s main > TMP
cat <<EOF | diff -u - TMP
module-0 foo
module-0 bar
module-1 foo
module-1 bar
module-2 braz
module-2 braz
module-2 foo
EOF
rm -f TMP
# check.test ends here

2
examples/safe/Makefile.am
View file

@ -20,3 +20,5 @@
## 330, Boston, MA 02111-1307 USA
EXTRA_DIST = README safe untrusted.scm evil.scm
TESTS = check.test

36
examples/safe/check.test Executable file
View file

@ -0,0 +1,36 @@
#!/bin/sh
# must be run from this directory
guile=${GUILE-../../libguile/guile}
set -e
#
# ./safe untrusted.scm
#
$guile -s safe 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 safe 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