anchor.diff:      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()),"@"))),
  +    Host = get_hostname(node()),
       {ok, L} = gen_tcp:listen(0, [binary,{active,false},{packet,0},{nodelay, true},{keepalive, true},
   				 {send_timeout,Timeout},
   				 {send_timeout_close,AutoClose}]),
  
positive.code:     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}]),
      Fun = fun(F) ->
                    receive
  
negative.code:     Dir = filename:dirname(code:which(?MODULE)),
      {ok,R} = test_server:start_node(?UNIQ_NODE_NAME, slave,
                                      [{args,"-pa " ++ Dir}]),
      Host = get_hostname(node()),
      {ok, L} = gen_tcp:listen(0, [{active,false},{packet,2},
  				 {send_timeout,Timeout},
  				 {send_timeout_close,AutoClose}]),
  