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 |
|
|
32 |
|
|
33 |
# test master functionality |
# test master functionality |
34 |
|
|
35 |
ok($node->master( action => 'sync' ), 'sync'); |
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", 108, 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 |
|
|