aboutsummaryrefslogtreecommitdiff
path: root/server/_build/default/plugins/coveralls/src/rebar3_coveralls.erl
diff options
context:
space:
mode:
Diffstat (limited to 'server/_build/default/plugins/coveralls/src/rebar3_coveralls.erl')
-rw-r--r--server/_build/default/plugins/coveralls/src/rebar3_coveralls.erl220
1 files changed, 220 insertions, 0 deletions
diff --git a/server/_build/default/plugins/coveralls/src/rebar3_coveralls.erl b/server/_build/default/plugins/coveralls/src/rebar3_coveralls.erl
new file mode 100644
index 0000000..01084ee
--- /dev/null
+++ b/server/_build/default/plugins/coveralls/src/rebar3_coveralls.erl
@@ -0,0 +1,220 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%% Copyright (c) 2013-2016, Markus Ekholm
+%%% All rights reserved.
+%%% Redistribution and use in source and binary forms, with or without
+%%% modification, are permitted provided that the following conditions are met:
+%%% * Redistributions of source code must retain the above copyright
+%%% notice, this list of conditions and the following disclaimer.
+%%% * Redistributions in binary form must reproduce the above copyright
+%%% notice, this list of conditions and the following disclaimer in the
+%%% documentation and/or other materials provided with the distribution.
+%%% * Neither the name of the <organization> nor the
+%%% names of its contributors may be used to endorse or promote products
+%%% derived from this software without specific prior written permission.
+%%%
+%%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+%%% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+%%% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+%%% ARE DISCLAIMED. IN NO EVENT SHALL MARKUS EKHOLM BE LIABLE FOR ANY
+%%% DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+%%% (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+%%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+%%% ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+%%% (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+%%% THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+%%%
+%%% @copyright 2013-2016 (c) Yury Gargay <yury.gargay@gmail.com>,
+%%% Markus Ekholm <markus@botten.org>
+%%% @end
+%%% @author Yury Gargay <yury.gargay@gmail.com>
+%%% @author Markus Ekholm <markus@botten.org>
+%%% @doc coveralls plugin for rebar3
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+-module(rebar3_coveralls).
+-behaviour(provider).
+
+-export([ init/1
+ , do/1
+ , format_error/1
+ ]).
+
+-define(PROVIDER, send).
+-define(DEPS, [{default, app_discovery}]).
+
+%% ===================================================================
+%% Public API
+%% ===================================================================
+-spec init(rebar_state:t()) -> {ok, rebar_state:t()}.
+init(State) ->
+ Provider = providers:create([ {name, ?PROVIDER}
+ , {module, ?MODULE}
+ , {namespace, coveralls}
+ , {bare, true}
+ , {deps, ?DEPS}
+ , {example, "rebar3 coveralls send"}
+ , {short_desc, "Send coverdata to coveralls."}
+ , {desc, "Send coveralls to coveralls."}
+ , {opts, []}
+ ]),
+ {ok, rebar_state:add_provider(State, Provider)}.
+
+-spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}.
+do(State) ->
+ rebar_api:info("Running coveralls...", []),
+ ConvertAndSend = fun coveralls:convert_and_send_file/2,
+ Get = fun(Key, Def) -> rebar_state:get(State, Key, Def) end,
+ GetLocal = fun(Key, Def) -> rebar_state:get(State, Key, Def) end,
+ MaybeSkip = fun() -> ok end,
+ ok = cover_paths(State),
+ try
+ do_coveralls(ConvertAndSend,
+ Get,
+ GetLocal,
+ MaybeSkip,
+ 'send-coveralls'),
+ {ok, State}
+ catch throw:{error, {ErrCode, Msg}} ->
+ io:format("Failed sending coverdata to coveralls, ~p: ~p",
+ [ErrCode, Msg]),
+ {error, rebar_abort}
+ end.
+
+-spec format_error(any()) -> iolist().
+format_error(Reason) ->
+ io_lib:format("~p", [Reason]).
+
+cover_paths(State) ->
+ lists:foreach(fun(App) ->
+ AppDir = rebar_app_info:out_dir(App),
+ true = code:add_patha(filename:join([AppDir, "ebin"])),
+ _ = code:add_patha(filename:join([AppDir, "test"]))
+ end,
+ rebar_state:project_apps(State)),
+ _ = code:add_patha(filename:join([rebar_dir:base_dir(State), "test"])),
+ ok.
+
+%%=============================================================================
+%% Internal functions
+
+to_binary(List) when is_list(List) ->
+ unicode:characters_to_binary(List, utf8, utf8);
+to_binary(Atom) when is_atom(Atom) ->
+ atom_to_binary(Atom, utf8);
+to_binary(Bin) when is_binary(Bin) ->
+ Bin.
+to_boolean(true) -> true;
+to_boolean(1) -> true;
+to_boolean(_) -> false.
+
+do_coveralls(ConvertAndSend, Get, GetLocal, MaybeSkip, Task) ->
+ File = GetLocal(coveralls_coverdata, undef),
+ ServiceName = to_binary(GetLocal(coveralls_service_name, undef)),
+ ServiceJobId = to_binary(GetLocal(coveralls_service_job_id, undef)),
+ F = fun(X) -> X =:= undef orelse X =:= false end,
+ CoverExport = Get(cover_export_enabled, false),
+ case lists:any(F, [File, ServiceName, ServiceJobId, CoverExport]) of
+ true ->
+ throw({error,
+ "need to specify coveralls_* and cover_export_enabled "
+ "in rebar.config"});
+ false ->
+ ok
+ end,
+
+ Report0 =
+ #{service_job_id => ServiceJobId,
+ service_name => ServiceName},
+ Opts = [{coveralls_repo_token, repo_token, string},
+ {coveralls_service_pull_request, service_pull_request, string},
+ {coveralls_commit_sha, commit_sha, string},
+ {coveralls_service_number, service_number, string},
+ {coveralls_parallel, parallel, boolean}],
+ Report =
+ lists:foldl(fun({Cfg, Key, Conv}, R) ->
+ case GetLocal(Cfg, undef) of
+ undef -> R;
+ Value when Conv =:= string -> maps:put(Key, to_binary(Value), R);
+ Value when Conv =:= boolean -> maps:put(Key, to_boolean(Value), R);
+ Value -> maps:put(Key, Value, R)
+ end
+ end, Report0, Opts),
+
+ DoCoveralls = (GetLocal(do_coveralls_after_ct, true) andalso Task == ct)
+ orelse (GetLocal(do_coveralls_after_eunit, true) andalso Task == eunit)
+ orelse Task == 'send-coveralls',
+ case DoCoveralls of
+ true ->
+ io:format("rebar_coveralls:"
+ "Exporting cover data "
+ "from ~s using service ~s and jobid ~s~n",
+ [File, ServiceName, ServiceJobId]),
+ ok = ConvertAndSend(File, Report);
+ _ -> MaybeSkip()
+ end.
+
+
+%%=============================================================================
+%% Tests
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+task_test_() ->
+ File = "foo",
+ ServiceJobId = "123",
+ ServiceName = "bar",
+ ConvertAndSend = fun("foo", #{service_job_id := <<"123">>,
+ service_name := <<"bar">>}) -> ok end,
+ ConvertWithOpts = fun("foo", #{service_job_id := <<"123">>,
+ service_name := <<"bar">>,
+ service_pull_request := <<"PR#1">>,
+ parallel := true}) -> ok
+ end,
+ Get = fun(cover_export_enabled, _) -> true end,
+ GetLocal = fun(coveralls_coverdata, _) -> File;
+ (coveralls_service_name, _) -> ServiceName;
+ (coveralls_service_job_id, _) -> ServiceJobId;
+ (do_coveralls_after_eunit, _) -> true;
+ (do_coveralls_after_ct, _) -> true;
+ (coveralls_repo_token, _) -> [];
+ (_, Default) -> Default
+ end,
+ GetLocalAllOpt = fun(coveralls_coverdata, _) -> File;
+ (coveralls_service_name, _) -> ServiceName;
+ (coveralls_service_job_id, _) -> ServiceJobId;
+ (coveralls_service_pull_request, _) -> "PR#1";
+ (coveralls_parallel, _) -> true;
+ (do_coveralls_after_eunit, _) -> true;
+ (do_coveralls_after_ct, _) -> true;
+ (coveralls_repo_token, _) -> [];
+ (_, Default) -> Default
+ end,
+ GetLocalWithCoverallsTask
+ = fun(coveralls_coverdata, _) -> File;
+ (coveralls_service_name, _) -> ServiceName;
+ (coveralls_service_job_id, _) -> ServiceJobId;
+ (do_coveralls_after_eunit, _) -> false;
+ (do_coveralls_after_ct, _) -> false;
+ (coveralls_repo_token, _) -> [];
+ (_, Default) -> Default
+ end,
+ GetBroken = fun(cover_export_enabled, _) -> false end,
+ MaybeSkip = fun() -> skip end,
+ [ ?_assertEqual(ok, do_coveralls(ConvertAndSend, Get, GetLocal, MaybeSkip, eunit))
+ , ?_assertEqual(ok, do_coveralls(ConvertAndSend, Get, GetLocal, MaybeSkip, ct))
+ , ?_assertThrow({error, _}, do_coveralls(ConvertAndSend, GetBroken, GetLocal, MaybeSkip, eunit))
+ , ?_assertThrow({error, _}, do_coveralls(ConvertAndSend, GetBroken, GetLocal, MaybeSkip, ct))
+ , ?_assertEqual(skip, do_coveralls(ConvertAndSend, Get, GetLocalWithCoverallsTask, MaybeSkip, eunit))
+ , ?_assertEqual(skip, do_coveralls(ConvertAndSend, Get, GetLocalWithCoverallsTask, MaybeSkip, ct))
+ , ?_assertEqual(ok, do_coveralls(ConvertAndSend, Get, GetLocalWithCoverallsTask, MaybeSkip, 'send-coveralls'))
+ , ?_assertEqual(ok, do_coveralls(ConvertWithOpts, Get, GetLocalAllOpt, MaybeSkip, eunit))
+ , ?_assertEqual(ok, do_coveralls(ConvertWithOpts, Get, GetLocalAllOpt, MaybeSkip, ct))
+ ].
+
+-endif.
+
+%%% Local Variables:
+%%% allout-layout: t
+%%% erlang-indent-level: 2
+%%% End:
generated by cgit v1.2.3 (git 2.39.1) at 2025-09-16 13:20:32 +0000