summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThien-Thi Nguyen <ttn@gnuvola.org>2001-05-10 00:02:51 +0000
committerThien-Thi Nguyen <ttn@gnuvola.org>2001-05-10 00:02:51 +0000
commit414959cad8c42777ca7050fac1229ad0feaa45f0 (patch)
tree5f9c383b16f528d6434c34b017bc1d3374791d29
parent7c582ec9b5ffe22256c11043b4cb370297db293c (diff)
downloadguile-414959cad8c42777ca7050fac1229ad0feaa45f0.tar.gz
("evaluator" "memoization"): New test prefix block.
("transparency"): New "evaluator memoization" test.
-rw-r--r--test-suite/tests/eval.test9
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test
index 533b564bc..96e3afc8d 100644
--- a/test-suite/tests/eval.test
+++ b/test-suite/tests/eval.test
@@ -57,6 +57,13 @@
(with-test-prefix "evaluator"
+ (with-test-prefix "memoization"
+
+ (pass-if "transparency"
+ (let ((x '(begin 1)))
+ (eval x (current-module))
+ (equal? '(begin 1) x))))
+
(with-test-prefix "symbol lookup"
(with-test-prefix "top level"
@@ -169,3 +176,5 @@
exception:out-of-range
(map + '(1 2) '(3)))
)))
+
+;;; eval.test ends here