6 use Test::More tests => 93;
14 ok( my $o = Redis->new(), 'new' );
16 ok( $o->ping, 'ping' );
18 ok( $o->set( foo => 'bar' ), 'set foo' );
19 cmp_ok( $o->get( 'foo' ), 'eq', 'bar', 'get foo' );
21 ok( ! $o->get( 'non-existant' ), 'get non-existant' );
24 ok( $o->set( "key-$_" => $_ ), "set key-$_" );
25 cmp_ok( $o->get( "key-$_" ), 'eq', $_, "get key-$_" );
28 ok( $o->quit, 'quit' );