view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

package main;
use strict;
use warnings 'all';
no warnings 'once';
use Test::More 'no_plan';
use Test::Exception;
use Data::Dumper;
use FindBin qw/ $Bin /;
use lib "../lib";

BEGIN {
  use_ok('AWS::SNS::Confess', qw/confess/);
}

can_ok('AWS::SNS::Confess', "setup");
my $topic_name = "arn:aws:sns:region:1234:topic";
my $sns = Amazon::SNS::Mock->new(); 
AWS::SNS::Confess::setup(
  access_key_id => "key",

t/integration.t  view on Meta::CPAN

#!/usr/bin/perl -w

# Test with a real AWS account

use strict;
use warnings 'all';
use Test::More 'no_plan';
use Test::Exception;

use lib "../lib";
BEGIN {
 use_ok('AWS::SNS::Confess', qw/confess/);
}

SKIP: {
  skip "no environment variables", 1 unless ( $ENV{AWS_ACCESS_KEY_ID} && $ENV{AWS_SECRET_ACCESS_KEY} && $ENV{AWS_TOPIC} );
  ok(AWS::SNS::Confess::setup(
    access_key_id => $ENV{AWS_ACCESS_KEY_ID},
    secret_access_key => $ENV{AWS_SECRET_ACCESS_KEY},
    topic => $ENV{AWS_TOPIC},