(test-assert (collection? col))
; Insert
-(set! col (insert col
- '((a . 1) (b . 2))
- '((a . 10) (b . 20))
- '((a . 1) (c . "hello world"))))
+(insert col
+ '((a . 1) (b . 2))
+ '((a . 10) (b . 20))
+ '((a . 1) (c . "hello world")))
(test-eqv 3 (count col))
; Search
(test-eqv 2 (length (find col ($not ($exists 'c)))))
; Update
-(set! col (update col ($exists 'c) ($set 'c "test")))
+(update col ($exists 'c) ($set 'c "test"))
(test-eqv 1 (length (find col ($eq 'c "test"))))
(test-end "bongodb")