mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-14 17:50:22 +02:00
23 lines
295 B
Bash
Executable file
23 lines
295 B
Bash
Executable file
#!/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
|