From 1c86d14ac182dfeea2d8ca2fb937401a558b0a35 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Tue, 24 Mar 2009 23:43:16 +0000 Subject: [PATCH 1/1] cleanup git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/Redis@54 447b33ff-793d-4489-8442-9bea7d161be5 --- t/01-Redis.t | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/t/01-Redis.t b/t/01-Redis.t index 2724411..90247e9 100755 --- a/t/01-Redis.t +++ b/t/01-Redis.t @@ -49,14 +49,14 @@ is_deeply( [ $o->mget( 'foo', 'key-next', 'key-left' ) ], [ 'baz', 0, 3 ], 'mget my @keys; -foreach ( 0 .. $key_next ) { - my $key = 'key-' . $_; +foreach my $id ( 0 .. $key_next ) { + my $key = 'key-' . $id; push @keys, $key; - ok( $o->set( $key => $_ ), "set $key" ); + ok( $o->set( $key => $id ), "set $key" ); ok( $o->exists( $key ), "exists $key" ); - cmp_ok( $o->get( $key ), 'eq', $_, "get $key" ); - cmp_ok( $o->incr( 'key-next' ), '==', $_ + 1, 'incr' ); - cmp_ok( $o->decr( 'key-left' ), '==', $key_next - $_ - 1, 'decr' ); + cmp_ok( $o->get( $key ), 'eq', $id, "get $key" ); + cmp_ok( $o->incr( 'key-next' ), '==', $id + 1, 'incr' ); + cmp_ok( $o->decr( 'key-left' ), '==', $key_next - $id - 1, 'decr' ); } cmp_ok( $o->get( 'key-next' ), '==', $key_next + 1, 'key-next' ); -- 2.20.1