Index: library/mongodb/tests/nx-rep.test =================================================================== diff -u -r4940f1317b9827162d7a0d28c74da0758ffe2d29 -rcef3de5c4f65e767d0c66389bacc77bc3c2e5a68 --- library/mongodb/tests/nx-rep.test (.../nx-rep.test) (revision 4940f1317b9827162d7a0d28c74da0758ffe2d29) +++ library/mongodb/tests/nx-rep.test (.../nx-rep.test) (revision cef3de5c4f65e767d0c66389bacc77bc3c2e5a68) @@ -53,7 +53,7 @@ set body {} set c 0 foreach {k v} [$obj eval [list array get :$name]] { - lappend body [incr c] object [list k string $k v string $v] + lappend body [incr c] document [list k string $k v string $v] } return [list array $body] } @@ -73,7 +73,7 @@ dict for {k v} [$obj eval [list set :$name]] { lappend body $k string $v } - return [list object $body] + return [list document $body] } :public method "bson rep decode dict" {slot name bsontype value} { set result "" @@ -133,7 +133,7 @@ Foo show -puts stderr ====EXIT +puts stderr "====EXIT [info script]" ###################################################################### # Output ###################################################################### @@ -151,3 +151,10 @@ # title: {Hello World}, # tags: [ a ] # } +###################################################################### +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: