X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2F01-Redis.t;fp=t%2F01-Redis.t;h=3eab8bbb1f60810c4d1f5d6881f6f960b500ca76;hb=91d4fa77fb62628b75fa18cb456c13ecf09c5487;hp=756135ac5ccd55db59dd0c1321a33b1b910c56d7;hpb=9a4b1659b22490adb0cea1229f2080d9f196bf03;p=perl-Redis.git

diff --git a/t/01-Redis.t b/t/01-Redis.t
index 756135a..3eab8bb 100755
--- a/t/01-Redis.t
+++ b/t/01-Redis.t
@@ -86,8 +86,8 @@ ok( my $key = $o->randomkey, 'randomkey' );
 ok( $o->rename( 'test-incrby', 'test-renamed' ), 'rename' );
 ok( $o->exists( 'test-renamed' ), 'exists test-renamed' );
 
-eval { $o->rename( 'test-decrby', 'test-renamed', 1 ) };
-ok( $@, 'rename to existing key' );
+eval { $o->rename( 'test-decrby', 'test-decrby' ) };
+ok( $@, 'rename to same key' );
 
 ok( my $nr_keys = $o->dbsize, 'dbsize' );
 
@@ -173,7 +173,7 @@ ok( $o->lpush( 'test-sort', $_ ), "put $_" ) foreach ( 1 .. 4 );
 cmp_ok( $o->llen( 'test-sort' ), '==', 4, 'llen' );
 
 is_deeply( [ $o->sort( 'test-sort' )      ], [ 1,2,3,4 ], 'sort' );
-is_deeply( [ $o->sort( 'test-sort DESC' ) ], [ 4,3,2,1 ], 'sort DESC' );
+is_deeply( [ $o->sort( 'test-sort', 'DESC' )      ], [ 4,3,2,1 ], 'sort DESC' );
 
 
 diag "Persistence control commands";