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}";
}