2006-11-23 19:33:45 -05:00
|
|
|
|
|
|
|
|
|
|
|
|
|
(add-tests-with-string-output "overflow"
|
|
|
|
|
[(letrec ([f
|
|
|
|
|
(lambda (i)
|
2007-02-13 05:08:48 -05:00
|
|
|
(when (fx<= i 10000)
|
2006-11-23 19:33:45 -05:00
|
|
|
(let ([x (make-list 1000)])
|
|
|
|
|
(f (fxadd1 i)))))])
|
|
|
|
|
(f 0)
|
|
|
|
|
100) => "100\n"]
|
|
|
|
|
[(letrec ([f
|
|
|
|
|
(lambda (i)
|
|
|
|
|
(when (fx<= i 100000)
|
|
|
|
|
(let ([x (list 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
|
|
|
|
|
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)])
|
|
|
|
|
(f (fxadd1 i)))))])
|
|
|
|
|
(f 0)
|
|
|
|
|
100) => "100\n"])
|
