partial-results ( -- xml )

Vocabulary

mason.report

Inputs

None

Outputs

xml

an object

Definition

USING: combinators.smart continuations kernel mason.common
sequences xml.data ;

IN: mason.report

: partial-results ( -- xml )
    [
        T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        } [
            [ eval-file nanos>time ] [ 2drop "Not available" ]
            recover
        ] (timings-table) [
            "Load failures" load-all-vocabs-file
            load-all-errors-file error-dump
        ] available-report-section [
            "Compiler errors" compiler-errors-file
            compiler-error-messages-file error-dump
        ] available-report-section [
            "Unit test failures" test-all-vocabs-file
            test-all-errors-file error-dump
        ] available-report-section [
            "Help lint failures" help-lint-vocabs-file
            help-lint-errors-file error-dump
        ] available-report-section [
            "Benchmark errors" benchmark-error-vocabs-file
            benchmark-error-messages-file error-dump
        ] available-report-section
        [ benchmarks-file eval-file benchmarks-table ]
        available-report-section
    ] output>array sift ;