Index: library/mongodb/tests/nsf-mongo.test =================================================================== diff -u -r6ad766595b0095a72fb7b3a1d6d34960a013b464 -r4dccd3ff7bcf142a60a2c56454411613ec50077e --- library/mongodb/tests/nsf-mongo.test (.../nsf-mongo.test) (revision 6ad766595b0095a72fb7b3a1d6d34960a013b464) +++ library/mongodb/tests/nsf-mongo.test (.../nsf-mongo.test) (revision 4dccd3ff7bcf142a60a2c56454411613ec50077e) @@ -44,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" @@ -92,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 \ @@ -179,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] }