anchor.diff:      file:copy(SeedTorrent, LeechTorrent),
       ok = rpc:call(SN, etorrent, start_app, [SeedConfig]),
       ok = rpc:call(LN, etorrent, start_app, [LeechConfig]),
  -    [{sn, SN}, {ln, LN},
  -     {seed_torrent, SeedTorrent},
  +    [{seed_torrent, SeedTorrent},
        {leech_torrent, LeechTorrent},
        {seed_file, SeedFile},
        {leech_file, LeechFile} | Config];
  
positive.code:     after
  	120*1000 -> exit(timeout_error)
      end,
      sha1_file(?config(leech_file, Config)) =:= sha1_file(?config(seed_file, Config)).
  
  leech_transmission() ->
      [{require, common_conf, etorrent_common_config}].
  
negative.code: stop_leecher(Config) ->
      ok = rpc:call(?config(leech_node, Config), etorrent, stop_app, []).
  
  stop_seeder(Config) ->
      ok = rpc:call(?config(seed_node, Config), etorrent, stop_app, []).
  
  end_per_testcase(leech_transmission, Config) ->
      stop_leecher(Config),
      ?line ok = file:delete(?config(tr_file, Config)),
      ?line ok = file:delete(?config(et_leech_file, Config));
  end_per_testcase(seed_transmission, Config) ->
      stop_seeder(Config),
      ?line ok = file:delete(?config(tr_file, Config));
  end_per_testcase(seed_leech, Config) ->
      stop_seeder(Config),
      stop_leecher(Config),
      ?line ok = file:delete(?config(et_leech_file, Config));
  end_per_testcase(_Case, _Config) ->
      ok.
  
  