File Coverage

blib/lib/CHI/t/GetError.pm
Criterion Covered Total %
statement 47 47 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod 0 2 0.0
total 58 60 96.6


line stmt bran cond sub pod time code
1             package CHI::t::GetError;
2             $CHI::t::GetError::VERSION = '0.60';
3 1     1   333 use strict;
  1         1  
  1         30  
4 1     1   3 use warnings;
  1         1  
  1         19  
5 1     1   278 use CHI::Test;
  1         3  
  1         7  
6 1     1   8 use CHI::Test::Util qw(activate_test_logger);
  1         1  
  1         76  
7 1     1   6 use base qw(CHI::Test::Class);
  1         2  
  1         397  
8              
9             sub writeonly_cache {
10 5     5 0 7 my ($on_get_error) = @_;
11              
12 5         23 return CHI->new(
13              
14             # leave as driver_class rather than driver to test back compat
15             driver_class => 'CHI::Test::Driver::Writeonly',
16             on_get_error => $on_get_error,
17             global => 1,
18             );
19             }
20              
21             sub test_get_errors : Tests {
22 1     1 0 638 my ( $key, $value ) = ( 'medium', 'medium' );
23              
24 1         3 my $error_pattern =
25             qr/error during cache get for namespace='.*', key='medium'.*: write-only cache/;
26 1         6 my $log = activate_test_logger();
27              
28 1         1 my $cache;
29              
30 1         3 $cache = writeonly_cache('ignore');
31 1         10 $cache->set( $key, $value );
32 1         11 ok( !defined( $cache->get($key) ), "ignore - miss" );
33              
34 1         629 $cache = writeonly_cache('die');
35 1         25 $cache->set( $key, $value );
36 1     1   9 throws_ok( sub { $cache->get($key) }, $error_pattern, "die - dies" );
  1         33  
37              
38 1         904 $log->clear();
39 1         7 $cache = writeonly_cache('log');
40 1         20 $cache->set( $key, $value );
41 1         8 ok( !defined( $cache->get($key) ), "log - miss" );
42 1         418 $log->contains_ok(qr/cache set for .* key='medium'/);
43 1         352 $log->contains_ok($error_pattern);
44 1         356 $log->empty_ok();
45              
46 1         327 my ( $err_msg, $err_key );
47             $cache = writeonly_cache(
48             sub {
49 1     1   2 ( $err_msg, $err_key ) = @_;
50             }
51 1         7 );
52 1         6 $cache->set( $key, $value );
53 1         3 ok( !defined( $cache->get($key) ), "custom - miss" );
54 1         347 like( $err_msg, $error_pattern, "custom - got msg" );
55 1         326 is( $err_key, $key, "custom - got key" );
56              
57             throws_ok(
58 1     1   24 sub { writeonly_cache('bad') },
59 1         336 qr/Validation failed for|isa check for .* failed/,
60             "bad - dies"
61             );
62 1     1   15 }
  1         2  
  1         8  
63              
64             1;