--- t/01-Redis.t 2009/03/21 23:23:37 12 +++ t/01-Redis.t 2009/03/21 23:26:46 13 @@ -3,7 +3,7 @@ use warnings; use strict; -use Test::More tests => 48; +use Test::More tests => 49; use lib 'lib'; @@ -66,4 +66,7 @@ cmp_ok( $o->keys('key-*'), '==', $key_next + 1, 'key-*' ); is_deeply( [ $o->keys('key-*') ], [ @keys ], 'keys' ); +ok( my $key = $o->randomkey, 'randomkey' ); +diag "key: $key"; + ok( $o->quit, 'quit' );