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
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
);