test-postgresql ( quot -- )

Vocabulary

db.tester

Inputs

quot

an object

Outputs

None

Definition

USING: db db.queries kernel system tools.test.private ;

IN: db.tester

: test-postgresql ( quot -- )
    [ [ postgresql-test-db ] ] dip [ with-db ] curry compose [
        [
            postgresql-template1-db
            [ postgresql-test-db-name ensure-database ] with-db
            [ ]
        ]
    ] dip [ \ (unit-test) 43 experiment ] curry compose
    [ [ os windows? cpu x86.32? and ] ] dip [ unless ] curry
    compose call ; inline