3 |
use warnings; |
use warnings; |
4 |
use strict; |
use strict; |
5 |
|
|
6 |
use Test::More tests => 103; |
use Test::More tests => 106; |
7 |
|
|
8 |
use lib 'lib'; |
use lib 'lib'; |
9 |
|
|
32 |
ok( $o->set( 'test-undef' => 42 ), 'set test-undef' ); |
ok( $o->set( 'test-undef' => 42 ), 'set test-undef' ); |
33 |
ok( $o->set( 'test-undef' => undef ), 'set undef' ); |
ok( $o->set( 'test-undef' => undef ), 'set undef' ); |
34 |
ok( ! defined $o->get( 'test-undef' ), 'get undef' ); |
ok( ! defined $o->get( 'test-undef' ), 'get undef' ); |
|
diag $o->exists( 'test-undef' ); |
|
35 |
ok( $o->exists( 'test-undef' ), 'exists undef' ); |
ok( $o->exists( 'test-undef' ), 'exists undef' ); |
36 |
|
|
37 |
$o->del('non-existant'); |
$o->del('non-existant'); |
174 |
diag "Persistence control commands"; |
diag "Persistence control commands"; |
175 |
|
|
176 |
ok( $o->save, 'save' ); |
ok( $o->save, 'save' ); |
177 |
|
ok( $o->bgsave, 'bgsave' ); |
178 |
|
ok( $o->lastsave, 'lastsave' ); |
179 |
|
ok( $o->shutdown, 'shutdown' ); |
180 |
|
|
181 |
diag "Connection handling"; |
diag "Connection handling"; |
182 |
|
|