Arthur Barraux
21 lines
502 B
Scheme
21 lines
502 B
Scheme
; try this one with read
|
|
(let* ((file (open-input-file "big_data_gen.sexpr"))
|
|
(data (read file)))
|
|
(gc-flip)
|
|
(print-gc-statistics)
|
|
(newline)
|
|
(display "records: ")
|
|
(display (length data))
|
|
(newline)
|
|
(let ((record (car data)))
|
|
(assert (= (cdr (vector-assq 'index record)) 0))
|
|
(assert (eq? (cdr (vector-assq 'isActive record)) 'False))
|
|
(assert (= (cdr (vector-assq 'age record)) 21)))
|
|
|
|
(close-input-port file))
|
|
|
|
(display "done")
|
|
(newline)
|
|
|
|
|