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

* tests/eval.test (promises)[unmemoizing a promise]: New test.

Browse source 
* tests/continuations.test ("continuations"): Use
with-debugging-evaluator.

* standalone/test-use-srfi: Use -q to avoid picking up the user's
~/.guile file

* lib.scm (with-debugging-evaluator*, with-debugging-evaluator):
New utilities.
This commit is contained in:
Neil Jerram 2007-10-19 22:07:31 +00:00
parent 9a79f394f9
commit 6f640c9f22
5 changed files with 57 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test-suite/standalone/test-use-srfi
View file

@ -19,14 +19,14 @@
# Test that two srfi numbers on the command line work.
#
guile --use-srfi=1,10 >/dev/null <<EOF
guile -q --use-srfi=1,10 >/dev/null <<EOF
(if (and (defined? 'partition)
(defined? 'define-reader-ctor))
(exit 0) ;; good
(exit 1)) ;; bad
EOF
if test $? = 0; then :; else
echo "guile --user-srfi=1,10 fails to run"
echo "guile --use-srfi=1,10 fails to run"
exit 1
fi
@ -38,7 +38,7 @@ fi
# `top-repl' the core bindings got ahead of anything --use-srfi gave.
#
guile --use-srfi=1 >/dev/null <<EOF
guile -q --use-srfi=1 >/dev/null <<EOF
(catch #t
(lambda ()
(iota 2 3 4))
@ -47,7 +47,7 @@ guile --use-srfi=1 >/dev/null <<EOF
(exit 0) ;; good
EOF
if test $? = 0; then :; else
echo "guile --user-srfi=1 doesn't give SRFI-1 iota"
echo "guile --use-srfi=1 doesn't give SRFI-1 iota"
exit 1
fi
@ -56,12 +56,12 @@ fi
# exercises duplicates handling in `top-repl' versus `use-srfis' (in
# boot-9.scm).
#
guile --use-srfi=17 >/dev/null <<EOF
guile -q --use-srfi=17 >/dev/null <<EOF
(if (procedure-with-setter? car)
(exit 0) ;; good
(exit 1)) ;; bad
EOF
if test $? = 0; then :; else
echo "guile --user-srfi=17 doesn't give SRFI-17 car"
echo "guile --use-srfi=17 doesn't give SRFI-17 car"
exit 1
fi