File Coverage

blib/lib/CHI/t/Driver/File/DepthZero.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	0	3	0.0
total	38	41	92.6

package CHI::t::Driver::File::DepthZero;
$CHI::t::Driver::File::DepthZero::VERSION = '0.60';
use strict;
use warnings;
use CHI::Test;
use File::Temp qw(tempdir);
use File::Basename qw(dirname);
use base qw(CHI::t::Driver::File);

# Test file driver with zero depth

sub testing_driver_class { 'CHI::Driver::File' }

sub new_cache_options {
    my $self = shift;

    return ( $self->SUPER::new_cache_options(), depth => 0 );
}

sub test_default_depth : Tests {
    my $self = shift;

    my $cache = $self->new_cache();
    is( $cache->depth, 0 );
    is( dirname( $cache->path_to_key('foo') ),
        $cache->path_to_namespace, "data files are one level below namespace" );
}

1;