fake-unit-test ( quot -- test-failures )

Vocabulary

tools.test.private

Inputs

quot

an object

Outputs

test-failures

an object

Definition

USING: kernel namespaces source-files.errors tools.test ;

IN: tools.test.private

: fake-unit-test ( quot -- test-failures )
    [
        "fake" current-test-file set
        V{ } clone test-failures set call test-failures get
    ] with-scope notify-error-observers ; inline