anchor.diff:          {'DOWN', Mref1, _, _, _} = Down1b ->
               ct:fail(Down1b)
       end,
  -    timer:sleep(1000), % Just in case the file system is slow
  +    timer:sleep(100), % Just in case the file system is slow
       {ok, Data1} = ?FILE_MODULE:pread(Fd3, bof, Size+1),
       ok = ?FILE_MODULE:close(Fd3),
       %%
  
positive.code:     %%
      %% Test caching and normal close of non-raw file
      {ok, Fd1} = 
  	?FILE_MODULE:open(File, [write, {delayed_write, Size+1, 2000}]),
      ok = ?FILE_MODULE:write(Fd1, Data1),
      timer:sleep(1000), % Just in case the file system is slow
      {ok, Fd2} = ?FILE_MODULE:open(File, [read]),
      eof = ?FILE_MODULE:read(Fd2, 1),
      ok = ?FILE_MODULE:write(Fd1, Data1), % Data flush on size
      timer:sleep(1000), % Just in case the file system is slow
      {ok, Data1Data1} = ?FILE_MODULE:pread(Fd2, bof, 2*Size+1),
      ok = ?FILE_MODULE:write(Fd1, Data1),
      timer:sleep(3000), % Wait until data flush on timeout
      {ok, Data1Data1Data1} = ?FILE_MODULE:pread(Fd2, bof, 3*Size+1),
      ok = ?FILE_MODULE:write(Fd1, Data1),
      ok = ?FILE_MODULE:close(Fd1), % Data flush on close
      timer:sleep(1000), % Just in case the file system is slow
      {ok, Data1Data1Data1Data1} = ?FILE_MODULE:pread(Fd2, bof, 4*Size+1),
      ok = ?FILE_MODULE:close(Fd2),
      %%
  
negative.code:         {'DOWN', Mref2, _, _, _} = Down2b ->
              ct:fail(Down2b)
      end,
      timer:sleep(100), % Just in case the file system is slow
      eof = ?FILE_MODULE:pread(Fd4, bof, 1),
      ok  = ?FILE_MODULE:close(Fd4),
      %%
  