#!perl

use Test::More;
use strict;
use warnings;
our $es;
my $r;

### INDEX SEGMENTS ###

ok $r= $es->index_segments()->{indices}, 'Index segments - all';
ok $r->{es_test_1}, ' - index 1';
ok $r->{es_test_2}, ' - index 2';

ok $r= $es->index_segments( index => 'es_test_1' )->{indices},
    'Index segments - index 1';
ok $r->{es_test_1}, ' - index 1';
ok !$r->{es_test_2}, ' - index 2';

ok $r
    = $es->index_segments( index => [ 'es_test_1', 'es_test_2' ] )->{indices},
    'Index segments - index 1 & 2';
ok $r->{es_test_1}, ' - index 1';
ok $r->{es_test_2}, ' - index 2';

throws_ok { $es->index_segments( index => 'foo' ) }
qr/ElasticSearch::Error::Missing/, ' - index missing';

1;