anchor.diff:      % Test if the host has an IPv6 loopback address
       Res = gen_tcp:listen(0, [inet6, {ip, {0,0,0,0,0,0,0,1}}]),
       case Res of
  -    {ok,LSock} ->
  -	    gen_tcp:close(LSock),
  -	    ?line ok = epmdrun(),
  -	    ?line {ok,Sock} = register_node6("foobar6"),
  -	    ?line ok = close(Sock),         % Unregister
  -	    ok;
  -    _Error ->
  -	    {skip, "Host does not have an IPv6 loopback address"}
  +        {ok,LSock} ->
  +            gen_tcp:close(LSock),
  +            ok = epmdrun(),
  +            {ok,Sock} = register_node6("foobar6"),
  +            ok = close(Sock),         % Unregister
  +            ok;
  +        _Error ->
  +            {skip, "Host does not have an IPv6 loopback address"}
       end.
   
   register_names_1(doc) ->
  
positive.code: zero_length(suite) ->
      [];
  zero_length(Config) when is_list(Config) ->
      ?line ok = epmdrun(),
      ?line {ok,Sock} = connect(),
      ?line ok = send(Sock,[0,0,0,0,0,0,0,0,0,0]),
      sleep(?MEDIUM_PAUSE),
      ?line closed = recv(Sock,1),
      ok.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
negative.code: unregister_others_name_2(suite) ->
      [];
  unregister_others_name_2(Config) when is_list(Config) ->
      ok = epmdrun("-relaxed_command_check"),
      {ok,Sock} = connect(),
      M = [?EPMD_STOP_REQ,"xxx42"],
      ok = send(Sock,[size16(M),M]),
      R = "NOEXIST",
      {ok,R} = recv(Sock,length(R)),
      ok.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  