(insert-batch) ( quot: ( i -- doc ) collection -- )

Vocabulary

mongodb.benchmark

Inputs

quot	a quotation with stack effect ( i -- doc )
collection	an object

Outputs

None

Definition

USING: accessors kernel math mongodb.driver namespaces ;

IN: mongodb.benchmark

: (insert-batch) ( quot: ( i -- doc ) collection -- )
    [ trial-size batch-size [ / ] keep ] 2dip '[
        _ _ (prepare-batch) [ _ ] dip result get lasterror>>
        [ save ] [ save-unsafe ] if
    ] each-integer ;