27 lines
713 B
Plaintext
27 lines
713 B
Plaintext
|
#!/bin/sh
|
||
|
|
|
||
|
|
# this test sometimes crashes the GC with the well-known
|
||
|
|
# Panic: Visit: object not in prev space at 0x40210b2c ('pair') 8199 8201 (dumping core).
|
||
|
|
|
||
|
|
cat << EOF | @top_builddir@/src/elk -p .:@top_srcdir@/scm -l -
|
||
|
|
|
||
|
|
(display "testing garbage collector integrity (10000 loops)\n")
|
||
|
|
;(set! garbage-collect-notify? #t)
|
||
|
|
(define c 0)
|
||
|
|
(define cb
|
||
|
|
(lambda ignore
|
||
|
|
(let ((s '()))
|
||
|
|
(set! c (+ 1 c))
|
||
|
|
(call/cc
|
||
|
|
(lambda (return)
|
||
|
|
(do ((i 0 (+ i 1)))
|
||
|
|
((= i 100))
|
||
|
|
(let ((a (+ i 1)))
|
||
|
|
(set! s (append s (list i))))
|
||
|
|
(if (= i 60) (return #t))))))))
|
||
|
|
(do ((i 0 (+ i 1))) ((= i 10000)) (cb))
|
||
|
|
(display "test passed.\n")
|
||
|
|
|
||
|
|
EOF
|
||
|
|
|