(unit-test-comparator) ( output input comparator -- error/f failed? tested? )

Vocabulary

tools.test.private

Inputs

output	an object
input	an object
comparator	an object

Outputs

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

Definition

USING: continuations kernel quotations sequences ;

IN: tools.test.private

: (unit-test-comparator)
    ( output input comparator -- error/f failed? tested? )
    swapd [ [ 3dup ] ] dip
    [ [ 3drop t ] [ drop assert ] if ] compose compose [
        [ [ [ { } ] ] dip [ with-datastack ] curry compose ] dip
        [ >quotation ] curry compose
    ] dip [ compose with-datastack first dup not ] curry compose
    [ t ] recover t ; inline