Parent Directory | Revision Log | Patch
revision 16 by dpavlin, Sat Mar 21 23:39:53 2009 UTC | revision 17 by dpavlin, Sun Mar 22 09:22:39 2009 UTC | |
---|---|---|
# | Line 3 | Line 3 |
3 | use warnings; | use warnings; |
4 | use strict; | use strict; |
5 | ||
6 | use Test::More tests => 52; | use Test::More tests => 53; |
7 | ||
8 | use lib 'lib'; | use lib 'lib'; |
9 | ||
# | Line 75 ok( $o->exists( 'test-renamed' ), 'exist | Line 75 ok( $o->exists( 'test-renamed' ), 'exist |
75 | eval { $o->rename( 'test-decrby', 'test-renamed', 1 ) }; | eval { $o->rename( 'test-decrby', 'test-renamed', 1 ) }; |
76 | ok( $@, 'rename to existing key' ); | ok( $@, 'rename to existing key' ); |
77 | ||
78 | ok( my $nr_keys = $o->dbsize, 'dbsize' ); | |
79 | diag "dbsize: $nr_keys"; | |
80 | ||
81 | ok( $o->quit, 'quit' ); | ok( $o->quit, 'quit' ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |