--- t/01-Redis.t 2009/03/22 09:22:39 17 +++ t/01-Redis.t 2009/03/22 09:44:30 18 @@ -3,7 +3,7 @@ use warnings; use strict; -use Test::More tests => 53; +use Test::More tests => 54; use lib 'lib'; @@ -78,4 +78,11 @@ ok( my $nr_keys = $o->dbsize, 'dbsize' ); diag "dbsize: $nr_keys"; +diag "Commands operating on lists"; + +ok( $o->rpush( 'test-list' => 'foo' ), 'rpush' ); + + + + ok( $o->quit, 'quit' );