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.60';
3 1     1   438 use strict;
  1         1  
  1         31  
4 1     1   4 use warnings;
  1         1  
  1         20  
5 1     1   329 use CHI::Test;
  1         3  
  1         7  
6 1     1   1125 use File::Temp qw(tempdir);
  1         28005  
  1         95  
7 1     1   11 use base qw(CHI::Test::Class);
  1         2  
  1         583  
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 591 my $cache = CHI->new( driver => 'Memory', global => 1 );
13 1         9 $cache->set( 'a', 5 );
14 1         7 $cache->set( 'b', 6 );
15 1         1 eval { die "bleah" };
  1         7  
16 1         2 $DB::single = 1;
17 1         13 cmp_deeply( $cache->get_multi_arrayref( [ 'a', 'b' ] ),
18             [ 5, 6 ], "get_multi" );
19 1     1   12 }
  1         3  
  1         7  
20              
21             1;