anchor.diff:  	 init_per_testcase/2, end_per_testcase/2]).
   
   -export([seed_leech/0, seed_leech/1,
  -	 seed_transmission/0, seed_transmission/1]).
  +	 seed_transmission/0, seed_transmission/1,
  +	 leech_transmission/0, leech_transmission/1]).
   
   -define(TESTFILE30M, "test_file_30M.random").
   
  
positive.code:     {Ref, Pid} = ?config(transmission_port, Config),
      receive
  	{Ref, done} -> ok = stop_transmission(Pid)
      after
  	120*1000 -> exit(timeout_error)
      end,
  
negative.code: init_per_testcase(_Case, Config) ->
      Config.
  
  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]));
  end_per_testcase(seed_transmission, Config) ->
      ok = rpc:call(?config(sn, Config), etorrent, stop_app, []),
      Priv = ?config(priv_dir, Config),
      ?line ok = file:delete(filename:join([Priv, ?TESTFILE30M ++ ".torrent"])),
      ?line ok = file:delete(filename:join([Priv, "nothing", ?TESTFILE30M]));
  end_per_testcase(seed_leech, Config) ->
      ok = rpc:call(?config(ln, Config), etorrent, stop_app, []),
      ok = rpc:call(?config(sn, Config), etorrent, stop_app, []),
      Priv = ?config(priv_dir, Config),
      ?line ok = file:delete(filename:join([Priv, ?TESTFILE30M ++ ".torrent"])),
      ?line ok = file:delete(filename:join([Priv, "nothing", ?TESTFILE30M]));
  end_per_testcase(_Case, _Config) ->
      ok.
  
  