-
-
-;;; Testing
-
-(define (sample-test)
- (let ((col (make-collection)))
- (format #t "1 New collection: ~a~%" col)
- (set! col (insert col '((a . 1) (b . 2)) '((a . 10) (b . 20)) '((a . 1) (b . "hello world"))))
- (format #t "2 Insert 3 documents: ~a~%" col)
- (format #t "3 Search (a . 1): ~a~%" (find col '((a . 1))))))