From f3b5adfb717b90eaa2d1ba634b79c323a0e09c8a Mon Sep 17 00:00:00 2001
From: omarkj <omarkj@gmail.com>
Date: Thu, 18 Sep 2014 23:00:35 -0700
Subject: CT Provider.

---
 src/rebar_prv_common_test.erl | 59 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 src/rebar_prv_common_test.erl

(limited to 'src')

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.
-- 
cgit v1.1