view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
 
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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/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},