anchor.diff:  
   -export([altname/1]).
   
  --export([large_file/1]).
  +-export([large_file/1, large_write/1]).
   
   -export([read_line_1/1, read_line_2/1, read_line_3/1,read_line_4/1]).
   
  
positive.code:     case {os:type(),os:version()} of
  	{{win32,nt},_} ->
  	    do_run_large_file_test(Config, Run, Name);
  	{{unix,sunos},{A,B,C}}
  	when A == 5, B == 5, C >= 1;   A == 5, B >= 6;   A >= 6 ->
  	    do_run_large_file_test(Config, Run, Name);
  	{{unix,Unix},_} when Unix =/= sunos ->
  	    N = unix_free(Config),
  	    io:format("Free: ~w KByte~n", [N]),
  	    if N < 5 * (1 bsl 20) ->
  		    %% Less than 5 GByte free
  		    {skip,"Less than 5 GByte free"};
  
negative.code:      {group, compression}, {group, links}, copy,
       delayed_write, read_ahead, segment_read, segment_write,
       ipread, pid2name, interleaved_read_write, otp_5814,
       large_file, large_write, read_line_1, read_line_2, read_line_3,
       read_line_4, standard_io].
  
  groups() -> 
  