anchor.diff:  				id2ftp(NewFile,Config)),
       ok.
   
  -error_ehost(Config) ->
  +error_ehost(_Config) ->
       {error, ehost} = ftp:open("nohost.nodomain"),
       ok.
       
  
positive.code: end_per_group(_Group, Config) -> Config.
  
  %%--------------------------------------------------------------------
  
  init_per_testcase(Case, Config)  when (Case =:= progress_report_send) orelse 
  				      (Case =:= progress_report_recv) ->
      common_init_per_testcase(Case, [{progress, {?MODULE, progress, #progress{}}} | Config]);
  
  init_per_testcase(Case, Config) ->
      common_init_per_testcase(Case, Config).
  
  common_init_per_testcase(Case, Config0) ->
      Group = proplists:get_value(name,proplists:get_value(tc_group_properties,Config0)),
      try ?MODULE:Case(doc) of
  	Msg -> ct:comment(Msg)
      catch
  	_:_-> ok
      end,
      TLS = [{tls,[{reuse_sessions,true}]}],
      ACTIVE = [{mode,active}],
      PASSIVE = [{mode,passive}],
      ExtraOpts = [verbose],
      Config =
  	case Group of
  	    ftp_active   -> ftp__open(Config0,       ACTIVE  ++ExtraOpts);
  	    ftps_active  -> ftp__open(Config0, TLS++ ACTIVE  ++ExtraOpts);
  	    ftp_passive  -> ftp__open(Config0,      PASSIVE  ++ExtraOpts);
  	    ftps_passive -> ftp__open(Config0, TLS++PASSIVE  ++ExtraOpts);
  	    undefined    -> Config0
  	end,
      case Case of
  	user         -> Config;
  	bad_user     -> Config;
  	error_elogin -> Config;
  	error_ehost  -> Config;
  	_ ->
  	    Pid = proplists:get_value(ftp,Config),
  	    ok = ftp:user(Pid, ?FTP_USER, ?FTP_PASS(atom_to_list(Group)++"-"++atom_to_list(Case)) ),
  
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.
  
  %%%----------------------------------------------------------------
  