use strict;
#
eval "require SOAP::Lite";
if ($@) {
plan tests => 1;
warn
"You do not have the SOAP::Lite package installed\n".
"You will not be able to ping the weblogUpdates service using the SOAP protocol.\n";
ok(1);
exit;
}
#
plan tests => 7;
use constant PACKAGE => "WebService::weblogUpdates";
use constant PINGNAME => "Perlblog";
use constant RSSUPDATENAME => "What does Aaron think about RSS";
ok($SOAP::Lite::VERSION >= 0.55,"SOAP::Lite::VERSION >= 0.55");
use_ok("WebService::weblogUpdates");
my $weblogs = WebService::weblogUpdates->new(transport=>"SOAP",debug=>1);
isa_ok($weblogs,PACKAGE,PACKAGE);
ok($weblogs->ping({name=>PINGNAME,url=>PINGURL}),"pinged for:".PINGURL);
my $msg = $weblogs->LastMessage();
ok($msg,$msg);
ok($weblogs->ping({name=>RSSUPDATENAME,url=>RSSUPDATEURL,changesurl=>RSSUPDATEURL,category=>"rss"}),
"old-skool ping for RSS feed:".RSSUPDATEURL);
my $msg = $weblogs->LastMessage();
ok($msg,$msg);