/usr/share/perl5/CHI/t/Driver/Subcache.pm is in libchi-perl 0.60-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | package CHI::t::Driver::Subcache;
$CHI::t::Driver::Subcache::VERSION = '0.60';
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;
|