mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

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

Browse source
This commit is contained in:
Dirk Herrmann 2004-10-03 06:15:22 +00:00
parent 6a0813c35d
commit c454c4e624
2 changed files with 22 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/ChangeLog
View file

@ -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

18
test-suite/tests/syntax.test
View file

@ -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)"