Index: library/mongodb/tests/nsf-mongo.test =================================================================== diff -u -N -ra6a6d9c14bfefba367b3147e05fbab4137f044ce -r25023d3c048b369645973fdfa125a3705c7f1898 --- library/mongodb/tests/nsf-mongo.test (.../nsf-mongo.test) (revision a6a6d9c14bfefba367b3147e05fbab4137f044ce) +++ library/mongodb/tests/nsf-mongo.test (.../nsf-mongo.test) (revision 25023d3c048b369645973fdfa125a3705c7f1898) @@ -163,7 +163,6 @@ [list \$query document {projects document {$in array {0 string nsf 1 string gtat}}}]]} 3 puts stderr "\nStatistics of $mongoColl" -puts stderr [::mongo::collection::stats $mongoColl] set stats [::mongo::collection::stats $mongoColl] ? {expr [llength $stats] % 3 == 0} 1 @@ -175,6 +174,13 @@ puts [C bson pp $stats] } +puts stderr "\nStatus" +set status [::mongo::status $mongoConn] +puts [C bson pp $status] + +? {expr [llength $status] % 3 == 0} 1 +? {expr [llength $status] > 0} 1 + puts stderr "\nClose connection $mongoConn" ::mongo::close $mongoConn