db-tester ( test-db -- )

Vocabulary

db.tester

Inputs

test-db

an object

Outputs

None

Definition

USING: concurrency.combinators db db.tuples kernel math
sequences threads ;

IN: db.tester

: db-tester ( test-db -- )
    [ [ test-1 ensure-table test-2 ensure-table ] with-db ] [
        10 <iota> [
            drop 10
            [ dup [ test-1-tuple insert-tuple yield ] with-db ]
            times
        ] with parallel-each
    ] bi ;