(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
+(set! col (update col ($exists 'c) ($set 'c "test")))
+(test-eqv 1 (length (find col ($eq 'c "test"))))
+
(test-end "bongodb")