Index: library/mongodb/tests/nsf-mongo.test
===================================================================
diff -u -r25023d3c048b369645973fdfa125a3705c7f1898 -r4dccd3ff7bcf142a60a2c56454411613ec50077e
--- library/mongodb/tests/nsf-mongo.test	(.../nsf-mongo.test)	(revision 25023d3c048b369645973fdfa125a3705c7f1898)
+++ library/mongodb/tests/nsf-mongo.test	(.../nsf-mongo.test)	(revision 4dccd3ff7bcf142a60a2c56454411613ec50077e)
@@ -5,6 +5,16 @@
 #
 
 package require nsf
+
+puts stderr "PWD [pwd]"
+puts stderr "auto_path $auto_path"
+foreach p [lsort [package names]] {
+   if {![catch {package present $p}]} {
+      set l [format %-15s $p]
+      puts stderr "loaded $l [package ifneeded $p [package require $p]]"
+   }
+}
+
 package require nx::test
 package require nsf::mongo
 
@@ -34,7 +44,7 @@
     create string persons
     capped bool 1 
     size int32 100000
-  }} 1
+  }} "ok double 1.0"
 
   ? {set mongoColl [::mongo::collection::open $mongoConn tutorial persons]} "mongoc_collection_t:0"
   puts "Collection: $mongoColl"
@@ -82,6 +92,15 @@
 	       [list \$query document {projects string nsf} \$orderby document {name int 1}]]
 } 2
 
+
+package req nx::mongo
+nx::mongo::Class create C
+
+set result [::mongo::run $mongoConn tutorial {distinct string persons key string name}]
+
+puts stderr "\nDistinct Persons: [C bson pp $result]"
+
+
 puts stderr "\nProject members of nsf sorted by name"
 ? {
   set r [lindex [::mongo::collection::query $mongoColl \
@@ -169,8 +188,6 @@
 ? {expr [llength $stats] > 0} 1
 
 if {[llength $stats] % 3 == 0} {
-  package req nx::mongo
-  nx::mongo::Class create C
   puts [C bson pp $stats]
 }