anchor.diff:  %% Convert a literal infohash to integer.
   hex_to_int_hash(X) ->
       list_to_integer(X, 16).
  -
  -
  -%% Block the remote peer, while having unserved requests from it.
  -choke_in_the_middle(Node, PeerPid) ->
  -    rpc:call(Node, etorrent_peer_control, choke, [PeerPid]),
  -    HasRequests = rpc:call(Node, etorrent_peer_control,
  -                           has_incoming_requests, [PeerPid]),
  -    case HasRequests of
  -        true -> ok;
  -        false ->
  -            rpc:call(Node, etorrent_peer_control, unchoke, [PeerPid]),
  -            timer:sleep(300),
  -            io:format("Try to choke again."),
  -            choke_in_the_middle(Node, PeerPid)
  -    end.
   
   
   copy_to(SrcFileName, DestDirName) ->
  
positive.code: -export([seed_leech/0, seed_leech/1,
       udp_seed_leech/0, udp_seed_leech/1,
       down_udp_tracker/0, down_udp_tracker/1,
       choked_seed_leech/0, choked_seed_leech/1,
       choked_reject/0, choked_reject/1,
  	 seed_transmission/0, seed_transmission/1,
  	 leech_transmission/0, leech_transmission/1,
  
negative.code: %% Tests
  %% ----------------------------------------------------------------------
  groups() ->
      Tests = [seed_transmission, leech_transmission, seed_leech,
               partial_downloading, udp_seed_leech, bep9,
               down_udp_tracker, checking, choked_reject],
  %   [{main_group, [shuffle], Tests}].
      [{main_group, [], Tests}].
  
  