Remove modules that fail coverage from the list

This commit is contained in:
Jon Meredith 2011-09-05 16:32:13 -06:00 committed by Tuncer Ayaz
parent 6dfcd8b9f2
commit 5775746758

View file

@ -281,7 +281,7 @@ cover_analyze(Config, Modules, SrcModules) ->
end, end,
%% Generate coverage info for all the cover-compiled modules %% Generate coverage info for all the cover-compiled modules
Coverage = [cover_analyze_mod(M) || M <- FilteredModules], Coverage = lists:flatten([cover_analyze_mod(M) || M <- FilteredModules]),
%% Write index of coverage info %% Write index of coverage info
cover_write_index(lists:sort(Coverage), SrcModules), cover_write_index(lists:sort(Coverage), SrcModules),
@ -364,12 +364,12 @@ cover_analyze_mod(Module) ->
%% test/0 fun, which cover considers a runnable line, but %% test/0 fun, which cover considers a runnable line, but
%% eunit:test(TestRepresentation) never calls. Decrement %% eunit:test(TestRepresentation) never calls. Decrement
%% NotCovered in this case. %% NotCovered in this case.
align_notcovered_count(Module, Covered, NotCovered, [align_notcovered_count(Module, Covered, NotCovered,
is_eunitized(Module)); is_eunitized(Module))];
{error, Reason} -> {error, Reason} ->
?ERROR("Cover analyze failed for ~p: ~p ~p\n", ?ERROR("Cover analyze failed for ~p: ~p ~p\n",
[Module, Reason, code:which(Module)]), [Module, Reason, code:which(Module)]),
{0,0} []
end. end.
is_eunitized(Mod) -> is_eunitized(Mod) ->