(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 3 (length (find col)))
+(test-eqv 3 (length (find col #t)))
(test-eqv 2 (length (find col ($eq 'a 1))))
-(test-eqv 1 (length (find col ($eq 'a 1) ($eq 'b 2))))
-(test-eqv 0 (length (find col ($eq 'a "test"))))
+(test-eqv 1 (length (find col ($and ($eq 'a 1) ($eq 'b 2)))))
+(test-eqv 0 (length (find col ($eq 'c "test"))))
(test-eqv 2 (length (find col ($exists 'b))))
(test-eqv 2 (length (find col ($not ($exists 'c)))))
+; Update
+(update col ($exists 'c) ($set 'c "test"))
+(test-eqv 1 (length (find col ($eq 'c "test"))))
+
(test-end "bongodb")