test-failed ( error -- status )

Vocabulary

mason.report

Inputs

error

an object

Outputs

status

an object

Definition

USING: arrays mason.common ;

IN: mason.report

: test-failed ( error -- status )
    '[
        partial-results _ "test-log" "Tests failed"
        failure-details 2array
    ] with-report status-error ;