anchor.diff:      ok = ftp:recv_chunk_start(Pid, id2ftp(File,Config)),
       {ok, ReceivedContents, _Ncunks} = recv_chunk(Pid, <<>>),
       find_diff(ReceivedContents, Contents).
  +
  +recv_chunk_twice() ->
  +    [{doc, "Receive two files using chunk-wise."}].
  +recv_chunk_twice(Config0) ->
  +    File1 = "big_file1.txt",
  +    File2 = "big_file2.txt",
  +    Contents1 = list_to_binary( lists:duplicate(1000, lists:seq(0,255)) ),
  +    Contents2 = crypto:strong_rand_bytes(1200),
  +    Config = set_state([reset, {mkfile,File1,Contents1}, {mkfile,File2,Contents2}], Config0),
  +    Pid = proplists:get_value(ftp, Config),
  +    {{error, "ftp:recv_chunk_start/2 not called"},_} = recv_chunk(Pid, <<>>),
  +    ok = ftp:recv_chunk_start(Pid, id2ftp(File1,Config)),
  +    {ok, ReceivedContents1, _Ncunks1} = recv_chunk(Pid, <<>>),
  +    ok = ftp:recv_chunk_start(Pid, id2ftp(File2,Config)),
  +    {ok, ReceivedContents2, _Ncunks2} = recv_chunk(Pid, <<>>),
  +    find_diff(ReceivedContents1, Contents1),
  +    find_diff(ReceivedContents2, Contents2).
   
   recv_chunk(Pid, Acc) -> 
       recv_chunk(Pid, Acc, 0).
  
positive.code:      append_chunk, 
       recv, 
       recv_3, 
       recv_bin, 
       recv_chunk, 
       type, 
       quote, 
       error_elogin,
  
negative.code: recv() -> 
      [{doc, "Receive a file using recv/2"}].
  recv(Config0) ->
      File1 = "f_dst1.txt",
      File2 = "f_dst2.txt",
      SrcDir = "a_dir",
      Contents1 = <<"1 ftp_SUITE test ...">>,
      Contents2 = <<"2 ftp_SUITE test ...">>,
      Config = set_state([reset, {mkfile,[SrcDir,File1],Contents1}, {mkfile,[SrcDir,File2],Contents2}], Config0),
      Pid = proplists:get_value(ftp, Config),
      ok = ftp:cd(Pid, id2ftp(SrcDir,Config)),
      ok = ftp:lcd(Pid, id2ftp("",Config)),
      ok = ftp:recv(Pid, File1),
      chk_file(File1, Contents1, Config),
      ok = ftp:recv(Pid, File2),
      chk_file(File2, Contents2, Config),
      {error,epath} = ftp:recv(Pid, "non_existing_file"),
      ok.
  
  