anchor.diff:  
   end_per_group(_GroupName, Config) ->
       Config.
  +
  +-define(UNIQ_NODE_NAME,
  +  list_to_atom(?MODULE_STRING ++ "__" ++
  +               atom_to_list(?FUNCTION_NAME) ++ "_" ++
  +	       integer_to_list(erlang:unique_integer([positive])))).
   
   %% Tests kernel application variables inet_default_listen_options and
   %% inet_default_connect_options.
  
positive.code: 
  setup_active_timeout_sink(Timeout, AutoClose) ->
      Dir = filename:dirname(code:which(?MODULE)),
      {ok,R} = test_server:start_node(test_default_options_slave,slave,
                                      [{args,"-pa " ++ Dir}]),
      Host = list_to_atom(lists:nth(2,string:tokens(atom_to_list(node()),"@"))),
      {ok, L} = gen_tcp:listen(0, [binary,{active,false},{packet,0},{nodelay, true},{keepalive, true},
  
negative.code: 	    
  setup_closed_ao() ->
      Dir = filename:dirname(code:which(?MODULE)),
      {ok,R} = test_server:start_node(?UNIQ_NODE_NAME, slave,
                                      [{args,"-pa " ++ Dir}]),
      Host = list_to_atom(lists:nth(2,string:tokens(atom_to_list(node()),"@"))),
      {ok, L} = gen_tcp:listen(0, [{active,false},{packet,2}]),
  