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: 
      %% test srvlookup(Proto, Name)
  
      ok.
  
  %% Neat function from Joe Armstrongs thesis (page 58). Creates all
  %% possible permutations of the input list :
  
negative.code:     case inet_res:nslookup(Name, in, srv) of
  	{ok, Rec} ->
  	    ParseSRV = fun(Entry) ->
  			       {Order, Weight, Port, Host} = Entry#dns_rr.data,
  
  			       #srventry{proto  = Proto,
  					 order       = Order,
  					 weight      = Weight,
  					 port        = Port,
  					 host	     = Host
  					}
  		       end,
  	    lists:map(ParseSRV, Rec#dns_rec.anlist);
  	{error, What} ->
  