--- t/10-Redis-List.t 2009/03/22 16:16:11 29 +++ t/10-Redis-List.t 2009/03/22 18:18:26 39 @@ -3,7 +3,7 @@ use warnings; use strict; -use Test::More tests => 9; +use Test::More tests => 8; use lib 'lib'; use Data::Dump qw/dump/; @@ -17,7 +17,7 @@ isa_ok( $o, 'Redis::List' ); -ok( $o->CLEAR, 'CLEAR' ); +$o->CLEAR; ok( ! @a, 'empty list' );