Allow to fold the travis log

default.spec

@@ -11,6 +11,6 @@
 {suites, "tests", mam_SUITE}.
 {config, ["test.config"]}.
 {logdir, "ct_report"}.
-{ct_hooks, [ct_tty_hook, ct_mongoose_hook]}.
+{ct_hooks, [ct_tty_hook, ct_mongoose_hook, ct_travis_hook]}.
 %%To enable printing group and case enters on server side
 %%{ct_hooks, [{ct_tty_hook, [print_group, print_case]}]}.

src/ct_travis_hook.erl

@@ -0,0 +1,108 @@
+%%% @doc Common Test Example Common Test Hook module.
+-module(ct_travis_hook).
+
+%% Callbacks
+-export([id/1]).
+-export([init/2]).
+
+-export([pre_init_per_suite/3]).
+-export([post_init_per_suite/4]).
+-export([pre_end_per_suite/3]).
+-export([post_end_per_suite/4]).
+
+-export([pre_init_per_group/3]).
+-export([post_init_per_group/4]).
+-export([pre_end_per_group/3]).
+-export([post_end_per_group/4]).
+
+-export([pre_init_per_testcase/3]).
+-export([post_end_per_testcase/4]).
+
+-export([on_tc_fail/3]).
+-export([on_tc_skip/3]).
+
+-export([terminate/1]).
+
+-record(state, { log_fd }).
+
+%% @doc Return a unique id for this CTH.
+id(Opts) ->
+    ct_travis_hook.
+
+%% @doc Always called before any other callback function. Use this to initiate
+%% any common state. 
+init(Id, Opts) ->
+    ct:pal("Init ct_travis_hook", []),
+    {ok, FD} = file:open("/tmp/ct_travis_hook.log", [append, write]),
+    {ok, #state{log_fd=FD}}.
+
+%% @doc Called before init_per_suite is called. 
+pre_init_per_suite(Suite,Config,State) ->
+    {Config, fold_start(Suite, State)}.
+
+%% @doc Called after init_per_suite.
+post_init_per_suite(Suite,Config,Return,State) ->
+    {Return, State}.
+
+%% @doc Called before end_per_suite. 
+pre_end_per_suite(Suite,Config,State) ->
+    {Config, State}.
+
+%% @doc Called after end_per_suite. 
+post_end_per_suite(Suite,Config,Return,State) ->
+    {Return, fold_end(Suite, State)}.
+
+%% @doc Called before each init_per_group.
+pre_init_per_group(Group,Config,State) ->
+    {Config, fold_start(Group, State)}.
+
+%% @doc Called after each init_per_group.
+post_init_per_group(Group,Config,Return,State) ->
+    {Return, State}.
+
+%% @doc Called after each end_per_group. 
+pre_end_per_group(Group,Config,State) ->
+    {Config, State}.
+
+%% @doc Called after each end_per_group. 
+post_end_per_group(Group,Config,Return,State) ->
+    {Return, fold_end(Group, State)}.
+
+%% @doc Called before each test case.
+pre_init_per_testcase(TC,Config,State) ->
+    {Config, fold_start(TC, State)}.
+
+%% @doc Called after each test case.
+post_end_per_testcase(TC,Config,Return,State) ->
+    {Return, fold_end(TC, State)}.
+
+%% @doc Called after post_init_per_suite, post_end_per_suite, post_init_per_group,
+%% post_end_per_group and post_end_per_testcase if the suite, group or test case failed.
+on_tc_fail(TC, Reason, State) ->
+    State.
+
+%% @doc Called when a test case is skipped by either user action
+%% or due to an init function failing.  
+on_tc_skip(TC, Reason, State) ->
+    State.
+
+%% @doc Called when the scope of the CTH is done
+terminate(State) ->
+    ok.
+
+%% --------------------------------------------------------------------
+%% Private
+
+%% Same as:
+%% echo -en "travis_fold:start:Name\\r"
+%% echo "Name"
+fold_start(Name, State=#state{log_fd=FD}) ->
+    io:format(FD, "travis_fold:start:~p\r~p~n", [Name, Name]),
+    State.
+
+%% Same as:
+%% echo -en "travis_fold:end:Name\\r"
+fold_end(Name, State=#state{log_fd=FD}) ->
+    io:format(FD, "travis_fold:start:~p\r", [Name]),
+    State.
+