anchor.diff:  %% Tests
   %% ----------------------------------------------------------------------
   groups() ->
  -%   [{main_group, [shuffle], [seed_transmission, seed_leech, leech_transmission]}].
  -    [{main_group, [], [leech_transmission]}].
  +    [{main_group, [shuffle], [seed_transmission, seed_leech, leech_transmission]}].
   
   all() ->
       [{group, main_group}].
  
positive.code: sha1_round(FD, {ok, Data}, Ctx) ->
      sha1_round(FD, file:read(FD, 1024*1024), crypto:sha_update(Ctx, Data)).
  
  
negative.code:     ok.
  
  end_locations(Config) ->
      io:format(user, "Cleaning private directory~n", []),
      DataDir = ?config(data_dir, Config),
      PrivDir = ?config(priv_dir, Config),
  
      %% Remove locations
      %% 
  %   ok = file:delete(filename:join([PrivDir, ?ET_WORK_DIR, ?TESTFILE30M])),
      ok = del_dir(filename:join([PrivDir, ?ET_WORK_DIR])),
      ok = file:delete(filename:join([PrivDir, ?TR_WORK_DIR, "settings.json"])),
      ok = del_dir(filename:join([PrivDir, ?TR_WORK_DIR])).
  
  
  init_locations(Config) ->
      io:format(user, "Init locations~n", []),
      %% Setup locations that some of the test cases use
      DataDir = ?config(data_dir, Config),
      PrivDir = ?config(priv_dir, Config),
  