use strict;
use Test::More 'no_plan';
BEGIN {
use_ok "WebService::ChangesXml";
}
my $changes = WebService::ChangesXml->new("http://www.weblogs.com/changes.xml");
my $pings = $changes->find_new_pings(60 * 10);
for my $ping (@{$pings}) {
ok $ping->{url}, "ping has url: $ping->{url}";
ok $ping->{name}, "ping has name: $ping->{name}";
ok $ping->{when}, "ping has when: $ping->{when}";
}