mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-29 19:30:36 +02:00
38 lines
788 B
Bash
Executable file
38 lines
788 B
Bash
Executable file
#!/bin/sh
|
|
|
|
# must be run from this directory
|
|
guile=${GUILE-../../libguile/guile}
|
|
|
|
set -e
|
|
|
|
#
|
|
# ./box test #1
|
|
#
|
|
$guile -c '(begin (load-extension "libbox" "scm_init_box") (let ((b (make-box))) (display b) (newline)))' > TMP
|
|
cat <<EOF | diff -u - TMP
|
|
#<box #f>
|
|
EOF
|
|
rm -f TMP
|
|
|
|
#
|
|
# ./box test #2
|
|
#
|
|
$guile -c '(begin (load-extension "libbox" "scm_init_box") (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
|
|
#
|
|
$guile -c '(begin (load-extension "libbox" "scm_init_box") (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
|