--- t/01-Redis.t 2009/03/21 21:25:52 2 +++ t/01-Redis.t 2009/03/21 21:40:53 3 @@ -3,7 +3,7 @@ use warnings; use strict; -use Test::More tests => 4; +use Test::More tests => 6; use lib 'lib'; @@ -15,4 +15,7 @@ ok( $o->ping, 'ping' ); +ok( $o->set( foo => 'bar' ), 'set foo' ); +cmp_ok( $o->get( 'foo' ), 'eq', 'bar', 'get foo' ); + ok( $o->quit, 'quit' );