File Coverage

blib/lib/CHI/t/Null.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 27 28 96.4


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