File Coverage

blib/lib/CHI/t/Driver/Subcache.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	1	2	50.0
condition			n/a
subroutine	11	11	100.0
pod	0	4	0.0
total	40	45	88.8

package CHI::t::Driver::Subcache;
$CHI::t::Driver::Subcache::VERSION = '0.61';
use strict;
use warnings;
use CHI::Test;
use base qw(CHI::t::Driver);

sub set_standard_keys_and_values {
    my ($self) = @_;

    my ( $keys, $values ) = $self->SUPER::set_standard_keys_and_values();

    # keys for file driver have max length of 255 or so
    # but on windows xp, the full pathname is limited to 255 chars as well
    $keys->{'large'} = scalar( 'ab' x ( $^O eq 'MSWin32' ? 64 : 120 ) );

    return ( $keys, $values );
}

# Skip these tests - the logging will be wrong
#
sub test_l1_cache : Tests {
    ok(1);
}

sub test_mirror_cache : Tests {
    ok(1);
}

sub test_logging : Tests {
    ok(1);
}

1;