diff options
author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2001-05-10 00:02:51 +0000 |
---|---|---|
committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2001-05-10 00:02:51 +0000 |
commit | 414959cad8c42777ca7050fac1229ad0feaa45f0 (patch) | |
tree | 5f9c383b16f528d6434c34b017bc1d3374791d29 | |
parent | 7c582ec9b5ffe22256c11043b4cb370297db293c (diff) | |
download | guile-414959cad8c42777ca7050fac1229ad0feaa45f0.tar.gz |
("evaluator" "memoization"): New test prefix block.
("transparency"): New "evaluator memoization" test.
-rw-r--r-- | test-suite/tests/eval.test | 9 |
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 |