Author: Juergen Boemmels <[email protected]> Branch: Changeset: r29:b27460bc0d0d Date: 2011-12-04 00:19 +0100 http://bitbucket.org/pypy/lang-scheme/changeset/b27460bc0d0d/
Log: Added a closure test diff --git a/scheme/test/test_scheme_level.py b/scheme/test/test_scheme_level.py --- a/scheme/test/test_scheme_level.py +++ b/scheme/test/test_scheme_level.py @@ -159,3 +159,17 @@ (assert (string? new-str)) (assert (equal? new-str "*******")) """) + +def test_closures(): + run_with_assert(r""" +(define (make-counter start) (lambda () (set! start (+ 1 start)) start)) +(assert (procedure? make-counter)) +(define counter-a (make-counter 10)) +(define counter-b (make-counter 10)) +(assert (procedure? counter-a)) +(assert (eqv? (counter-a) 11)) +(assert (eqv? (counter-a) 12)) +(assert (eqv? (counter-a) 13)) +(assert (eqv? (counter-b) 11)) +""") + _______________________________________________ pypy-commit mailing list [email protected] http://mail.python.org/mailman/listinfo/pypy-commit
