anchor.diff:  			   {active, false},
   			   {reuseaddr, true}]),
       %% get all sockets to know failing ends
  +    ?P("listen socket created: "
  +       "~n      ~p", [LSock]),
       {ok, Port} = inet:port(LSock),
       ?P("listen socket port number ~w", [Port]),
       Control = self(),
  
positive.code: 
  init_per_testcase(_Func, Config) ->
      ?P("init_per_testcase -> entry with"
         "~n   Config: ~p"
         "~n   Nodes:  ~p", [Config, erlang:nodes()]),
  
      kernel_test_global_sys_monitor:reset_events(),
  
      ?P("init_per_testcase -> done when"
         "~n      Nodes: ~p", [erlang:nodes()]),
      Config.
  
  end_per_testcase(_Func, Config) ->
      ?P("end_per_testcase -> entry with"
         "~n   Config: ~p"
         "~n   Nodes:  ~p",
         [Config, erlang:nodes()]),
  
      ?P("system events during test: "
         "~n   ~p", [kernel_test_global_sys_monitor:events()]),
  
      ?P("end_per_testcase -> done with"
         "~n   Nodes: ~p", [erlang:nodes()]),
      ok.
  
  suite() ->
  
negative.code:     ?P("spawn sender"),
      _Snd = spawn_link(
          fun Sender() ->
              case gen_tcp:send(Socket, Payload) of
                  ok ->
                      Sender();
                  {error, Reason} ->
                      ?P("Send failed: "
                         "~n      ~p", [Reason]),
                      exit({send_failed, Reason})
              end
          end),
      ?P("begin recv"),
      recv(Socket, 0, Control).
  