anchor.diff:       {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),
  
positive.code:      {http_torrent_file, HTTPTorrentFn},
       {udp_torrent_file, UDPTorrentFn},
       {dir_torrent_file, DirTorrentFn},
  
       %% Names of data on which torrents are based.
       {data_filename, Fn},
  
negative.code:     SNode     = ?config(seed_node, Config),
      LNode     = ?config(leech_node, Config),
      Fn        = ?config(data_filename, Config),
      TrackerPid = start_opentracker(DataDir),
      SNodeDir = filename:join([PrivDir,  seed]),
      LNodeDir = filename:join([PrivDir,  leech]),
  