startest

-module(startest@test_case).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([is_failed/1]).
-export_type([test/0, test_outcome/0, executed_test/0]).

-type test() :: {test, binary(), fun(() -> nil), boolean()}.

-type test_outcome() :: passed |
    {failed, startest@test_failure:test_failure()} |
    skipped.

-type executed_test() :: {executed_test, test(), test_outcome()}.

-spec is_failed(executed_test()) -> boolean().
is_failed(Executed_test) ->
    case erlang:element(3, Executed_test) of
        {failed, _} ->
            true;

        passed ->
            false;

        skipped ->
            false
    end.