run-benchmark ( vocab quot: ( vocab -- res ) -- result ok? )


Vocabulary
benchmark.private

Inputs
vocaban object
quota quotation with stack effect ( vocab -- res )


Outputs
resultan object
ok?an object


Definition
USING: continuations kernel tools.test ;

IN: benchmark.private

: run-benchmark
( vocab quot: ( vocab -- res ) -- result ok? )
over write-header curry [ t ] compose
[ f f f <test-failure> f ] recover ; inline