print-result ( time -- )

Vocabulary

mongodb.benchmark

Inputs

time

an object

Outputs

None

Definition

USING: accessors formatting io kernel math namespaces ;

IN: mongodb.benchmark

: print-result ( time -- )
    [
        result get [ collection>> ] keep [ batch>> bchar ] keep
        [ index>> bchar ] keep lasterror>> bchar trial-size
    ] dip 1000000000 /
    [ /i ]
    [ result get batch>> [ [ batch-size /i ] dip ] when /i ] 2bi
    "%-18s: {batch:%s,index:%s;errchk:%s} %10s docs/s %10s ops/s"
    sprintf print flush ;