1use Test::More; 2use Test::Exception; 3use Search::Elasticsearch; 4use lib 't/lib'; 5use MockCxn qw(mock_sniff_client); 6 7## Both nodes respond - check ping before first use 8 9my $t = mock_sniff_client( 10 { nodes => [ 'one', 'two' ] }, 11 12 { sniff => [ 'one', 'two' ] }, 13 { node => 2, code => 200, content => 1 }, 14 { node => 3, code => 200, content => 1 }, 15 { node => 2, code => 200, content => 1 }, 16 { node => 3, code => 200, content => 1 }, 17); 18 19ok $t->perform_request() 20 && $t->perform_request 21 && $t->perform_request 22 && $t->perform_request, 23 'Sniff before first use'; 24 25done_testing; 26