#!perl -T
use strict;
use Test::More tests => 21;
my $api = WebService::KakakuCom->new;
ok $api;
ok $api->ua;
isa_ok $api->ua, 'LWP::UserAgent';
is $api->ua->agent, sprintf "%s/%s", 'WebService::KakakuCom', WebService::KakakuCom->VERSION;
my $rs = $api->search('Vaio');
ok $rs;
isa_ok $rs, 'WebService::KakakuCom::ResultSet';
isa_ok $rs->[0], 'WebService::KakakuCom::Product';
ok $rs->pager;
isa_ok $rs->pager, 'Data::Page';
ok $rs->pager->total_entries > 0;
is $rs->pager->current_page, 1;
is $rs->pager->next_page, 2;
$rs = $api->search('Vaio', { PageNum => 2 });
ok $rs;
ok $rs->pager;
is $rs->pager->current_page, 2;
is $rs->pager->next_page, 3;
ok @$rs > 0;
ok $rs->[0]->ProductName;
my $product = $api->product($rs->[0]->ProductID);
ok $product;
isa_ok $rs->[0], 'WebService::KakakuCom::Product';
is $rs->[0]->ProductName, $product->ProductName;