view release on metacpan or  search on metacpan

t/10_fast_mmap_nested_run_methods.t  view on Meta::CPAN

use strict;

use lib 't/lib';
use test_10_nested_run_methods;

use Test::More;

use CHI;
use CHI::Cascade;

plan skip_all => "Not installed CHI::Driver::FastMmap ($@)"
  unless eval "use CHI::Driver::FastMmap; 1";

plan tests => 19;

$SIG{__DIE__} = sub {
    `{ rm -rf t/fast_mmap; } >/dev/null 2>&1`;
    $SIG{__DIE__} = 'IGNORE';
};

$SIG{TERM} = $SIG{INT} = $SIG{HUP} = sub { die "Terminated by signal " . shift };

`{ rm -rf t/fast_mmap; } >/dev/null 2>&1`;

my $cascade = CHI::Cascade->new(
    chi => CHI->new(
        driver          => 'FastMmap',
        root_dir        => 't/fast_mmap'
    )
);

test_cascade($cascade);

$SIG{__DIE__} eq 'IGNORE' || $SIG{__DIE__}->();