anchor.diff:      {Client, TimeoutRef}.
   
   get_string(What, PL) ->
  -    etorrent_bcoding:get_string_value(What, PL).
  +    etorrent_bcoding:get_binary_value(What, PL).
   
   %
   % Generate a random token value. A token value is used to filter out bogus announce
  
positive.code:         ++ "1:t2:aa1:y1:re",
      Res = decode_msg(Enc),
      {response, _, Values} = Res,
      {ID, Token, Peers, Nodes} = decode_response(get_peers, Values),
      ?assertEqual(etorrent_dht:integer_id(<<"abcdefghij0123456789">>), ID),
      ?assertEqual(<<"aoeusnth">>, Token),
      ?assertEqual([{etorrent_dht:integer_id(<<"0123456789abcdefghij">>),
  
negative.code:     {response, _, Values} = Res,
      ID = decode_response(announce, Values),
      ?assertEqual(etorrent_dht:integer_id(<<"mnopqrstuvwxyz123456">>), ID).
  
  valid_token_test() ->
      IP = {123,132,213,231},
      Port = 1779,
      TokenValues = init_tokens(10),
      Token = token_value(IP, Port, TokenValues),
      ?assertEqual(true, is_valid_token(Token, IP, Port, TokenValues)),
      ?assertEqual(false, is_valid_token(<<"not there at all!">>,
  				       IP, Port, TokenValues)).
  
  -ifdef(EQC).
  
  