anchor.diff:       {links, [],
         [make_link_a, make_link_b, read_link_info_for_non_link,
          symlinks_a, symlinks_b, list_dir_error]}].
  +
  +init_per_testcase(large_write, Config) ->
  +    {ok, Started} = application:ensure_all_started(os_mon),
  +    [{started, Started}|Config];
  +init_per_testcase(_TestCase, Config) ->
  +    Config.
  +
  +end_per_testcase(large_write, Config) ->
  +    [application:stop(App) || App <- lists:reverse(proplists:get_value(started, Config))],
  +    ok;
  +end_per_testcase(_, _Config) ->
  +    ok.
   
   init_per_group(_GroupName, Config) ->
       Config.
  
positive.code:     Bs;
  zip_data(As, []) ->
      As.
  
  %%%-----------------------------------------------------------------
  %%% Utilities
  
negative.code: 	{{unix,sunos},OsVersion} when OsVersion < {5,5,1} ->
  	    {skip,"Only supported on Win32, Unix or SunOS >= 5.5.1"};
  	{{unix,_},_} ->
  	    DiscFree = unix_free(proplists:get_value(priv_dir, Config)),
              MemFree = free_memory(),
  	    io:format("Free disk: ~w KByte~n", [DiscFree]),
  	    io:format("Free mem: ~w MByte~n", [MemFree]),
  	    if DiscFree < 5 bsl 20; MemFree < 5 bsl 10 ->
  		    %% Less than 5 GByte free
  		    {skip,"Less than 5 GByte free disk/mem"};
  	       true ->
  		    do_run_large_file_test(Config, Run, Name)
  	    end;
  