use strict;
use warnings;
use Test::More;
use WebService::Google::Reader;
{
my $reader = WebService::Google::Reader->new(host => 'somereader.com');
isa_ok($reader, 'WebService::Google::Reader', 'Reader->new()');
}
{
local $@;
eval {
WebService::Google::Reader->new(host => 'www.inoreader.com');
};
like $@, qr/^'appid' and 'appkey' are required/, 'appid and appkey';
my $reader = WebService::Google::Reader->new(
host => 'www.inoreader.com',
appid => 'MyAppId',
appkey => 'MyAppKey',
);
isa_ok($reader, 'WebService::Google::Reader', 'Reader->new - inoreader');
}
{
my @methods = qw(
auth error password _scheme token ua username
feed tag state shared starred unread search more previous
tags feeds preferences counts userinfo
edit_feed tag_feed untag_feed state_feed unstate_feed subscribe
unsubscribe rename_feed mark_read_feed
edit_tag edit_state share_tag unshare_tag share_state unshare_state
delete_tag mark_read_tag mark_read_state rename_feed_tag
rename_entry_tag rename_tag
edit_entry tag_entry untag_entry state_entry unstate_entry
share_entry unshare_entry star star_entry unstar unstar_entry
mark_read_entry
edit_preference opml ping mark_read
_login _token _request _public _states _encode_type _encode_feed
_encode_tag _encode_state _encode_entry _feed _list _edit _edit_tag
);
can_ok('WebService::Google::Reader', @methods);
}
{
my @methods = qw(
continuation count _ids _request
);
can_ok('WebService::Google::Reader::Feed', @methods);
}
done_testing;