<test-failure> ( error experiment path line# -- test-failure )

Vocabulary

tools.test

Inputs

error	an object
experiment	an object
path	an object
line#	an object

Outputs

test-failure

an object

Definition

USING: accessors continuations kernel namespaces ;

IN: tools.test

: <test-failure>
    ( error experiment path line# -- test-failure )
    test-failure new swap >>line# swap >>path swap >>asset
    swap >>error error-continuation get >>continuation ;