summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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