anchor.diff:      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 = file:del_dir(filename:join([PrivDir, ?ET_WORK_DIR])),
  -
  -    io:format(user, "WTF: ~p~n", 
  -              [file:list_dir(filename:join([PrivDir, ?TR_WORK_DIR]))]),
  +%   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 = file:del_dir(filename:join([PrivDir, ?TR_WORK_DIR])).
  +    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),
  
positive.code: %% Tests
  %% ----------------------------------------------------------------------
  groups() ->
  %   [{main_group, [shuffle], [seed_transmission, seed_leech, leech_transmission]}].
      [{main_group, [], [leech_transmission]}].
  
  all() ->
      [{group, main_group}].
  
negative.code: 			Port = open_port(
  				 {spawn, Spawn},
  				 [stream, binary, eof]),
              transmission_loop(Port, Ref, Self, <<>>, <<>>)
  		     end),
      {Ref, Pid}.
  
  stop_transmission(Config, Pid) when is_pid(Pid) ->
      io:format(user, "Stop transmission~n", []),
      Pid ! close,
      end_transmission_locations(Config),
      ok.
  
  end_transmission_locations(Config) ->
      io:format(user, "Cleaning transmission directory.", []),
      PrivDir = ?config(priv_dir, Config),
  
      %% Transmission dir needs some help:
      ok = del_dir_r(filename:join([PrivDir, ?TR_WORK_DIR, "resume"])),
      ok = del_dir_r(filename:join([PrivDir, ?TR_WORK_DIR, "torrents"])),
      ok = del_dir_r(filename:join([PrivDir, ?TR_WORK_DIR, "blocklists"])),
      ok.
  
  
  stop_leecher(Config) ->
      ok = rpc:call(?config(leech_node, Config), etorrent, stop_app, []),
  