4 |
use strict; |
use strict; |
5 |
|
|
6 |
use Test::More tests => 106; |
use Test::More tests => 106; |
7 |
|
use Data::Dump qw/dump/; |
8 |
|
|
9 |
use lib 'lib'; |
use lib 'lib'; |
10 |
|
|
177 |
ok( $o->save, 'save' ); |
ok( $o->save, 'save' ); |
178 |
ok( $o->bgsave, 'bgsave' ); |
ok( $o->bgsave, 'bgsave' ); |
179 |
ok( $o->lastsave, 'lastsave' ); |
ok( $o->lastsave, 'lastsave' ); |
180 |
ok( $o->shutdown, 'shutdown' ); |
#ok( $o->shutdown, 'shutdown' ); |
181 |
|
diag "shutdown not tested"; |
182 |
|
|
183 |
|
diag "Remote server control commands"; |
184 |
|
|
185 |
|
ok( my $info = $o->info, 'info' ); |
186 |
|
diag dump( $info ); |
187 |
|
|
188 |
diag "Connection handling"; |
diag "Connection handling"; |
189 |
|
|