exercism_test_runner

-module(exercism@test_runner).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([debug/1, main/0]).
-export_type([beam_module/0]).

-type beam_module() :: any().

-spec debug(KMY) -> KMY.
debug(Value) ->
    exercism_test_runner@internal:append_output(gleam@string:inspect(Value)),
    Value.

-spec run_test(exercism_test_runner@internal:test()) -> exercism_test_runner@internal:test_result().
run_test(The_test) ->
    Result = exercism_test_runner@internal:run_test(The_test),
    case erlang:element(3, Result) of
        none ->
            gleam@io:print(gleam_community@ansi:green(<<"."/utf8>>));

        {some, Error} ->
            gleam@io:println(gleam_community@ansi:red(<<"F"/utf8>>)),
            gleam@io:println(
                exercism_test_runner@internal:print_error(
                    Error,
                    erlang:element(3, The_test),
                    erlang:element(2, The_test)
                )
            )
    end,
    Result.

-spec run_suite(exercism_test_runner@internal:suite()) -> list(exercism_test_runner@internal:test_result()).
run_suite(Suite) ->
    gleam@list:map(erlang:element(4, Suite), fun run_test/1).

-spec get_beam_module(binary()) -> beam_module().
get_beam_module(Name) ->
    _assert_subject = begin
        _pipe = Name,
        _pipe@1 = gleam@string:replace(_pipe, <<"/"/utf8>>, <<"@"/utf8>>),
        gleam_erlang_ffi:atom_from_string(_pipe@1)
    end,
    {ok, Atom} = case _assert_subject of
        {ok, _} -> _assert_subject;
        _assert_fail ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Assertion pattern match failed"/utf8>>,
                        value => _assert_fail,
                        module => <<"exercism/test_runner"/utf8>>,
                        function => <<"get_beam_module"/utf8>>,
                        line => 84})
    end,
    gleam_stdlib:identity(Atom).

-spec get_test(
    binary(),
    binary(),
    beam_module(),
    glance:definition(glance:function_())
) -> {ok, exercism_test_runner@internal:test()} | {error, nil}.
get_test(Src, Module_path, Module, Function) ->
    {function, Name, _, _, _, _, {span, Start, End}} = erlang:element(
        3,
        Function
    ),
    gleam@bool:guard(
        not gleam@string:ends_with(Name, <<"_test"/utf8>>),
        {error, nil},
        fun() ->
            Src@1 = exercism_test_runner@internal:extract_function_body(
                Src,
                Start,
                End
            ),
            Function@1 = fun() ->
                exercism_test_runner@internal:run_test_function(
                    fun() ->
                        erlang:apply(Module, erlang:binary_to_atom(Name), [])
                    end
                )
            end,
            {ok, {test, Name, Module_path, Function@1, Src@1}}
        end
    ).

-spec read_module(gleam@erlang@charlist:charlist()) -> exercism_test_runner@internal:suite().
read_module(Filename) ->
    Filename@1 = unicode:characters_to_binary(Filename),
    Name = gleam@string:drop_right(Filename@1, 6),
    Path = <<"test/"/utf8, Filename@1/binary>>,
    _assert_subject = simplifile:read(Path),
    {ok, Src} = case _assert_subject of
        {ok, _} -> _assert_subject;
        _assert_fail ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Assertion pattern match failed"/utf8>>,
                        value => _assert_fail,
                        module => <<"exercism/test_runner"/utf8>>,
                        function => <<"read_module"/utf8>>,
                        line => 74})
    end,
    _assert_subject@1 = glance:module(Src),
    {ok, Ast} = case _assert_subject@1 of
        {ok, _} -> _assert_subject@1;
        _assert_fail@1 ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Assertion pattern match failed"/utf8>>,
                        value => _assert_fail@1,
                        module => <<"exercism/test_runner"/utf8>>,
                        function => <<"read_module"/utf8>>,
                        line => 75})
    end,
    Module = get_beam_module(Name),
    Tests = gleam@list:filter_map(
        erlang:element(8, Ast),
        fun(_capture) -> get_test(Src, Path, Module, _capture) end
    ),
    {suite, Name, Path, Tests}.

-spec main() -> any().
main() ->
    _assert_subject = file:list_dir(<<"test"/utf8>>),
    {ok, Files} = case _assert_subject of
        {ok, _} -> _assert_subject;
        _assert_fail ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Assertion pattern match failed"/utf8>>,
                        value => _assert_fail,
                        module => <<"exercism/test_runner"/utf8>>,
                        function => <<"main"/utf8>>,
                        line => 19})
    end,
    Suites = gleam@list:map(Files, fun read_module/1),
    Results = gleam@list:flat_map(Suites, fun run_suite/1),
    {Passed, Message} = exercism_test_runner@internal:print_summary(Results),
    gleam@io:println(<<"\n"/utf8, Message/binary>>),
    _assert_subject@1 = case erlang:element(4, argv:load()) of
        [<<"--json-output-path="/utf8, Path/binary>>] ->
            Json = exercism_test_runner@internal:results_to_json(Results),
            simplifile:write(Path, Json);

        [<<"--json-output-path"/utf8>>, Path] ->
            Json = exercism_test_runner@internal:results_to_json(Results),
            simplifile:write(Path, Json);

        _ ->
            {ok, nil}
    end,
    {ok, _} = case _assert_subject@1 of
        {ok, _} -> _assert_subject@1;
        _assert_fail@1 ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Assertion pattern match failed"/utf8>>,
                        value => _assert_fail@1,
                        module => <<"exercism/test_runner"/utf8>>,
                        function => <<"main"/utf8>>,
                        line => 25})
    end,
    erlang:halt(case Passed of
            true ->
                0;

            false ->
                1
        end).