anchor.diff:      ssl_test_lib:close(Server),
       ssl_test_lib:close(Client).
   
  +server_echos_passive_chunk(
  +  Data, ClientOpts, ServerOpts, ClientNode, ServerNode, Hostname) ->
  +    Length = byte_size(Data),
  +    Server =
  +        ssl_test_lib:start_server(
  +          [{node, ServerNode}, {port, 0},
  +           {from, self()},
  +           {mfa, {?MODULE, echoer_chunk, [Length]}},
  +           {options, [{active, false}, {mode, binary} | ServerOpts]}]),
  +    Port = ssl_test_lib:inet_port(Server),
  +    Client =
  +        ssl_test_lib:start_client(
  +          [{node, ClientNode}, {port, Port},
  +           {host, Hostname},
  +           {from, self()},
  +           {mfa, {?MODULE, sender, [Data]}},
  +           {options, [{active, false}, {mode, binary} | ClientOpts]}]),
  +    %%
  +    ssl_test_lib:check_result(Server, ok, Client, ok),
  +    %%
  +    ssl_test_lib:close(Server),
  +    ssl_test_lib:close(Client).
   
   server_echos_active_once(
     Data, ClientOpts, ServerOpts, ClientNode, ServerNode, Hostname) ->
  
positive.code:       Data, ClientOpts, ServerOpts, ClientNode, ServerNode, Hostname).
  
  %%--------------------------------------------------------------------
  client_echos_active_once_small() ->
      ["Server sends 1000 bytes in active once mode to client, that receives "
       "them, sends them back, and closes."].
  
negative.code:     Data = binary:copy(<<"1234567890">>, 5000),
      server_echos_passive(
        Data, ClientOpts, ServerOpts, ClientNode, ServerNode, Hostname).
  %%--------------------------------------------------------------------
  server_echos_passive_chunk_big() ->
      [{doc, "Client sends 50000 bytes to server in passive mode, that receives them, "
       "sends them back, and closes."}].
  
  server_echos_passive_chunk_big(Config) when is_list(Config) -> 
      ClientOpts = ssl_test_lib:ssl_options(client_opts, Config),
      ServerOpts = ssl_test_lib:ssl_options(server_opts, Config),
      {ClientNode, ServerNode, Hostname} = ssl_test_lib:run_where(Config),
      %%
      Data = binary:copy(<<"1234567890">>, 5000),
      server_echos_passive_chunk(
        Data, ClientOpts, ServerOpts, ClientNode, ServerNode, Hostname).
  
  %%--------------------------------------------------------------------
  
  