anchor.diff:  %%--------------------------------------------------------------------
   -export([
   	 run/0,
  -	 run/1
  +	 run/1,
  +
  +	 run_cover/1
   	]).
   
   %%--------------------------------------------------------------------
  
positive.code: 		       tcp_receiver,
  		       targetlist,
  		       util,
  		       dnsutil
  		      ]).
  
  %%====================================================================
  %% External functions
  %%====================================================================
  
  %%--------------------------------------------------------------------
  %% Function: run(Mode)
  %%           Mode = erl | shell
  %% Descrip.: Test all modules listed in ModulesToAutoTest and print
  %%           the result. If Mode is 'shell' we end with halting the
  
negative.code:     end.
  
  %%--------------------------------------------------------------------
  %% Function: aggregate_coverage(Modules)
  %%           Modules = list() of atom(), list of module names
  %% Descrip.: Aggregate cover analysis data for Modules.
  %% Returns : {ok, CoveredLines, TotalLines}
  %%           CoveredLines = integer(), code lines covered in Modules
  %%           TotalLines   = integer(), total lines of code in Modules
  %%--------------------------------------------------------------------
  aggregate_coverage(Modules) ->
      aggregate_coverage2(Modules, 0, 0).
  
  aggregate_coverage2([H | T], CoveredLines, TotalLines) ->
      {ok, {_Module, {Cov, NotCov}}} = cover:analyse(H, coverage, module),
      aggregate_coverage2(T, CoveredLines + Cov, TotalLines + Cov + NotCov);
  aggregate_coverage2([], CoveredLines, TotalLines) ->
      {ok, CoveredLines, TotalLines}.
  
  
  
  