anchor.diff:  					  group = PGroup,
   					  name = Name,
   					  time = TimeTakes,
  +                                          file = State#state.curr_suite_file,
  +                                          line = get_line_from_suite(Suite, Name),
   					  result = passed }|
   			       State#state.test_cases],
   		 tc_log = ""}. % so old tc_log is not set if next is on_tc_skip
  
positive.code:     %% Have to close the previous suite
      pre_init_per_suite(Suite,Config,close_suite(State)).
  
  post_init_per_suite(_Suite,Config, Result, State) ->
      {Result, end_tc(init_per_suite,Config,Result,State)}.
  
  
negative.code:     %% Have to close the last suite
      terminate(close_suite(State)).
  
  get_line_from_suite(Suite, TC) ->
      case beam_lib:chunks(code:which(Suite),[debug_info]) of
          {ok,{Suite,[{debug_info,
                       {debug_info_v1,
                        erl_abstract_code,
                        {Abstr,_Opts}}}]}} ->
              case [Anno || {function,Anno,Name,1,_} <- Abstr, TC =:= atom_to_list(Name)] of
                  [{Line,_Col}] ->
                      Line;
                  _ ->
                      case [Anno || {function,Anno,Name,_,_} <- Abstr, TC =:= atom_to_list(Name)] of
                          [{Line,_}|_] ->
                              Line;
                          _ ->
                              undefined
                      end
              end;
          _ ->
              undefined
      end.
  
  
  to_xml(#testcase{ group = Group, classname = CL, log = L, url = U,
                    file = File, line = Line,
                    name = N, time = T, timestamp = TS, result = R}) ->
      ["<testcase ",
       [["group=\"",Group,"\" "]||Group /= ""],
       "name=\"",N,"\" "
       "time=\"",T,"\" "
       "timestamp=\"",TS,"\" ",
       [["url=\"",U,"\" "]||U /= undefined],
       [["file=\"",File,"\" "]||File /= undefined],
       [["line=\"",integer_to_list(Line),"\" "]||Line /= undefined],
       "log=\"",L,"\">",
       case R of
  	 passed ->
  