Index: library/mongodb/tests/nsf-mongo.test
===================================================================
diff -u -rab21c8502870e715c567c657146283699e31b01b -r3b027ad12276944ae1a5025481e88723e61b1787
--- library/mongodb/tests/nsf-mongo.test	(.../nsf-mongo.test)	(revision ab21c8502870e715c567c657146283699e31b01b)
+++ library/mongodb/tests/nsf-mongo.test	(.../nsf-mongo.test)	(revision 3b027ad12276944ae1a5025481e88723e61b1787)
@@ -252,6 +252,15 @@
 ? { llength [::mongo::collection::query $mongoColl \
 		 {projects document {$in array {0 string nsf 1 string gtat}}}]} 3
 
+puts stderr "\nName ~ /an/i"
+? {
+  set r [::mongo::collection::query $mongoColl \
+             {name document {$regex regex {an i}}} \
+             -opts {projection document {name int 1}}]
+  set _ [llength $r]-[lindex [lindex $r 0] end]-[lindex [lindex $r 1] end]
+} 2-Franz-Stefan
+
+
 puts stderr "\nStatistics of $mongoColl"
 set stats [::mongo::collection::stats $mongoColl]
 
@@ -262,6 +271,8 @@
   puts [C bson pp $stats]
 }
 
+
+
 puts stderr "\nStatus"
 set status [::mongo::status $mongoConn]
 puts [C bson pp $status]