% dynamic hacky module that loads all the tests
-module(gsc_tests).

-export([
    main/0,
    cli_args/1
]).



main() ->
    cli_args([]),
    ok.

cli_args(TestNames) ->
    % load ts_utils
    TsUtils = zx:get_home() ++ "/test/ts_utils.erl",
    case compile:file(TsUtils) of
        {ok, ts_utils} -> ok;
        Error -> error(Error)
    end,
    % this loads the test deps and then cleans up any
    % beam files afterwards
    ts_utils:tidily(fun() -> do_gsc_test(TestNames) end).


do_gsc_test(["-h" | _])          -> do_help();
do_gsc_test(["--help" | _])      -> do_help();
do_gsc_test(["-l" | _])          -> do_list();
do_gsc_test(["--list" | _])      -> do_list();
do_gsc_test(["-a" | _])          -> do_all();
do_gsc_test(["--all" | _])       -> do_all();
do_gsc_test(["so_tokens", X])    -> do_so_tokens(X);
do_gsc_test(["so", "tokens", X]) -> do_so_tokens(X);
do_gsc_test(["tokenizers_agree", X]) ->
    do_tokenizers_agree(X);
do_gsc_test([TestName]) ->
    ts_utils:run_test_by_name(TestName);
do_gsc_test(_) ->
    do_help().



do_help() ->
    io:format("go help yourself~n").

do_list() ->
    Names = ts_utils:runnable_test_names(),
    [io:format("~p~n", [N]) || N <- Names].


do_all() ->
    {Gd, _} = ts_utils:runnable_test_mods(),
    [begin ts_utils:rmm(G), io:format("~n") end || G <- Gd].


do_so_tokens(FilePath) ->
    [io:format("~p~n", [Tk]) || Tk <- ts_utils:so_tokens(FilePath)].



do_tokenizers_agree(RelPath) ->
    Result = ts_utils:tokenizers_agree(RelPath),
    io:format("~tp~n", [Result]).