3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
|
my $tests = 312; |
|
|
|
|
6 |
use Test::More; |
use Test::More; |
7 |
use Test::Exception; |
use Test::Exception; |
8 |
use Data::Dumper; |
use Data::Dumper; |
9 |
|
|
10 |
BEGIN { use_ok('Search::Estraier') }; |
BEGIN { |
11 |
|
plan tests => 313; |
12 |
plan tests => $tests; |
use_ok('Search::Estraier'); |
13 |
|
}; |
14 |
|
|
15 |
my $debug = shift @ARGV; |
my $debug = shift @ARGV; |
16 |
|
|
44 |
|
|
45 |
SKIP: { |
SKIP: { |
46 |
|
|
47 |
skip "can't find estmaster at $estmaster_uri", ($tests - 9) if (! eval { $node->master( action => 'nodelist' ) } ); |
skip "can't find estmaster at $estmaster_uri", ( 313 - 10 ) if (! eval { $node->master( action => 'nodelist' ) } ); |
48 |
|
|
49 |
diag "using $estmaster_uri"; |
diag "using $estmaster_uri"; |
50 |
diag("node->master shutdown not tested"); |
diag("node->master shutdown not tested"); |