anchor.diff:      State#state{ timer = now(), tc_log =  "" };
   init_tc(State, Config) ->
       State#state{ timer = now(),
  -		 tc_log =  proplists:get_value(tc_logfile, Config)}.
  +		 tc_log =  proplists:get_value(tc_logfile, Config, [])}.
   
   end_tc(Func, Config, Res, State) when is_atom(Func) ->
       end_tc(atom_to_list(Func), Config, Res, State);
  
positive.code: 			     {fail,lists:flatten(io_lib:format("~p",[Res]))} },
      State#state{ test_cases = [NewTC | tl(TCs)]}.
  
  on_tc_skip(_Tc, Res, State) ->
      TCs = State#state.test_cases,
      TC = hd(State#state.test_cases),
      NewTC = TC#testcase{
  
negative.code: 		 test_suites = [Suite | State#state.test_suites]}.
  
  terminate(State = #state{ test_cases = [] }) ->
      {ok,D} = file:open(State#state.filepath,[write,{encoding,utf8}]),
      io:format(D, "<?xml version=\"1.0\" encoding= \"UTF-8\" ?>", []),
      io:format(D, to_xml(State), []),
      catch file:sync(D),
  