mirror of
https://github.com/correl/rebar.git
synced 2024-12-18 03:00:17 +00:00
Redirect cover module output to .eunit/cover.log
The cover module calls io:format and io:fwrite directly for several types of informational messages and warnings. When using meck to mock covered modules these warnings are triggered and can cause severe polution of the test output. We can avoid this by starting cover explicitly then setting the group_leader of that process to a file handle.
This commit is contained in:
parent
3e4138537f
commit
0edf52b539
1 changed files with 22 additions and 3 deletions
|
@ -128,10 +128,13 @@ eunit(Config, AppFile) ->
|
|||
Modules = [rebar_utils:beam_to_mod(?EUNIT_DIR, N) || N <- BeamFiles],
|
||||
SrcModules = [rebar_utils:erl_to_mod(M) || M <- SrcErls],
|
||||
|
||||
cover_init(Config, BeamFiles),
|
||||
{ok, CoverLog} = cover_init(Config, BeamFiles),
|
||||
|
||||
EunitResult = perform_eunit(Config, Modules),
|
||||
perform_cover(Config, Modules, SrcModules),
|
||||
|
||||
cover_close(CoverLog),
|
||||
|
||||
case EunitResult of
|
||||
ok ->
|
||||
ok;
|
||||
|
@ -275,9 +278,25 @@ cover_analyze(Config, Modules, SrcModules) ->
|
|||
ok
|
||||
end.
|
||||
|
||||
cover_init(false, _BeamFiles) ->
|
||||
cover_close(not_enabled) ->
|
||||
ok;
|
||||
cover_close(F) ->
|
||||
ok = file:close(F).
|
||||
|
||||
cover_init(false, _BeamFiles) ->
|
||||
{ok, not_enabled};
|
||||
cover_init(true, BeamFiles) ->
|
||||
%% Attempt to start the cover server, then set it's group leader to
|
||||
%% .eunit/cover.log, so all cover log messages will go there instead of
|
||||
%% to stdout.
|
||||
{_,CoverPid} = cover:start(),
|
||||
|
||||
{ok, F} = file:open(
|
||||
filename:join([?EUNIT_DIR, "cover.log"]),
|
||||
[write]),
|
||||
|
||||
group_leader(F, CoverPid),
|
||||
|
||||
%% Make sure any previous runs of cover don't unduly influence
|
||||
cover:reset(),
|
||||
|
||||
|
@ -300,7 +319,7 @@ cover_init(true, BeamFiles) ->
|
|||
[Beam, Desc])
|
||||
end,
|
||||
_ = [PrintWarning(Beam, Desc) || {Beam, {error, Desc}} <- Compiled],
|
||||
ok
|
||||
{ok, F}
|
||||
end;
|
||||
cover_init(Config, BeamFiles) ->
|
||||
cover_init(rebar_config:get(Config, cover_enabled, false), BeamFiles).
|
||||
|
|
Loading…
Reference in a new issue