anchor.diff:       {{test_server, call_crash, 4}, [term, modulename, functionname, arglist], term},
        {{test_server, call_crash, 5}, [term, term, modulename, functionname, arglist], term}].
    
  +
  +-spec testserver_callback_funs()->[{atom(), integer()}].
   testserver_callback_funs() ->
       [{all, 0}, {init_per_suite, 1}, {end_per_suite, 1}, {init_per_testcase, 2}, {fin_per_testcase, 2}].
   
  +-spec eqc_statem_callback_funs()->[{atom(), integer()}].
   eqc_statem_callback_funs() ->
       [{initial_state, 0}, {precondition, 2}, {command, 1}, {postcondition, 3}, {next_state, 3}].
   
  +-spec eqc_fsm_callback_funs()->[{atom(), integer()}].
   eqc_fsm_callback_funs() ->
       [{initial_state, 0}, {initial_state_data, 0}, {next_state_data, 5},
        {precondition, 4}, {postcondition, 5}].
   
  +-spec commontest_callback_funs()->[{atom(), integer()}].
   commontest_callback_funs() ->
       [{all, 0}, {groups, 0}, {suite, 0}, {init_per_suite, 1}, {end_per_suite, 1}, {init_per_group, 2},
        {end_per_group, 2}, {init_per_testcase, 2}, {end_per_testcase, 2}, {testcase, 0}, {testcase, 1}].
   
  +-spec try_eval(filename()|none, syntaxTree(), [dir()], integer()) ->
  +		      term().
   try_eval(none, Node, _, _) ->
       try
         erl_eval:exprs([refac_syntax:revert(Node)], [])
  
positive.code: 			TupleList),
      group_by(N,TupleList2,Acc ++ [TupleList1]).
  
  
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  filehash(FileName) ->
      case file:open(FileName, [read, raw, binary]) of
        {ok, IoDevice} ->
  
negative.code:     ordsets:to_list(refac_syntax_lib:fold(F, ordsets:new(), Node)).
  
  
  -spec collect_used_macros(syntaxTree()) ->
  				 [atom()].
  collect_used_macros(Node) ->
      F = fun(T, S) ->
  		case refac_syntax:type(T) of
  