anchor.diff:  %% Common Test interface functions -----------------------------------
   %%--------------------------------------------------------------------
   suite() ->
  -    [{timetrap,{seconds,40}}].
  +    [{timetrap,{seconds,20}}].
   
   all() ->
       [
  
positive.code: end_per_testcase(bad_user, _Config) -> ok;
  end_per_testcase(error_elogin, _Config) -> ok;
  end_per_testcase(error_ehost, _Config) -> ok;
  end_per_testcase(_Case, Config) -> 
      case proplists:get_value(tc_status,Config) of
  	ok -> ok;
  
negative.code:      "'shutdown' does not cause an error message. OTP 6035"}].
  
  clean_shutdown(Config) ->
      Parent = self(),
      HelperPid = spawn(
  		  fun() ->
  			  ftp__open(Config, [verbose]),
  			  Parent ! ok,
  			  receive
  			      nothing -> ok
  			  end
  		  end),
      receive
  	ok ->
  	    PrivDir = proplists:get_value(priv_dir, Config),
  	    LogFile = filename:join([PrivDir,"ticket_6035.log"]),
   	    error_logger:logfile({open, LogFile}),
  	    exit(HelperPid, shutdown),
  	    timer:sleep(2000),
  	    error_logger:logfile(close),
  	    case is_error_report_6035(LogFile) of
  		true ->  ok;
  		false -> {fail, "Bad logfile"}
  	    end
      end.
  
  %%%----------------------------------------------------------------
  