(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: continuations sequences ;

IN: tools.test.private

:: (unit-test) ( output input -- error/f failed? tested? )
    [ { } input with-datastack output assert-sequence= f f ]
    [ t ] recover t ;