anchor.diff:  init_per_testcase(_Case, Config) ->
       Config.
   
  +stop_leecher(Config) ->
  +    ok = rpc:call(?config(leech_node, Config), etorrent, stop_app, []).
  +
   end_per_testcase(leech_transmission, Config) ->
  -    ok = rpc:call(?config(ln, Config), etorrent, stop_app, []),
  -    Priv = ?config(priv_dir, Config),
  -    ?line ok = file:delete(filename:join([Priv, "nothing-et", ?TESTFILE30M])),
  -    ?line ok = file:delete(filename:join([Priv, ?TESTFILE30M ++ ".torrent"])),
  -    ?line ok = file:delete(filename:join([Priv, "nothing", ?TESTFILE30M]));
  +    stop_leecher(Config),
  +    ?line ok = file:delete(?config(tr_seed_file), Config),
  +    ?line ok = file:delete(?config(et_leech_file), Config);
   end_per_testcase(seed_transmission, Config) ->
       ok = rpc:call(?config(sn, Config), etorrent, stop_app, []),
       Priv = ?config(priv_dir, Config),
  
positive.code: 	 leech_transmission/0, leech_transmission/1]).
  
  -define(TESTFILE30M, "test_file_30M.random").
  
  suite() ->
      [{timetrap, {minutes, 3}}].
  
  %% Setup/Teardown
  %% ----------------------------------------------------------------------
  init_per_group(_Group, Config) ->
      Config.
  
  
negative.code: 
  leech_transmission(Config) ->
      {Ref, Pid} = {make_ref(), self()},
      ok = rpc:call(?config(leech_node, Config),
  		  etorrent, start,
  		  [?config(seed_torrent, Config), {Ref, Pid}]),
      receive
  	{Ref, done} -> ok
      after
  	120*1000 -> exit(timeout_error)
      end,
      sha1_file(?config(tr_seed_file, Config))
  	=:= sha1_file(?config(et_leech_file, Config)).
  
  seed_leech() ->
      [{require, common_conf, etorrent_common_config}].
  