(long-unit-test) ( output input -- error/f failed? tested? )

Vocabulary

tools.test.private

Inputs

output	an object
input	an object

Outputs

error/f	an object
failed?	an object
tested?	an object

Definition

USING: kernel namespaces tools.test ;

IN: tools.test.private

: (long-unit-test)
    ( output input -- error/f failed? tested? )
    long-unit-tests-enabled? get
    [ (unit-test) ] [ 2drop f f f ] if ;