diff options
| -rw-r--r-- | src/rebar_prv_common_test.erl | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/src/rebar_prv_common_test.erl b/src/rebar_prv_common_test.erl new file mode 100644 index 0000000..a8d7e31 --- /dev/null +++ b/src/rebar_prv_common_test.erl @@ -0,0 +1,59 @@ +%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*- +%% ex: ts=4 sw=4 et + +-module(rebar_prv_common_test). + +-behaviour(rebar_provider). + +-export([init/1, + do/1]). + +-include("rebar.hrl"). + +-define(PROVIDER, ct). +-define(DEPS, [compile]). + +%% =================================================================== +%% Public API +%% =================================================================== + +-spec init(rebar_state:t()) -> {ok, rebar_state:t()}. +init(State) -> + State1 = rebar_state:add_provider(State, + #provider{name = ?PROVIDER, + provider_impl = ?MODULE, + bare = false, + deps = ?DEPS, + example = "rebar ct", + short_desc = "Run common tests", + desc = "", + opts = []}), + {ok, State1}. + +-spec do(rebar_state:t()) -> {ok, rebar_state:t()}. +do(State) -> + % Run common tests. + % CommandArguments = rebar_state:command_args(State), + Logdir = filename:join([rebar_state:dir(State), "logs"]), + ok = ensure_logdir(Logdir), + % @todo check for test dir, figure out how Tristan does nice errors + Testdir = filename:join([rebar_state:dir(State), "test"]), + case ec_file:is_dir(Testdir) of + false -> + ?INFO("Test directory ~s does not exist:\n", + [Testdir]), + ?FAIL; + _ -> ok + end, + Opts = [{dir, Testdir}, + {logdir, Logdir}], + ct:run_test(Opts), + {ok, State}. + +ensure_logdir(Logdir) -> + case ec_file:is_dir(Logdir) of + true -> + ok; + false -> + ec_file:mkdir_path(Logdir) + end. |