diff options
Diffstat (limited to 'examples/box/check.test')
-rwxr-xr-x | examples/box/check.test | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/examples/box/check.test b/examples/box/check.test deleted file mode 100755 index 1909ffb7e..000000000 --- a/examples/box/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 '(let ((b (make-box))) (display b) (newline))' > TMP -cat <<EOF | diff -u - TMP -#<box #f> -EOF -rm -f TMP - -# -# ./box test #2 -# -./box -c '(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 '(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 |