--- t/01-Redis.t 2009/03/22 13:44:19 27 +++ t/01-Redis.t 2009/03/22 15:02:42 28 @@ -3,7 +3,7 @@ use warnings; use strict; -use Test::More tests => 71; +use Test::More tests => 75; use lib 'lib'; @@ -26,6 +26,12 @@ cmp_ok( $o->get( 'foo' ), 'eq', 'baz', 'get foo = baz' ); +ok( $o->set( 'test-undef' => 42 ), 'set test-undef' ); +ok( $o->set( 'test-undef' => undef ), 'set undef' ); +ok( ! defined $o->get( 'test-undef' ), 'get undef' ); +diag $o->exists( 'test-undef' ); +ok( $o->exists( 'test-undef' ), 'exists undef' ); + $o->del('non-existant'); ok( ! $o->exists( 'non-existant' ), 'exists non-existant' );