anchor.diff:       open_multihoming_ipv6_socket,
        open_multihoming_ipv4_and_ipv6_socket,
        basic_stream, xfer_stream_min, peeloff_active_once,
  -     peeloff_active_true, buffers].
  +     peeloff_active_true, buffers,
  +     names_unihoming_ipv4, names_unihoming_ipv6,
  +     names_multihoming_ipv4, names_multihoming_ipv6].
   
   groups() -> 
       [].
  
positive.code: 		    [ClientFamily, AddressToConnectTo]),
      ?line S2 = ok(gen_sctp:open(0, [ClientFamily])),
      %% Verify client can connect
      ?line #sctp_assoc_change{state=comm_up} =
  	ok(gen_sctp:connect(S2, AddressToConnectTo, P1, [])),
      %% verify server side also receives comm_up from client
      ?line recv_comm_up_eventually(S1),
      ?line ok = gen_sctp:close(S2),
      ?line ok = gen_sctp:close(S1).
  
  %% If at least one of the addresses is an ipv6 address, return inet6, else inet.
  get_family_by_addrs(Addresses) ->
  
negative.code:     lists:flatten(io_lib:format(F, A)).
  
  do_open_and_connect(ServerAddresses, AddressToConnectTo) ->
      ?line Fun = fun (_, _, _, _, _, _) -> ok end,
      ?line do_open_and_connect(ServerAddresses, AddressToConnectTo, Fun).
  %%
  do_open_and_connect(ServerAddresses, AddressToConnectTo, Fun) ->
      ?line ServerFamily = get_family_by_addrs(ServerAddresses),
      ?line io:format("Serving ~p addresses: ~p~n",
  		    [ServerFamily, ServerAddresses]),
  