anchor.diff:  
       %% test combine_srvresults(In)
       %%--------------------------------------------------------------------
  -    CombineSRV_1 = #srventry{dnsrrdata = {0, 21, 5060, "example.org"}, proto=tcp},
  -    CombineSRV_2 = #srventry{dnsrrdata = {0, 21, 5061, "example.net"}, proto=tls},
  +    CombineSRV_1 = #srventry{order = 0, weight = 21, port = 5060, host = "example.org", proto = tcp},
  +    CombineSRV_2 = #srventry{order = 0, weight = 21, port = 5061, host = "example.net", proto = tls},
       CombineSRV_3 = {error, undefined},
   
       autotest:mark(?LINE, "combine_srvresults/1 - 1"),
  
positive.code: %%
  %% Empty regexp
  %%
  naptr_to_srvlist2([#naptrrecord{regexp=""}=H | T], Res) ->
      Proto = case H#naptrrecord.services of
  		"SIP+D2U"  ++ _ -> udp;
  		"SIP+D2T"  ++ _ -> tcp;
  		"SIPS+D2T" ++ _ -> tls
  	    end,
      %% Regexp should be empty for domain NAPTR - RFC3263 #4.1. The
      %% interesting thing is the replacement.
      This = srvlookup(Proto, H#naptrrecord.replacement),
      Sorted = lists:sort(fun sortsrv/2, This),
      naptr_to_srvlist2(T, lists:flatten([Res, Sorted]));
  %%
  %% Non-empty regexp, not a domain NAPTR
  %%
  naptr_to_srvlist2([H | T], Res) when is_record(H, naptrrecord) ->
      naptr_to_srvlist2(T, Res);
  
negative.code: debugfriendly_srventry2([], Res) ->
      lists:reverse(Res);
  debugfriendly_srventry2([H|T], Res) when is_record(H, srventry) ->
      #srventry{order  = O,
  	      weight = W,
  	      port   = Port,
  	      host   = Host
  	     } = H,
      This = lists:flatten(lists:concat([H#srventry.proto, ", order=", O, ", weight=", W,
  				       " ", Host, ":", Port])),
      debugfriendly_srventry2(T, [This | Res]).
  
  