do-benchmarks ( -- )

Vocabulary

mason.test

Inputs

None

Outputs

None

Definition

USING: assocs benchmark io.encodings.utf8 io.files kernel
mason.common ;

IN: mason.test

: do-benchmarks ( -- )
    run-timing-benchmarks
    [ benchmarks-file to-file ] [
        [ keys benchmark-error-vocabs-file to-file ] [
            benchmark-error-messages-file utf8
            [ benchmark-errors. ] with-file-writer
        ] bi
    ] bi* ;