File Coverage

blib/lib/CHI/t/Null.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             package CHI::t::Null;
2             $CHI::t::Null::VERSION = '0.59';
3 1     1   319 use strict;
  1         1  
  1         29  
4 1     1   3 use warnings;
  1         2  
  1         19  
5 1     1   324 use CHI::Test;
  0            
  0            
6             use base qw(CHI::Test::Class);
7              
8             sub test_basic : Tests {
9             my ( $key, $value ) = ( 'medium', 'medium' );
10             my $cache = CHI->new( driver => 'Null' );
11             $cache->set( $key, $value );
12             ok( !defined( $cache->get($key) ), "miss after set" );
13             cmp_deeply( [ $cache->get_keys ], [], "no keys after set" );
14             cmp_deeply( [ $cache->get_namespaces ], [], "no namespaces after set" );
15             }
16              
17             1;