19 lines
465 B
Scheme
19 lines
465 B
Scheme
|
|
|
|
(add-tests-with-string-output "overflow"
|
|
[(letrec ([f
|
|
(lambda (i)
|
|
(when (fx<= i 10000)
|
|
(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"])
|