anchor.diff:      end.
   
   %%--------------------------------------------------------------------
  -%% Function:
  -%% Descrip.:
  -%% Returns :
  -%%--------------------------------------------------------------------
  +%% 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}.
  +
  +
  +
  
positive.code:     end.
  
  
  %%====================================================================
  %% Behaviour functions
  %%====================================================================
  
negative.code: 		       tcp_receiver,
  		       targetlist,
  		       util,
  		       dnsutil,
  		       siplocation,
  		       lookup
  		      ]).
  
  %%====================================================================
  %% External functions
  %%====================================================================
  
  
  %%--------------------------------------------------------------------
  %% Function: run([Mode])
  %%           run()
  %%           Mode = erl | shell
  %% Descrip.: Test all modules listed in ModulesToAutoTest and print
  %%           the result. If Mode is 'shell' we end with halting the
  