mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

("letrec init evaluation"): New paranoid test.

Browse source
This commit is contained in:
Neil Jerram 2005-08-15 20:57:38 +00:00
parent 5defc05d45
commit d279764421
2 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test-suite/ChangeLog
View file

@ -1,5 +1,7 @@
2005-08-15 Neil Jerram <neil@ossau.uklinux.net>
* tests/eval.test ("letrec init evaluation"): New paranoid test.
* tests/r5rs_pitfall.test (1.1): Now passes.
2005-08-01 Marius Vollmer <mvo@zagadka.de>

19
test-suite/tests/eval.test
View file

@ -245,5 +245,24 @@
exception:wrong-type-arg
(+ (delay (* 3 7)) 13))))
;;;
;;; letrec init evaluation
;;;
(with-test-prefix "letrec init evaluation"
(pass-if "lots of inits calculated in correct order"
(equal? (letrec ((a 'a) (b 'b) (c 'c) (d 'd)
(e 'e) (f 'f) (g 'g) (h 'h)
(i 'i) (j 'j) (k 'k) (l 'l)
(m 'm) (n 'n) (o 'o) (p 'p)
(q 'q) (r 'r) (s 's) (t 't)
(u 'u) (v 'v) (w 'w) (x 'x)
(y 'y) (z 'z))
(list a b c d e f g h i j k l m
n o p q r s t u v w x y z))
'(a b c d e f g h i j k l m
n o p q r s t u v w x y z))))
;;; eval.test ends here