anchor.diff:      end,
       sha1_file(?config(src_filename, Config))
   	=:= sha1_file(?config(dest_filename, Config)).
  +
  +down_udp_tracker() ->
  +    [{require, common_conf, etorrent_common_config}].
  +
  +down_udp_tracker(Config) ->
  +    io:format("~n======START DOWN-UDP-TRACKER TEST CASE======~n", []),
  +    LeechNode = ?config(leech_node, Config),
  +    %% This test case was added, because of the error in etorrent_core.
  +    %% GIT revision is f25a965205f8dfd2f71897a09cdd0b4ac9f677ae.
  +    %%
  +    %% etorrent_udp_tracker_mgr terminated with reason: no case clause matching 
  +    %% [{{conn_id_req,{"localhost",6666}},<0.178.0>},{{conn_id_req,{"localhost",6666}},<0.198.0>}]
  +    %% in etorrent_udp_tracker_mgr:cancel_conn_id_req/1 line 250
  +    Ref = erlang:monitor(process, {etorrent_udp_tracker_mgr, LeechNode}),
  +
  +    {ok, _} = rpc:call(LeechNode, etorrent_ctl, start,
  +          [?config(bad_udp_torrent_file, Config),
  +           [{udp_tracker_connection_timeout, 5000}]]),
  +    {ok, _} = rpc:call(LeechNode, etorrent_ctl, start,
  +          [?config(bad_udp_dir_torrent_file, Config),
  +           [{udp_tracker_connection_timeout, 5000}]]),
  +    receive
  +	{'DOWN', Ref, _, _, Reason} -> error({manager_crashed, Reason})
  +    after 30000 -> ok
  +    end,
  +    true.
   
   choked_seed_leech() ->
       [{require, common_conf, etorrent_common_config}].
  
positive.code:     clean_standard_directory_layout(LNodeDir),
      stop_opentracker(?config(tracker_port, Config)),
      ok;
  end_per_testcase(choked_seed_leech, Config) ->
      SNode       = ?config(seed_node, Config),
      LNode       = ?config(leech_node, Config),
  
negative.code:      {dest_filename, DestFn},
       {seed_node_dir, SNodeDir},
       {leech_node_dir, LNodeDir} | Config];
  init_per_testcase(down_udp_tracker, Config) ->
      PrivDir   = ?config(priv_dir, Config),
      DataDir   = ?config(data_dir, Config),
      LNode     = ?config(leech_node, Config),
      LNodeDir = filename:join([PrivDir,  leech]),
      create_standard_directory_layout(LNodeDir),
      LNodeConf = leech_configuration(LNodeDir),
      start_app(LNode, LNodeConf),
      ok = ct:sleep({seconds, 5}),
      [{leech_node_dir, LNodeDir} | Config];
  init_per_testcase(choked_seed_leech, Config) ->
      %% etorrent => etorrent, one seed is choked (refuse to work).
      PrivDir   = ?config(priv_dir, Config),
  