(must-infer) ( quot -- error/f failed? tested? )

Vocabulary

tools.test.private

Inputs

quot

an object

Outputs

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

Definition

USING: continuations kernel stack-checker ;

IN: tools.test.private

:: (must-infer) ( quot -- error/f failed? tested? )
    [ quot infer drop f f ] [ t ] recover t ;