anchor.diff:  unregister_others_name_1(suite) ->
       [];
   unregister_others_name_1(Config) when is_list(Config) ->
  -    ?line ok = epmdrun("-relaxed_command_check"),
  -    ?line {ok,RSock} = register_node("foo"),
  -    ?line {ok,Sock} = connect(),
  +    ok = epmdrun("-relaxed_command_check"),
  +    {ok,RSock} = register_node("foo"),
  +    {ok,Sock} = connect(),
       M = [?EPMD_STOP_REQ,"foo"],
  -    ?line ok = send(Sock,[size16(M),M]),
  +    ok = send(Sock,[size16(M),M]),
       R = "STOPPED",
  -    ?line {ok,R} = recv(Sock,length(R)),
  -    ?line ok = close(RSock),
  +    {ok,R} = recv(Sock,length(R)),
  +    ok = close(RSock),
       ok.
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
positive.code: returns_valid_empty_extra(suite) ->
      [];
  returns_valid_empty_extra(Config) when is_list(Config) ->
      ?line ok = epmdrun(),
      ?line {ok,Sock} = register_node_v2(4711, 72, 0, 5, 5, "foo", []),
      ?line {ok,#node_info{extra=[]}} = port_please_v2("foo"),
      ?line ok = close(Sock),
      ok.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
negative.code: 
  parse_line([$n,$a,$m,$e,$ | Buf0]) ->
      case parse_name(Buf0, []) of
          {Name, Buf1}  ->
              case Buf1 of
                  [$a,$t,$ ,$p,$o,$r,$t,$ | Buf2] ->
                      case catch list_to_integer(Buf2) of
                          {'EXIT', _} -> error;
                          Port -> {ok, {Name, Port}}
                      end;
                  _ -> error
              end;
          error -> error
      end;
  parse_line(_) -> error.
  
  