Basic searching support

[bongodb.git] / tests / sample.scm

diff --git a/tests/sample.scm b/tests/sample.scm
index 047a751ca444e363154adea47b044cee46a6fd96..899c6e0f710582625d1e8f17620c1bd7d67d2a54 100644 (file)
--- a/tests/sample.scm
+++ b/tests/sample.scm
@@ -30,5 +30,7 @@
 
 ; Search
 (test-eqv 2 (length (find col '((a . 1)))))
+(test-eqv 1 (length (find col '((a . 1) (b . 2)))))
+(test-eqv 0 (length (find col '((a . "test")))))
 
 (test-end "bongodb")