#!perl

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

### DELETE INDEX ###
ok $es->delete_index( index => 'es_test_2' )->{ok}, 'Delete index';

throws_ok { $es->delete_index( index => 'es_test_2' ) }
qr/ElasticSearch::Error::Missing/,
    ' - index deleted';

ok !$es->delete_index( index => 'es_test_2', ignore_missing => 1 ),
    ' - ignore_missing';

throws_ok { $es->delete_index() } qr/Param 'index' is required/,
    ' - delete no index';
throws_ok { $es->delete_index( index => [] ) } qr/Param 'index' is required/,
    ' - delete no index []';
ok $es->delete_index( index => '_all' ), 'Delete all indices';
wait_for_es();

is scalar keys %{ $es->get_aliases }, 0, ' - all indices deleted';
1