From 4ff52d991eb1240acbe82859d643295076f90727 Mon Sep 17 00:00:00 2001
From: Louis-Philippe Gauthier <lpgauth@gmail.com>
Date: Wed, 15 Jun 2016 08:05:21 -0400
Subject: Add support for cover_excl_mods

---
 rebar.config.sample     |  3 +++
 src/rebar_prv_cover.erl | 38 +++++++++++++++++++++++---------------
 2 files changed, 26 insertions(+), 15 deletions(-)

diff --git a/rebar.config.sample b/rebar.config.sample
index f57f8dc..cc027f9 100644
--- a/rebar.config.sample
+++ b/rebar.config.sample
@@ -57,6 +57,9 @@
 %% is `false'
 {cover_enabled, false}.
 
+%% Modules to exclude from cover
+{cover_excl_mods, []}.
+
 %% Options to pass to cover provider
 {cover_opts, [verbose]}.
 
diff --git a/src/rebar_prv_cover.erl b/src/rebar_prv_cover.erl
index e555a9b..b04b1c1 100644
--- a/src/rebar_prv_cover.erl
+++ b/src/rebar_prv_cover.erl
@@ -302,18 +302,30 @@ cover_compile(State, Dirs) ->
     {ok, CoverPid} = start_cover(),
     %% redirect cover output
     true = redirect_cover_output(State, CoverPid),
+    ExclMods = rebar_state:get(State, cover_excl_mods, []),
+
     lists:foreach(fun(Dir) ->
-        ?DEBUG("cover compiling ~p", [Dir]),
-        case catch(cover:compile_beam_directory(Dir)) of
-            {error, eacces} ->
-                ?WARN("Directory ~p not readable, modules will not be included in coverage", [Dir]);
-            {error, enoent} ->
-                ?WARN("Directory ~p not found", [Dir]);
-            {'EXIT', {Reason, _}} ->
-                ?WARN("Cover compilation for directory ~p failed: ~p", [Dir, Reason]);
-            Results ->
-                %% print any warnings about modules that failed to cover compile
-                lists:foreach(fun print_cover_warnings/1, lists:flatten(Results))
+        case file:list_dir(Dir) of
+            {ok, Files} ->
+                Files2 = [F || F <- Files, filename:extension(F) == ".beam"],
+                lists:foreach(fun(File) ->
+                    case lists:any(fun (Excl) ->
+                        File =:= (atom_to_list(Excl) ++ ".beam")
+                    end, ExclMods) of
+                        true ->
+                            ?DEBUG("cover ignoring ~p ~p", [Dir, File]);
+                        _ ->
+                            ?DEBUG("cover compiling ~p ~p", [Dir, File]),
+                            case catch(cover:compile_beam(filename:join(Dir, File))) of
+                                {error, Reason} ->
+                                    ?WARN("Cover compilation failed: ~p", [Reason]);
+                                {ok, _} ->
+                                    ok
+                            end
+                    end
+                end, Files2);
+            {error, Reason} ->
+                ?WARN("Directory ~p error ~p", [Dir, Reason])
         end
     end, Dirs).
 
@@ -346,10 +358,6 @@ redirect_cover_output(State, CoverPid) ->
                         [append]),
     group_leader(F, CoverPid).
 
-print_cover_warnings({ok, _}) -> ok;
-print_cover_warnings({error, Error}) ->
-    ?WARN("Cover compilation failed: ~p", [Error]).
-
 write_coverdata(State, Task) ->
     DataDir = cover_dir(State),
     ok = filelib:ensure_dir(filename:join([DataDir, "dummy.log"])),
-- 
cgit v1.1