Index: library/mongodb/tests/nsf-mongo.test =================================================================== diff -u -N -rcef3de5c4f65e767d0c66389bacc77bc3c2e5a68 -ra6a6d9c14bfefba367b3147e05fbab4137f044ce --- library/mongodb/tests/nsf-mongo.test (.../nsf-mongo.test) (revision cef3de5c4f65e767d0c66389bacc77bc3c2e5a68) +++ library/mongodb/tests/nsf-mongo.test (.../nsf-mongo.test) (revision a6a6d9c14bfefba367b3147e05fbab4137f044ce) @@ -162,9 +162,19 @@ ? { llength [::mongo::collection::query $mongoColl \ [list \$query document {projects document {$in array {0 string nsf 1 string gtat}}}]]} 3 -puts stderr "\nClose collecton $mongoColl" -::mongo::collection::close $mongoColl +puts stderr "\nStatistics of $mongoColl" +puts stderr [::mongo::collection::stats $mongoColl] +set stats [::mongo::collection::stats $mongoColl] +? {expr [llength $stats] % 3 == 0} 1 +? {expr [llength $stats] > 0} 1 + +if {[llength $stats] % 3 == 0} { + package req nx::mongo + nx::mongo::Class create C + puts [C bson pp $stats] +} + puts stderr "\nClose connection $mongoConn" ::mongo::close $mongoConn