File Coverage

blib/lib/CHI/t/Bugs.pm
Criterion Covered Total %
statement 25 25 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 32 33 96.9


line stmt bran cond sub pod time code
1             package CHI::t::Bugs;
2             $CHI::t::Bugs::VERSION = '0.61';
3 1     1   415 use strict;
  1         7  
  1         30  
4 1     1   5 use warnings;
  1         2  
  1         45  
5 1     1   411 use CHI::Test;
  1         2  
  1         11  
6 1     1   976 use File::Temp qw(tempdir);
  1         22033  
  1         82  
7 1     1   12 use base qw(CHI::Test::Class);
  1         4  
  1         688  
8              
9             # A place for testing obscure bug fixes. When possible, test will be named for RT ticket.
10              
11             sub test_48998 : Tests {
12 1     1 0 1585 my $cache = CHI->new( driver => 'Memory', global => 1 );
13 1         10 $cache->set( 'a', 5 );
14 1         5 $cache->set( 'b', 6 );
15 1         2 eval { die "bleah" };
  1         10  
16 1         15 $DB::single = 1;
17 1         14 cmp_deeply( $cache->get_multi_arrayref( [ 'a', 'b' ] ),
18             [ 5, 6 ], "get_multi" );
19 1     1   15 }
  1         2  
  1         10  
20              
21             1;