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.60';
3 1     1   315 use strict;
  1         1  
  1         29  
4 1     1   4 use warnings;
  1         1  
  1         20  
5 1     1   281 use CHI::Test;
  1         3  
  1         6  
6 1     1   5 use base qw(CHI::Test::Class);
  1         2  
  1         348  
7              
8             sub test_basic : Tests {
9 1     1 0 630 my ( $key, $value ) = ( 'medium', 'medium' );
10 1         8 my $cache = CHI->new( driver => 'Null' );
11 1         12 $cache->set( $key, $value );
12 1         12 ok( !defined( $cache->get($key) ), "miss after set" );
13 1         413 cmp_deeply( [ $cache->get_keys ], [], "no keys after set" );
14 1         8166 cmp_deeply( [ $cache->get_namespaces ], [], "no namespaces after set" );
15 1     1   9 }
  1         1  
  1         5  
16              
17             1;