anchor.diff:      ok = ?EXPECT_ACCEPTS([{P2,{ok,Port0}}] when is_port(Port0),infinity,100),
       ok = ?EXPECT_ACCEPTS([{P3,{error,timeout}}],infinity,2000),
       gen_tcp:connect("localhost",PortNo,[]),
  -    ?EXPECT_ACCEPTS([{P4,{ok,Port1}}] when is_port(Port1),infinity,100).
  +    ok = ?EXPECT_ACCEPTS([{P4,{ok,Port1}}] when is_port(Port1),infinity,100).
   
   killing_acceptor(suite) ->
       [];
  
positive.code:     Parent = self(),
      F = fun() -> Parent ! {accepted,self(),gen_tcp:accept(LS,1000)} end,
      P = spawn(F),
      ?EXPECT_ACCEPTS([{P,{error,timeout}}],1,2000).
  
  accept_timeouts_in_order(suite) ->
      [];
  
negative.code:     spawn(F),
      spawn(F),
      gen_tcp:close(LS),
      ok = ?EXPECT_ACCEPTS([{_,{error,closed}},{_,{error,closed}},
                            {_,{error,closed}},{_,{error,closed}}],4,500).
  	
  accept_timeout(suite) ->
      [];
  