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

Vocabulary

tools.test.private

Inputs

quot	an object
pred	an object

Outputs

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

Definition

USING: combinators continuations kernel ;

IN: tools.test.private

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