AWS-SNS-Verify

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  version: '1.4'
name: AWS-SNS-Verify
requires:
  CryptX: '0'
  Data::Structure::Util: '0'
  HTTP::Tiny: '0'
  JSON: '0'
  MIME::Base64: '0'
  Moo: '0'
  Ouch: '0'
  Test::Exception: '0'
  Test::More: '0'
  URI::URL: '0'
resources:
  bugtracker: http://github.com/rizen/AWS-SNS-Verify/issues
  repository: git://github.com/rizen/.gitWS-SNS-Verify
version: '0.0105'
x_generated_by_perl: v5.26.2
x_serialization_backend: 'YAML::Tiny version 1.73'

Makefile.PL  view on Meta::CPAN

  "LICENSE" => "perl",
  "NAME" => "AWS::SNS::Verify",
  "PREREQ_PM" => {
    "CryptX" => 0,
    "Data::Structure::Util" => 0,
    "HTTP::Tiny" => 0,
    "JSON" => 0,
    "MIME::Base64" => 0,
    "Moo" => 0,
    "Ouch" => 0,
    "Test::Exception" => 0,
    "Test::More" => 0,
    "URI::URL" => 0
  },
  "VERSION" => "0.0105",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "CryptX" => 0,
  "Data::Structure::Util" => 0,
  "HTTP::Tiny" => 0,
  "JSON" => 0,
  "MIME::Base64" => 0,
  "Moo" => 0,
  "Ouch" => 0,
  "Test::Exception" => 0,
  "Test::More" => 0,
  "URI::URL" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};
  $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}

author.t/01_verify.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Exception;

use lib '../lib';

use_ok('AWS::SNS::Verify');


note "Happy path";

# this certificate is out of date, you need a new message and certificate as you're running these, which is why it is an author test

author.t/01_verify.t  view on Meta::CPAN

#is($sns->certificate_string, $sns->fetch_certificate, 'loading the certificate ok');

ok $sns->verify, 'does message check out';


my $unicode = <<END;
{ 
"Type" : "Notification", 
"MessageId" : "95841c0a-329b-5910-bcc0-4a45a34aa6c7", 
"TopicArn" : "arn:aws:sns:us-east-1:041977924901:test", 
"Message" : "A Test Banana:\uD83C\uDF4C", 
"Timestamp" : "2019-11-20T19:10:09.894Z", 
"SignatureVersion" : "1", 
"Signature" : "DRcI8zgRFKXD/N679D3v9q8uYEt0HYJYUNQoGsNZ3JF6x5mmoEG2e9u+5MwwS2tkOsvwQQZg3vfM8bpiNMcvzqIruZPA4b+MRjyHOPqHEPMmIeM8VsZaqJJVSXErQp/q9xJka6JNOzIKA34TjR5WaDJjuHBgNVaftimlPvpeqKTWSQ9UPdw0wh9Fj1fDlGqr8eVs9LhhAx7EKSNgG1lNuJykf5x4fMq/3SQv30wmtQZ...
"SigningCertURL" : "https://sns.us-east-1.amazonaws.com/SimpleNotificationService-6aad65c2f9911b05cd53efda11f913f9.pem", 
"UnsubscribeURL" : "https://sns.us-east-1.amazonaws.com/?Action=Unsubscribe&SubscriptionArn=arn:aws:sns:us-east-1:041977924901:test:5b4ab24c-a248-4b55-84ef-7143a86f483f" 
} 
END
$sns = AWS::SNS::Verify->new(body => $unicode, certificate_string => $cert_string);
ok $sns->verify, 'does unicode message check out';

author.t/unicode.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Exception;

use lib '../lib';
use_ok('AWS::SNS::Verify');

# this certificate is out of date, you need a new message and certificate as you're running these, which is why it is an author test

