--- t/01-Redis.t 2009/03/21 22:54:10 9 +++ t/01-Redis.t 2009/03/21 23:09:48 11 @@ -3,7 +3,7 @@ use warnings; use strict; -use Test::More tests => 42; +use Test::More tests => 44; use lib 'lib'; @@ -26,6 +26,8 @@ cmp_ok( $o->get( 'foo' ), 'eq', 'baz', 'get foo = baz' ); +$o->del('non-existant'); + ok( ! $o->exists( 'non-existant' ), 'exists non-existant' ); ok( ! $o->get( 'non-existant' ), 'get non-existant' ); @@ -52,4 +54,8 @@ cmp_ok( $o->decr('test-decrby', 7), '==', -( $_ * 7 ), 'decrby 7' ); } +ok( $o->del('key-next' ), 'del' ); + +cmp_ok( $o->type('foo'), 'eq', 'string', 'type' ); + ok( $o->quit, 'quit' );