The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

use strict;
use strict;
use Test::More 0.96;
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;