anchor.diff:  %%     {Mod, Fun, ExpectedRes, ActualRes}
   %%----------------------------------------------------------------------
   
  -tickets([Mod]) ->
  -    tickets(Mod);
  -tickets(Mod) when is_atom(Mod) ->
  -    %% p("tickets -> entry with"
  -    %% 	      "~n   Mod: ~p", [Mod]),
  -    Res0 = t({Mod, {group, tickets}, Mod:groups()}, default_config()),
  -    Res  = lists:flatten(Res0),
  -    %% p("tickets(~w) -> Res: ~p~n", [Mod, Res]),
  -    display_result(Res),
  -    Res.
  -
  -
   display_alloc_info() ->
       io:format("Allocator memory information:~n", []),
       AllocInfo = alloc_info(),
  
positive.code: 	_ ->
  	    []
      end.
  
  default_config() ->
      [{nodes, default_nodes()}, {ts, megaco}].
  
  default_nodes() ->    
      mk_nodes(3, []).
  
  mk_nodes(N) when (N > 0) ->
      mk_nodes(N, []).
  
negative.code: 		     ProcMemBin, ProcMemTot]),
      ok.
  
  
      
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% Verify that the actual result of a test case matches the exected one
  