view release on metacpan or  search on metacpan

t/01-compile.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 'lib';

use Test::More;

plan tests => 8;

use_ok('Amazon::SimpleDB::Domain');
use_ok('Amazon::SimpleDB::ErrorResponse');
use_ok('Amazon::SimpleDB::GetAttributesResponse');
use_ok('Amazon::SimpleDB::Item');
use_ok('Amazon::SimpleDB::ListDomainsResponse');

t/10-domain.t  view on Meta::CPAN

#!/usr/bin/perl -w
use warnings;
use strict;

use lib 'lib';

use Test::More;

unless ($ENV{'AMAZON_S3_EXPENSIVE_TESTS'}) {
    plan skip_all => 'Testing this module for real costs money.';
} else {
    plan tests => 8;
}

my $aws_access_key_id     = $ENV{'AWS_ACCESS_KEY_ID'};