test-vocab ( vocab -- )

Vocabulary

tools.test.private

Inputs

vocab

an object

Outputs

None

Definition

USING: accessors kernel sequences tools.test tools.time vocabs
vocabs.files ;

IN: tools.test.private

: test-vocab ( vocab -- )
    lookup-vocab [
        dup source-loaded?>> [
            dup vocab-tests
            [ [ [ run-test-file ] each ] [ forget-tests ] bi ]
            benchmark possible-long-unit-tests
        ] [ drop ] if
    ] when* ;