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


Vocabulary
tools.test.private

Inputs
quotan object


Outputs
error/fan object
failed?an object
tested?an object


Definition
USING: continuations kernel ;

IN: tools.test.private

:: (must-fail) ( quot -- error/f failed? tested? )
[ { } quot with-datastack drop did-not-fail t ] [ drop f f ]
recover t ;