69 |
ok( my $key = $o->randomkey, 'randomkey' ); |
ok( my $key = $o->randomkey, 'randomkey' ); |
70 |
diag "key: $key"; |
diag "key: $key"; |
71 |
|
|
72 |
ok( $o->rename( $key, 'test-renamed' ), 'rename' ); |
ok( $o->rename( 'test-incrby', 'test-renamed' ), 'rename' ); |
73 |
ok( $o->exists( 'test-renamed' ), 'exists test-renamed' ); |
ok( $o->exists( 'test-renamed' ), 'exists test-renamed' ); |
74 |
|
|
75 |
eval { $o->rename( $o->randomkey, '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( $o->quit, 'quit' ); |
ok( $o->quit, 'quit' ); |