use strict;
use warnings;
use Test::More tests => 12;
use WWW::Plurk;

my %URIS = (
    login     => 'http://www.plurk.com/Users/login?redirect_page=main',
    add_plurk => 'http://www.plurk.com/TimeLine/addPlurk',
    notifications => 'http://www.plurk.com/Notifications',
    accept_friend => 'http://www.plurk.com/Notifications/allow',
    deny_friend   => 'http://www.plurk.com/Notifications/deny',
    get_friends   => 'http://www.plurk.com/Users/getFriends',
    get_plurks    => 'http://www.plurk.com/TimeLine/getPlurks',
    add_response  => 'http://www.plurk.com/Responses/add',
    get_responses => 'http://www.plurk.com/Responses/get2',
    get_unread_plurks =>
      'http://www.plurk.com/TimeLine/getUnreadPlurks',
    get_completion => 'http://www.plurk.com/Users/getCompletion',
);

my $plurk = WWW::Plurk->new;

while ( my ( $key, $uri ) = each %URIS ) {
    is $plurk->_uri_for( $key ), $uri, "uri for $key";
}

is_deeply $plurk->_decode_json(
    q{[ new Date("Sun, 05 Apr 1964 00:00:00 GMT"), "\"Q\"" ]} ),
  [ -181180800, '"Q"' ],
  'json';