CT Provider.

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.