Fix eunit regression (reported-by Alexander Dorofeev)

This commit is contained in:
Andrew Thompson 2011-04-23 17:17:49 +02:00 committed by Tuncer Ayaz
parent 98312c881f
commit 2e654513dd

View file

@ -247,7 +247,10 @@ cover_analyze(Config, Modules, SrcModules) ->
%% suite can be a comma seperated list of modules to test %% suite can be a comma seperated list of modules to test
Suite = [list_to_atom(S) || Suite = [list_to_atom(S) ||
S <- string:tokens(rebar_config:get_global(suite, ""), ",")], S <- string:tokens(rebar_config:get_global(suite, ""), ",")],
FilteredModules = [M || M <- Modules, lists:member(M, Suite)], FilteredModules = case Suite of
[] -> Modules;
_ -> [M || M <- Modules, lists:member(M, Suite)]
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 = [cover_analyze_mod(M) || M <- FilteredModules],