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: -export([terminate/1]).
  
  -record(state, { filepath, axis, properties, package, hostname,
  		 curr_suite, curr_suite_ts, curr_group = [],
  		 curr_log_dir, timer, tc_log, url_base,
  		 test_cases = [],
  		 test_suites = [] }).
  
  -record(testcase, { log, url, group, classname, name, time, result, timestamp }).
  -record(testsuite, { errors, failures, skipped, hostname, name, tests,
  		     time, timestamp, id, package,
  		     properties, testcases, log, url }).
  
negative.code:     %% Have to close the previous suite
      pre_init_per_suite(Suite,Config,close_suite(State)).
  
  get_file(Suite) ->
      case beam_lib:chunks(code:which(Suite),["CInf"]) of
          {ok,{_,[{"CInf",Bin}]}} ->
              Source = proplists:get_value(source,binary_to_term(Bin)),
              case filelib:is_file(Source) of
                  true ->
                      Source;
                  false ->
                      undefined
              end;
          _ ->
              undefined
      end.
  
  post_init_per_suite(_Suite,Config, Result, State) ->
      {Result, end_tc(init_per_suite,Config,Result,State)}.
  
  