run-test-file ( path -- )

Vocabulary

tools.test

Inputs

path

an object

Outputs

None

Definition

USING: continuations kernel namespaces parser sequences
source-files.errors tools.test.private ;

IN: tools.test

: run-test-file ( path -- )
    dup current-test-file [
        test-failures get current-test-file get +test-failure+
        delete-file-errors [ run-file ] curry [
            restartable-tests? get
            [ dup compute-restarts empty? not ] [ f ] if
            [ rethrow ] [ notify-test-file-failed ] if
        ] recover
    ] with-variable ;