do-all ( -- )

Vocabulary

mason.test

Inputs

None

Outputs

None

Definition

USING: bootstrap.stage2 help.html io.directories kernel
mason.common namespaces parser.notes system tools.test
tools.time ;

IN: mason.test

: do-all ( -- )
    f parser-quiet? set-global f restartable-tests? set-global
    ".." [
        run-mason-rc check-user-init-errors [ 1 exit ] when
        bootstrap-time get boot-time-file to-file
        check-boot-image [ 1 exit ] when
        [ do-load ] benchmark load-time-file to-file
        [ generate-help ] benchmark html-help-time-file to-file
        [ do-tests ] benchmark test-time-file to-file
        [ do-help-lint ] benchmark help-lint-time-file to-file
        [ do-benchmarks ] benchmark benchmark-time-file to-file
        do-compile-errors
    ] with-directory ;