anchor.diff:      %% rpc:call(Node, l2a(Mod), l2a(Fun), Args).
       rpc:call(Node, ?MODULE, local_call, [Iact, l2a(Mod), l2a(Fun), Args]).
   
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -    
  -
  +end_suite(Mod) -> 
  +    Exps = (list_to_atom(Mod)):module_info(exports),
  +    [R] = [F || F <- [fin_per_suite,end_per_suite],lists:member({F,1},Exps)],
  +    R.
  +
  +end_tc(Mod) -> 
  +    Exps = (list_to_atom(Mod)):module_info(exports),
  +    [R] = [F||F<-[fin_per_testcase,end_per_testcase],lists:member({F,2},Exps)],
  +    R.
  
positive.code: 		Else -> 
                      case run_fin(NewConfig) of
                          true -> 
                              call(Node, Mod, fin_per_testcase, [Fun, NewConfig]);
                          false ->
                              false
                      end,
  
negative.code: 		{Time, Res} when Res == true; Res == ok -> 
                      case run_fin(NewConfig) of
                          true -> 
                              call(Node, Mod, end_tc(Mod), [Fun, NewConfig]);
                          false ->
                              false
                      end,
  