anchor.diff:  end_per_suite(Config) ->
       ct_test_support:end_per_suite(Config).
   
  -init_per_testcase(own_server=TestCase, Config) ->
  +init_per_testcase(TestCase, Config) when TestCase=/=unix_telnet->
       TS = telnet_server:start([{port,?erl_telnet_server_port},
   			      {users,[{?erl_telnet_server_user,
   				       ?erl_telnet_server_pwd}]}]),
  
positive.code: 
  all() ->
      [
       default
      ].
  
  %%--------------------------------------------------------------------
  
negative.code: 
  %%%-----------------------------------------------------------------
  %%%
  unix_telnet(Config) when is_list(Config) ->
      all_tests_in_suite(unix_telnet,"ct_telnet_basic_SUITE","telnet.cfg",Config).
  
  own_server(Config) ->
      all_tests_in_suite(own_server,"ct_telnet_own_server_SUITE",
  		       "telnet2.cfg",Config).
  
  %%%-----------------------------------------------------------------
  %%% HELP FUNCTIONS
  %%%-----------------------------------------------------------------
  
  all_tests_in_suite(TestCase, SuiteName, CfgFileName, Config) ->
      DataDir = ?config(data_dir, Config),
      Suite = filename:join(DataDir, SuiteName),
      CfgFile = filename:join(DataDir, CfgFileName),
      Cfg = telnet_config(TestCase),
      ok = file:write_file(CfgFile, io_lib:write(Cfg) ++ "."),
      {Opts,ERPid} = setup([{suite,Suite},
  			  {label,TestCase},
  			  {config,CfgFile}],
  			 Config),
      ok = execute(TestCase, Opts, ERPid, Config).
  
  setup(Test, Config) ->
      Opts0 = ct_test_support:get_opts(Config),
  