AWS-CLIWrapper
view release on metacpan or search on metacpan
"requires" : {
"IPC::Cmd" : "0",
"JSON" : "2",
"String::ShellQuote" : "0",
"perl" : "5.008001",
"version" : "0.77"
}
},
"test" : {
"requires" : {
"Test::More" : "0"
}
}
},
"release_status" : "stable",
"resources" : {
"repository" : {
"type" : "git",
"url" : "https://github.com/hirose31/AWS-CLIWrapper.git",
"web" : "https://github.com/hirose31/AWS-CLIWrapper"
}
---
abstract: 'Wrapper module for aws-cli'
author:
- 'HIROSE Masaaki'
build_requires:
Test::More: '0'
configure_requires:
ExtUtils::MakeMaker: '6.30'
dynamic_config: 1
generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: '1.4'
name: AWS-CLIWrapper
no_index:
Makefile.PL view on Meta::CPAN
"DISTNAME" => "AWS-CLIWrapper",
"LICENSE" => "perl",
"NAME" => "AWS::CLIWrapper",
"PREREQ_PM" => {
"IPC::Cmd" => 0,
"String::ShellQuote" => 0,
"JSON" => "2",
"version" => "0.77",
},
"TEST_REQUIRES" => {
"Test::More" => 0
},
"VERSION_FROM" => "lib/AWS/CLIWrapper.pm",
"MIN_PERL_VERSION" => 5.008001,
"META_MERGE" => {
'meta-spec' => { version => 2 },
resources => {
repository => {
type => 'git',
web => 'https://github.com/hirose31/AWS-CLIWrapper',
url => 'https://github.com/hirose31/AWS-CLIWrapper.git',
requires 'String::ShellQuote';
requires 'perl', '5.005';
requires 'version';
requires 'perl', '5.008001';
on configure => sub {
requires 'ExtUtils::MakeMaker', '6.30';
};
on test => sub {
requires 'Test::More';
requires 'File::Temp';
};
on develop => sub {
requires 'Test::Dependencies';
requires 'Test::Perl::Critic';
requires 'Test::LocalFunctions';
requires 'Test::UsedModules';
requires 'File::Temp';
};
t/00_compile.t view on Meta::CPAN
use strict;
use Test::More;
BEGIN { use_ok 'AWS::CLIWrapper' }
done_testing;
use strict;
use Test::More;
require AWS::CLIWrapper;
note("new");
my $obj = new_ok("AWS::CLIWrapper");
# diag explain $obj
done_testing;
t/03_awscli_path.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use AWS::CLIWrapper;
subtest 'default' => sub {
my $cli = AWS::CLIWrapper->new;
is $cli->awscli_path, 'aws';
};
subtest 'specify explicit awscli path' => sub {
my $cli = AWS::CLIWrapper->new(awscli_path => '/usr/local/bin/aws');
t/03_awscli_timeout.t view on Meta::CPAN
use strict;
use Test::More;
use AWS::CLIWrapper;
{
local $ENV{AWS_CLIWRAPPER_TIMEOUT} = undef;
my $aws = AWS::CLIWrapper->new();
is $aws->{timeout}, 30, "default timeout is 30 seconds";
}
t/03_awscli_version.t view on Meta::CPAN
use strict;
use Test::More;
use AWS::CLIWrapper;
my $cli_wrapper = AWS::CLIWrapper->new;
ok($cli_wrapper->awscli_version >= 0, $cli_wrapper->awscli_version);
if ($cli_wrapper->awscli_version > 0) {
ok($cli_wrapper->awscli_version > 0.001);
}
done_testing;
t/03_region.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use AWS::CLIWrapper;
my $cli = AWS::CLIWrapper->new(
region => 'us-west-1',
);
is $cli->region, 'us-west-1', "region ok";
done_testing;
t/04_errors.t view on Meta::CPAN
use strict;
use Test::More;
use AWS::CLIWrapper;
# Default error handling
my $aws = AWS::CLIWrapper->new;
if ($aws->awscli_version == 0) {
plan skip_all => 'not found aws command';
} else {
plan tests => 4;
}
t/05_catch_error_options.t view on Meta::CPAN
use 5.008001;
use strict;
use warnings;
no warnings 'uninitialized';
use Test::More;
use AWS::CLIWrapper;
my %default_args = (
awscli_path => 't/bin/mock-aws',
nofork => 1,
);
my $tests = eval join "\n", <DATA> or die "$@";
for my $test_name (keys %$tests) {
t/06_catch_errors.t view on Meta::CPAN
use 5.008001;
use strict;
use warnings;
no warnings 'uninitialized';
use Test::More;
use File::Temp 'tempfile';
use AWS::CLIWrapper;
my %default_wrapper_args = (
awscli_path => 't/bin/mock-aws',
nofork => 1,
);
my $tests = eval join "\n", <DATA> or die "$@";
xt/01_podspell.t view on Meta::CPAN
use Test::More;
eval q{ use Test::Spelling };
plan skip_all => "Test::Spelling is not installed." if $@;
add_stopwords(map { split /[\s\:\-]/ } <DATA>);
$ENV{LANG} = 'C';
all_pod_files_spelling_ok('lib');
__DATA__
HIROSE Masaaki
hirose31 _at_ gmail.com
AWS::CLIWrapper
arg
aws
cli
xt/02_perlcritic.t view on Meta::CPAN
use strict;
use Test::More;
eval {
require Test::Perl::Critic;
Test::Perl::Critic->import( -profile => 'xt/perlcriticrc');
};
plan skip_all => "Test::Perl::Critic is not installed." if $@;
all_critic_ok('lib');
xt/03_pod.t view on Meta::CPAN
use Test::More;
eval "use Test::Pod 1.00";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
all_pod_files_ok();
xt/05_dependencies.t view on Meta::CPAN
# -*- mode: cperl; -*-
use Test::Dependencies
exclude => [qw(Test::Dependencies Test::Base Test::Perl::Critic
AWS::CLIWrapper)],
style => 'light';
if ($ENV{RELEASE_TESTING}) {
ok_dependencies();
} else {
my $tb = Test::Dependencies->builder;
$tb->skip_all('Authors tests');
}
xt/10_ec2.t view on Meta::CPAN
# -*- mode: cperl -*-
use strict;
use Test::More;
use AWS::CLIWrapper;
my $aws = AWS::CLIWrapper->new;
my $res;
$res = $aws->ec2('describe-instances');
ok($res, 'describe-instances all');
my $test_instance_count = 3;
xt/11_struct-in-list.t view on Meta::CPAN
# -*- mode: cperl -*-
use strict;
use Test::More;
use AWS::CLIWrapper;
my $aws = AWS::CLIWrapper->new;
my $res;
$res = $aws->ec2('describe-instances', {
'filters' => [{ Name => 'tag:purpose', Values => ["AC-TEST-*"] }],
});
ok($res, 'structure in list');
xt/12_nested-boolean.t view on Meta::CPAN
# -*- mode: cperl -*-
use strict;
use Test::More;
use AWS::CLIWrapper;
my $AMI_ID = 'ami-0cc905e12087478be'; # Ubuntu 18.04
my $aws = AWS::CLIWrapper->new;
my $res;
my $err;
$res = $aws->ec2('run-instances', {
xt/19_error.t view on Meta::CPAN
# -*- mode: cperl -*-
use strict;
use Test::More;
use AWS::CLIWrapper;
my $aws = AWS::CLIWrapper->new;
my $res;
my $err;
### unknown operation
$res = $aws->ec2('unknown-operation');
$err = $AWS::CLIWrapper::Error;
xt/20_s3-sync.t view on Meta::CPAN
# -*- mode: cperl -*-
use strict;
use Test::More;
use File::Temp qw(tempdir);
use File::Glob qw(:glob); # for globbing pattern contains whitespace
use AWS::CLIWrapper;
my $aws = AWS::CLIWrapper->new;
my $cleanup = 0;
{
my $tmpdir = tempdir( CLEANUP => $cleanup );
xt/30_compat.t view on Meta::CPAN
# -*- mode: cperl -*-
use strict;
use Test::More;
use AWS::CLIWrapper;
my $aws = AWS::CLIWrapper->new;
my $res;
# >= 0.14.0 : Key, Values, Name
# < 0.14.0 : key, values, name
subtest 'Uppercase key, values, name' => sub {
$res = $aws->ec2('describe-instances', {
xt/90_dependencies.t view on Meta::CPAN
# -*- mode: cperl; -*-
use Test::More;
eval "use App::scan_prereqs_cpanfile";
plan skip_all => "App::scan_prereqs_cpanfile required for testing module dependencies"
if $@;
my $diff = `scan-prereqs-cpanfile --ignore junk --diff cpanfile`;
is($diff, "", "diff cpanfile");
done_testing;
xt/91_usedmodules.t view on Meta::CPAN
use Test::More;
use Test::UsedModules;
all_used_modules_ok();
done_testing;
xt/92_usedfunctions.t view on Meta::CPAN
use Test::LocalFunctions;
use Test::More;
all_local_functions_ok({ignore_functions => [qr(_execute|_run|_handle)]});
done_testing;
xt/perlcriticrc view on Meta::CPAN
[TestingAndDebugging::ProhibitNoStrict]
allow=refs
( run in 0.736 second using v1.01-cache-2.11-cpan-4d50c553e7e )