20 lines
452 B
Scheme
20 lines
452 B
Scheme
|
|
||
|
|
(library (tests symbol-table)
|
||
|
|
(export run-tests)
|
||
|
|
(import
|
||
|
|
(ikarus)
|
||
|
|
(only (ikarus system $symbols) $symbol-table-size))
|
||
|
|
|
||
|
|
(define (test-gcable-symbols n)
|
||
|
|
(let ([st1 ($symbol-table-size)])
|
||
|
|
(do ((i 0 (+ i 1)))
|
||
|
|
((= i n))
|
||
|
|
(string->symbol (number->string i)))
|
||
|
|
(collect)
|
||
|
|
(let ([st2 ($symbol-table-size)])
|
||
|
|
(assert (< (- st2 st1) n)))))
|
||
|
|
|
||
|
|
(define (run-tests)
|
||
|
|
(test-gcable-symbols 1000000)))
|
||
|
|
|