anchor.diff:      end.
   
   
  +%%--------------------------------------------------------------------
  +%% Function: run_cover([Mode])
  +%%           Mode = erl | shell
  +%% Descrip.: Run our tests after cover-compiling the modules. Show
  +%%           some numbers about the coverage ratio before exiting.
  +%% Returns : -
  +%%--------------------------------------------------------------------
  +run_cover([Mode]) ->
  +    io:format("Cover-compiling ~p modules...~n", [length(?TEST_MODULES)]),
  +
  +    %% cover-compile all our test modules
  +    lists:map(fun(Module) ->
  +		      cover:compile_beam(Module)
  +	      end, ?TEST_MODULES),
  +
  +    %% Run the tests
  +    Status = run([erl]),
  +
  +    %% Calculate coverage
  +    {ok, CoveredLines, TotalLines} = aggregate_coverage(?TEST_MODULES),
  +    Percent = (CoveredLines / TotalLines * 100),
  +
  +    io:format("~nTests covered ~p out of ~p lines of code in ~p modules (~p%)~n~n",
  +	      [CoveredLines, TotalLines, length(?TEST_MODULES), Percent]),
  +
  +    if
  +	Status == error, Mode == shell -> erlang:halt(1);
  +	Status == ok, Mode == shell -> erlang:halt(0);
  +	true ->
  +	    Status
  +    end.
  +
  +
   %%====================================================================
   %% Behaviour functions
   %%====================================================================
  
positive.code: %%--------------------------------------------------------------------
  -export([
  	 run/0,
  	 run/1
  	]).
  
  %%--------------------------------------------------------------------
  
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
  