anchor.diff:      [{user, "Alladin"},
        {passwd, "Sesame"},
        {data, <<"Hello world!">>},
  +     {data_pos, ["Hej ","hopp"]},
        {filename,     "sftp.txt"},
        {testfile,     "test.txt"},
        {linktest,     "link_test.txt"},
  
positive.code: 	30000 -> ct:fail("timeout ~p:~p",[?MODULE,?LINE])
      end,
  
      ok = ssh_sftp:pwrite(Sftp, Handle, eof, list_to_binary("!")),
  
      NewData1 = list_to_binary("Bye, see you tomorrow!"),
      {ok, NewData1} = ssh_sftp:read_file(Sftp, FileName).
  
  %%--------------------------------------------------------------------
  
negative.code: pos_read(Config) when is_list(Config) ->
      FileName = proplists:get_value(testfile, Config),
      {Sftp, _} = proplists:get_value(sftp, Config),
      Data = proplists:get_value(data_pos, Config),
      [Expect1,Expect2] = Es = [binary_to_list(unicode:characters_to_binary(D)) || D <- Data],
      [Len1,Len2] = [length(E) || E <- Es],
      ok = ssh_sftp:write_file(Sftp, FileName, Data),
  
      {ok,Read} = file:read_file(FileName),
      ct:log("File: <~ts>~n<~p>~nExpect1: <~p>~nExpect2: <~p>", [Read, Read, Expect1, Expect2]),
  
      {ok,Handle} = ssh_sftp:open(Sftp, FileName, [read]),
      {async,Ref} = ssh_sftp:apread(Sftp, Handle, {bof, Len1}, Len2),
  
      receive
  	{async_reply, Ref, {ok,Expect2}} ->
  	    ok;
  	Msg ->
  	    ct:fail(Msg)
  