projects
/
perl-Redis.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
96778b6
)
use stable key names to have predictible results
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 21 Mar 2009 23:39:53 +0000
(23:39 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 21 Mar 2009 23:39:53 +0000
(23:39 +0000)
git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/Redis@16
447b33ff
-793d-4489-8442-
9bea7d161be5
t/01-Redis.t
patch
|
blob
|
history
diff --git
a/t/01-Redis.t
b/t/01-Redis.t
index
cd92633
..
ff2ee30
100755
(executable)
--- a/
t/01-Redis.t
+++ b/
t/01-Redis.t
@@
-69,10
+69,10
@@
is_deeply( [ $o->keys('key-*') ], [ @keys ], 'keys' );
ok( my $key = $o->randomkey, 'randomkey' );
diag "key: $key";
-ok( $o->rename(
$key
, 'test-renamed' ), 'rename' );
+ok( $o->rename(
'test-incrby'
, 'test-renamed' ), 'rename' );
ok( $o->exists( 'test-renamed' ), 'exists test-renamed' );
-eval { $o->rename(
$o->randomkey
, 'test-renamed', 1 ) };
+eval { $o->rename(
'test-decrby'
, 'test-renamed', 1 ) };
ok( $@, 'rename to existing key' );
ok( $o->quit, 'quit' );