anchor.diff:      ct:sleep(100),
   
       ?P("validate state - (still) accepting"),
  -    case gen_tcp_socket:info(LS) of
  -        #{counters      := #{acc_tries := 1},
  -          num_acceptors := 1} ->
  -            ?P("validated"),
  -            ok;
  -        INFO2 ->
  -            ?P("Invalid acceptor info: "
  -               "~n      ~p", [INFO2]),
  -            ct:fail("wrong number of acceptors")
  -    end,
  +    validate_acceptor_state(LS, 1, [accepting], []),
   
       ?P("kill acceptor 2"),
       exit(Pid2, kill),
  
positive.code:     end,
  
      ?P("validate state - listening"),
      {ok, L3} = prim_inet:getstatus(LS),
      false  = lists:member(accepting, L3),
  
      ?P("create acceptor 3"),
      Pid3 = spawn(F2),
  
negative.code:                 ?P("[para] timeout received from sender 2 (~p, ~p)", [Snd2, N]),
                  2
          after 20000 ->
                  SockInfo1 = SockInfo(),
                  SockTo1   = SockTimeout(),
                  ?P("[para] UNEXPECTED timeout(1,~w) when:"
                     "~n   Sender 1 Info: ~p"
                     "~n   Sender 2 Info: ~p"
                     "~n   Socket Info:   ~p"
                     "~n   Send Timeout:  ~p"
                     "~n   Message Queue: ~p",
                     [AutoClose,
                      (catch process_info(Snd1)),
                      (catch process_info(Snd2)),
                      SockInfo1, SockTo1,
                      flush([])]),
                  Snd1 ! {info_and_die, SockInfo, SockTimeout},
                  Snd2 ! {info_and_die, SockInfo, SockTimeout},
                  ct:sleep(?SECS(1)),
                  exit({timeout, AutoClose})
          end,
  