startest

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

-export([report_summary/2]).

-spec report_summary(
    startest@context:context(),
    list({startest@test_case:test(), startest@test_failure:test_failure()})
) -> nil.
report_summary(Ctx, Failed_tests) ->
    Failed_test_count = gleam@list:length(Failed_tests),
    Has_any_failures = Failed_test_count > 0,
    case Has_any_failures of
        true ->
            startest@logger:log(erlang:element(3, Ctx), <<""/utf8>>),
            startest@logger:log(
                erlang:element(3, Ctx),
                gleam_community@ansi:black(
                    gleam_community@ansi:bg_bright_red(
                        <<<<" Failed Tests: "/utf8,
                                (gleam@int:to_string(Failed_test_count))/binary>>/binary,
                            " "/utf8>>
                    )
                )
            ),
            startest@logger:log(erlang:element(3, Ctx), <<""/utf8>>),
            _pipe = Failed_tests,
            gleam@list:each(
                _pipe,
                fun(Failed_test) ->
                    {Test_case, Failure} = Failed_test,
                    startest@logger:log(
                        erlang:element(3, Ctx),
                        <<<<<<<<(gleam_community@ansi:black(
                                            gleam_community@ansi:bg_bright_red(
                                                <<" FAIL "/utf8>>
                                            )
                                        ))/binary,
                                        " "/utf8>>/binary,
                                    (erlang:element(2, Test_case))/binary>>/binary,
                                "\n"/utf8>>/binary,
                            (startest@test_failure:to_string(Failure))/binary>>
                    )
                end
            );

        false ->
            nil
    end.