view release on metacpan or  search on metacpan

t/02_valid_cert_url.t  view on Meta::CPAN

use Test::Exception;

use lib '../lib';

use AWS::SNS::Verify;


my $sns = AWS::SNS::Verify->new(body => '');

throws_ok(
    sub { $sns->valid_cert_url(undef) },
    qr/\QThe SigningCertURL () isn't a valid URL/,
);

throws_ok(
    sub { $sns->valid_cert_url("abc") },
    qr/\QThe SigningCertURL (abc) isn't a valid URL/,
);


throws_ok(