guile/guile-core/test-suite/tests eval.test

[Thien-Thi Nguyen]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Thien-Thi Nguyen <address@hidden>       01/05/09 17:02:51

Modified files:
        guile-core/test-suite/tests: eval.test 

Log message:
        ("evaluator" "memoization"): New test prefix block.
        ("transparency"): New "evaluator memoization" test.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/test-suite/tests/eval.test.diff?cvsroot=OldCVS&tr1=1.5&tr2=1.6&r1=text&r2=text

Patches:
Index: guile/guile-core/test-suite/tests/eval.test
diff -u guile/guile-core/test-suite/tests/eval.test:1.5 
guile/guile-core/test-suite/tests/eval.test:1.6
--- guile/guile-core/test-suite/tests/eval.test:1.5     Thu Mar  1 17:38:01 2001
+++ guile/guile-core/test-suite/tests/eval.test Wed May  9 17:02:51 2001
@@ -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