44 lines
948 B
Erlang
44 lines
948 B
Erlang
% 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,
|
|
ts_utils:tidily(fun() -> do(TestNames) end).
|
|
|
|
|
|
do(["-h" | _]) -> do_help();
|
|
do(["--help" | _]) -> do_help();
|
|
do(["-l" | _]) -> do_list();
|
|
do(["--list" | _]) -> do_list();
|
|
do(["-a" | _]) -> do_all();
|
|
do(["--all" | _]) -> do_all();
|
|
do(TestNames) ->
|
|
lists:foreach(fun ts_utils:run_test_by_name/1, TestNames).
|
|
|
|
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].
|