(fuzz-test) ( generator predicate -- error/f failed? tested? )


Vocabulary
tools.test.fuzz.private

Inputs
generatoran object
predicatean object


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


Definition
USING: kernel namespaces sequences tools.test.fuzz ;

IN: tools.test.fuzz.private

: (fuzz-test)
( generator predicate -- error/f failed? tested? )
[ fuzz-test-failures [ f f ] ]
[ [ fuzz-test-trials get <fuzz-test-failure> t ] curry ] bi
if-empty t ; inline