use
strict;
use
warnings;
use
Test::Lib;
use
strict;
use
warnings;
use
Test::More 0.96;
use
Test::Exception;
use
Sub::Override;
use
HTTP::Response;
my
$client
= WebService::ValidSign->new(
secret
=>
'Foo'
,
);
isa_ok(
$client
,
"WebService::ValidSign"
);
isa_ok(
$client
->endpoint,
'URI'
);
my
$lwp
=
$client
->lwp;
isa_ok(
$lwp
,
"LWP::UserAgent"
);
is(
$lwp
->agent,
"WebService::ValidSign/$WebService::ValidSign::VERSION"
,
"UserAgent matches"
);
done_testing;