#
# $Id$

use strict;

use Test::More tests => 5;

use REST::Google::Feeds;

REST::Google::Feeds->http_referer('http://www.cpan.org');

use Data::Dumper;

# The official google blog
my $res = REST::Google::Feeds->new('http://feedproxy.google.com/blogspot/MKuf');

is($res->responseStatus, 200, "response ok");

my $feed = $res->responseData->feed;
isa_ok($feed, "REST::Google::Feeds::Feed", "feed object");

my $entries = $feed->entries;
is(ref $entries, "ARRAY", "entries are arrayref");
ok(@$entries, "entries are not empty");

my $entry = $entries->[0];

isa_ok($entry, "REST::Google::Feeds::Entry", "entry object");