mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

("evaluator" "memoization"): New test prefix block.

Browse source 
("transparency"): New "evaluator memoization" test.
This commit is contained in:
Thien-Thi Nguyen 2001-05-10 00:02:51 +00:00
parent 7c582ec9b5
commit 414959cad8
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test-suite/tests/eval.test
View file

@ -57,6 +57,13 @@
(with-test-prefix "evaluator" (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 "symbol lookup"
(with-test-prefix "top level" (with-test-prefix "top level"
@ -169,3 +176,5 @@
exception:out-of-range exception:out-of-range
(map + '(1 2) '(3))) (map + '(1 2) '(3)))
))) )))
;;; eval.test ends here