3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 118; |
use Test::More tests => 120; |
7 |
use Test::Exception; |
use Test::Exception; |
8 |
use Data::Dumper; |
use Data::Dumper; |
9 |
|
|
10 |
BEGIN { use_ok('Search::Estraier') }; |
BEGIN { use_ok('Search::Estraier') }; |
11 |
|
|
12 |
my $debug = 0; |
my $debug = 1; |
13 |
|
|
14 |
# name of node for test |
# name of node for test |
15 |
my $test1_node = 'test1'; |
my $test1_node = 'test1'; |
30 |
|
|
31 |
cmp_ok($node->status, '==', -1, 'status'); |
cmp_ok($node->status, '==', -1, 'status'); |
32 |
|
|
33 |
|
# test master functionality |
34 |
|
|
35 |
|
diag "not testing shutdown\n"; |
36 |
|
|
37 |
|
ok(my $foo = $node->master( action => 'sync' ), 'sync'); |
38 |
|
|
39 |
|
diag "not testing backup\n"; |
40 |
|
|
41 |
|
ok(my @users = $node->master( action => 'userlist' ), 'userlist'); |
42 |
|
|
43 |
|
diag "users: ", Dumper( \@users ); |
44 |
|
|
45 |
SKIP: { |
SKIP: { |
46 |
|
|
47 |
skip "no $test1_node node in Hyper Estraier", 105, unless($node->name); |
skip "no $test1_node node in Hyper Estraier", 110, unless($node->name); |
48 |
|
|
49 |
my @res = ( -1, 200 ); |
my @res = ( -1, 200 ); |
50 |
|
|