# -*- 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;
my @instance_ids;
INSTANCE: for my $rs ( @{ $res->{reservationSet} }) {
for my $is (@{ $rs->{instancesSet} }) {
push @instance_ids, $is->{instanceId};
last INSTANCE if scalar(@instance_ids) >= $test_instance_count;
}
}
$res = $aws->ec2('describe-instances', { instance_ids => \@instance_ids });
my $got_instance_count = 0;
for my $rs ( @{ $res->{reservationSet} }) {
for my $is (@{ $rs->{instancesSet} }) {
$got_instance_count++ if $is->{instanceId};
}
}
is($got_instance_count, $test_instance_count, 'describe-instances by instance_ids');
done_testing;