save-benchmark-results ( results errors -- )

Vocabulary

mason.test

Inputs

results	an object
errors	an object

Outputs

None

Definition

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

IN: mason.test

: save-benchmark-results ( results errors -- )
    [ benchmarks-file [ to-file ] safe-overwrite-file ] [
        [
            keys benchmark-error-vocabs-file
            [ to-file ] safe-overwrite-file
        ] [
            benchmark-error-messages-file
            [ utf8 [ benchmark-errors. ] with-file-writer ]
            safe-overwrite-file
        ] bi
    ] bi* ;