test-main ( -- )

Vocabulary

tools.test

Inputs

None

Outputs

None

Definition

USING: command-line io kernel namespaces sequences system
vocabs.hierarchy vocabs.loader ;

IN: tools.test

: test-main ( -- )
    command-line get "--fast" swap [ member? ] [ remove ] 2bi
    swap [ f long-unit-tests-enabled? set-global ] when [
        dup vocab-roots get member?
        [ [ load-root ] [ test-root ] bi ]
        [ [ load ] [ test ] bi ] if
    ] each test-failures get empty? [
        [ "==== FAILING TESTS" print flush :test-failures ]
        unless
    ] [ 0 1 ? exit ] bi ;