anchor.diff:      {Sftp, _} = proplists:get_value(sftp, Config),
   
       Data = list_to_binary("1234567890"),
  -    ok = ssh_sftp:write_file(Sftp, FileName, [Data]),
  +    ok = ssh_sftp:write_file(Sftp, FileName, Data),
       {ok, Handle} = ssh_sftp:open(Sftp, FileName, [read]),
   
       {ok, 3} = ssh_sftp:position(Sftp, Handle, {bof, 3}),
  
positive.code: write_file(Config) when is_list(Config) ->
      FileName = proplists:get_value(filename, Config),
      {Sftp, _} = proplists:get_value(sftp, Config),
  
      Data = list_to_binary("Hej hopp!"),
      ok = ssh_sftp:write_file(Sftp, FileName, [Data]),
      {ok, Data} = file:read_file(FileName).
  
  %%--------------------------------------------------------------------
  write_file_iolist() ->
  
negative.code:     FileName = proplists:get_value(filename, Config),
      {Sftp, _} = proplists:get_value(sftp, Config),
  
      Data = [lists:duplicate(750000,"a"),
              proplists:get_value(data, Config)],
      ok = ssh_sftp:write_file(Sftp, FileName, Data),
      Expected = unicode:characters_to_binary(Data),
      {ok, Expected} = file:read_file(FileName).
  
  %%--------------------------------------------------------------------
  sftp_read_big_file() ->
  