my $cert_string = <<END;
-----BEGIN CERTIFICATE-----
MIIFazCCBFOgAwIBAgIQDnuRfDcLJCFd0+nXpG2L3DANBgkqhkiG9w0BAQsFADBG
MQswCQYDVQQGEwJVUzEPMA0GA1UEChMGQW1hem9uMRUwEwYDVQQLEwxTZXJ2ZXIg

author.t/unicode.t  view on Meta::CPAN

5MFqgeb5yYxXORIDFATQVJRvxf43L/StvA8D3OjNiCqw057tuviFwo0WABYv1K2e
9fuuyR7idsWT2+veCDK6gLdWN5hEalYIYPbgeWuhAh6CZqfPdURGbDhf2ygruhE=
-----END CERTIFICATE-----
END

my $unicode = <<END;
{ 
"Type" : "Notification", 
"MessageId" : "95841c0a-329b-5910-bcc0-4a45a34aa6c7", 
"TopicArn" : "arn:aws:sns:us-east-1:041977924901:test", 
"Message" : "A Test Banana:\uD83C\uDF4C", 
"Timestamp" : "2019-11-20T19:10:09.894Z", 
"SignatureVersion" : "1", 
"Signature" : "DRcI8zgRFKXD/N679D3v9q8uYEt0HYJYUNQoGsNZ3JF6x5mmoEG2e9u+5MwwS2tkOsvwQQZg3vfM8bpiNMcvzqIruZPA4b+MRjyHOPqHEPMmIeM8VsZaqJJVSXErQp/q9xJka6JNOzIKA34TjR5WaDJjuHBgNVaftimlPvpeqKTWSQ9UPdw0wh9Fj1fDlGqr8eVs9LhhAx7EKSNgG1lNuJykf5x4fMq/3SQv30wmtQZ...
"SigningCertURL" : "https://sns.us-east-1.amazonaws.com/SimpleNotificationService-6aad65c2f9911b05cd53efda11f913f9.pem", 
"UnsubscribeURL" : "https://sns.us-east-1.amazonaws.com/?Action=Unsubscribe&SubscriptionArn=arn:aws:sns:us-east-1:041977924901:test:5b4ab24c-a248-4b55-84ef-7143a86f483f" 
} 
END
my $sns = AWS::SNS::Verify->new(body => $unicode, certificate_string => $cert_string);
ok $sns->verify, 'does unicode message check out';

dist.ini  view on Meta::CPAN

[@Classic]

[MetaResources]
bugtracker.web    = http://github.com/rizen/AWS-SNS-Verify/issues
repository.url    = git://github.com/rizen/.gitWS-SNS-Verify
repository.web    = http://github.com/rizen/AWS-SNS-Verify
repository.type   = git

[Prereqs]
Test::More      = 0
Test::Exception = 0
JSON            = 0
HTTP::Tiny      = 0
MIME::Base64    = 0
Moo             = 0
Ouch            = 0
CryptX          = 0
URI::URL        = 0
Data::Structure::Util = 0

t/01_verify.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Exception;

use lib '../lib';

use_ok('AWS::SNS::Verify');


note "Happy path";

my $cert_string = <<END;
-----BEGIN CERTIFICATE-----

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

use strict;
use warnings;
use Test::More;
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) },

t/author-pod-coverage.t  view on Meta::CPAN

#!perl

BEGIN {
  unless ($ENV{AUTHOR_TESTING}) {
    print qq{1..0 # SKIP these tests are for testing by the author\n};
    exit
  }
}

# This file was automatically generated by Dist::Zilla::Plugin::PodCoverageTests.

use Test::Pod::Coverage 1.08;
use Pod::Coverage::TrustPod;

all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' });

t/author-pod-syntax.t  view on Meta::CPAN

#!perl

BEGIN {
  unless ($ENV{AUTHOR_TESTING}) {
    print qq{1..0 # SKIP these tests are for testing by the author\n};
    exit
  }
}

# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests.
use strict; use warnings;
use Test::More;
use Test::Pod 1.41;

all_pod_files_ok();