--- t/01-Redis.t 2009/03/22 13:20:34 25 +++ t/01-Redis.t 2009/03/22 13:37:49 26 @@ -3,7 +3,7 @@ use warnings; use strict; -use Test::More tests => 67; +use Test::More tests => 69; use lib 'lib'; @@ -102,4 +102,7 @@ ok( $o->lset( $list, 0, 'foo' ), 'lset' ); cmp_ok( $o->lindex( $list, 0 ), 'eq', 'foo', 'verified' ); +ok( $o->lrem( $list, 1, 'foo' ), 'lrem' ); +cmp_ok( $o->llen( $list ), '==', 1, 'llen after lrem' ); + ok( $o->quit, 'quit' );