anchor.diff:      {ok, Data} = ssl:recv(Socket, 0),
       ok = ssl:send(Socket, Data),
       echo_recv(Socket, Size - byte_size(Data)).
  +
  +
  +%% Receive Size bytes
  +echo_recv_chunk(_Socket, _, 0) ->
  +    ok;
  +echo_recv_chunk(Socket, ChunkSize, Size) ->
  +    {ok, Data} = ssl:recv(Socket, ChunkSize),
  +    ok = ssl:send(Socket, Data),
  +    echo_recv_chunk(Socket, ChunkSize, Size - ChunkSize).
  +
   
   %% Receive Size bytes
   echo_active_once(_Socket, 0) ->
  
positive.code:     Data = binary:copy(<<"1234567890">>, 50000),
      client_echos_passive(
        Data, ClientOpts, ServerOpts, ClientNode, ServerNode, Hostname).
  
  %%--------------------------------------------------------------------
  client_echos_active_once_huge() ->
      [{doc, "Server sends 500000 bytes to client in active once mode, that receives "
  
negative.code:     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) ->
  