anchor.diff:  %% ===========================================================================
   
   suite() ->
  -    [{timetrap, {minutes, 2}}].
  +    [{timetrap, {seconds, 15}}].
   
   all() ->
       [start,
  
positive.code: %% gen_accept/2
  
  gen_accept(sctp, Sock) ->
      Assoc = ?RECV(?SCTP(Sock, {_, #sctp_assoc_change{state = comm_up,
                                                       outbound_streams = O,
                                                       inbound_streams = I,
                                                       assoc_id = A}}),
                    {O, I, A}),
      putr(assoc, Assoc),
      {ok, Sock};
  gen_accept(tcp, LSock) ->
      gen_tcp:accept(LSock).
  
negative.code:                                       = #diameter_caps{host_ip_address
                                                         = Addrs}}).
  
  %% The term we register after open a listening port with gen_{tcp,sctp}.
  -define(TEST_LISTENER(Ref, PortNr),
          {?MODULE, listen, Ref, PortNr}).
  
  