db-tester2 ( test-db -- )

Vocabulary

db.tester

Inputs

test-db

an object

Outputs

None

Definition

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

IN: db.tester

: db-tester2 ( test-db -- )
    [ [ test-1 ensure-table test-2 ensure-table ] with-db ] [
        <db-pool> [
            [
                10 <iota>
                [ 10 [ test-1-tuple insert-tuple yield ] times ]
                parallel-each
            ] with-pooled-db
        ] with-disposal
    ] bi ;