* tests/syntax.test: Added tests for unmemoization.

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index f089154..11b744e 100644 (file)
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-03  Dirk Herrmann  <dirk@dirk-herrmanns-seiten.de>
+
+       * tests/syntax.test: Added tests for unmemoization.
+
 2004-09-30  Marius Vollmer  <marius.vollmer@uni-dortmund.de>
 
        * tests/strings.test (string-set!): Explicitely construct

diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index ae02ee8..46bf892 100644 (file)
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -743,6 +743,24 @@
                ((foo)))
             (interaction-environment))))
 
+  (with-test-prefix "unmemoization"
+
+    (pass-if "definition unmemoized without prior execution"
+      (eval '(begin 
+               (define (blub) (cons ('(1 . 2)) 2))
+               (equal?
+                 (procedure-source blub)
+                 '(lambda () (cons ('(1 . 2)) 2))))
+            (interaction-environment)))
+
+    (pass-if "definition with documentation unmemoized without prior execution"
+      (eval '(begin 
+               (define (blub) "Comment" (cons ('(1 . 2)) 2))
+               (equal?
+                 (procedure-source blub)
+                 '(lambda () "Comment" (cons ('(1 . 2)) 2))))
+            (interaction-environment))))
+
   (with-test-prefix "missing or extra expressions"
 
     (pass-if-exception "(define)"