mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 12:10:26 +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> 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. * tests/r5rs_pitfall.test (1.1): Now passes.
2005-08-01 Marius Vollmer <mvo@zagadka.de> 2005-08-01 Marius Vollmer <mvo@zagadka.de>

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

@ -245,5 +245,24 @@
exception:wrong-type-arg exception:wrong-type-arg
(+ (delay (* 3 7)) 13)))) (+ (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 ;;; eval.test ends here