File Coverage

blib/lib/CHI/t/Bugs.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::Bugs;
2             $CHI::t::Bugs::VERSION = '0.59';
3 1     1   372 use strict;
  1         1  
  1         31  
4 1     1   3 use warnings;
  1         1  
  1         19  
5 1     1   299 use CHI::Test;
  0            
  0            
6             use File::Temp qw(tempdir);
7             use base qw(CHI::Test::Class);
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             my $cache = CHI->new( driver => 'Memory', global => 1 );
13             $cache->set( 'a', 5 );
14             $cache->set( 'b', 6 );
15             eval { die "bleah" };
16             $DB::single = 1;
17             cmp_deeply( $cache->get_multi_arrayref( [ 'a', 'b' ] ),
18             [ 5, 6 ], "get_multi" );
19             }
20              
21             1;