diff options
Diffstat (limited to 'examples/box-module/check.test')
-rwxr-xr-x | examples/box-module/check.test | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/examples/box-module/check.test b/examples/box-module/check.test deleted file mode 100755 index 28a79d45b..000000000 --- a/examples/box-module/check.test +++ /dev/null @@ -1,38 +0,0 @@ -#!/bin/sh - -# must be run from this directory -guile=${GUILE-../../libguile/guile} - -set -e - -# -# ./box test #1 -# -./box -c '(begin (use-modules (box-module)) (let ((b (make-box))) (display b) (newline)))' > TMP -cat <<EOF | diff -u - TMP -#<box #f> -EOF -rm -f TMP - -# -# ./box test #2 -# -./box -c '(begin (use-modules (box-module)) (let ((b (make-box))) (display b) (newline) (box-set! b 1) (display b) (newline)))' > TMP -cat <<EOF | diff -u - TMP -#<box #f> -#<box 1> -EOF -rm -f TMP - -# -# ./box test #3 -# -./box -c '(begin (use-modules (box-module)) (let ((b (make-box))) (display b) (newline) (box-set! b 1) (display b) (newline) (display (box-ref b)) (newline)))' > TMP -cat <<EOF | diff -u - TMP -#<box #f> -#<box 1> -1 -EOF -rm -f TMP - -# check.test ends here |