view release on metacpan or  search on metacpan

t/file_fifo.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use File::Temp qw(tempdir);
use Carp;

$SIG{__DIE__} = sub { confess @_; };

# This test suite requires total accuracy in ordering of removals over a short
# time period, so a higher resolution timer is required.
eval { require Time::HiRes }
	or plan skip_all => 'Time::HiRes is required for this test.';
Time::HiRes->export('Cache::File', 'time');
Time::HiRes->export('Cache::File::Entry', 'time');

plan tests => 22;

require_ok('Cache::File');

my $tempdir = tempdir(CLEANUP => 1);

t/file_lru.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use File::Temp qw(tempdir);
use Carp;

$SIG{__DIE__} = sub { confess @_; };

# This test suite requires total accuracy in ordering of removals over a short
# time period, so a higher resolution timer is required.
eval { require Time::HiRes }
	or plan skip_all => 'Time::HiRes is required for this test.';
Time::HiRes->export('Cache::File', 'time');
Time::HiRes->export('Cache::File::Entry', 'time');

plan tests => 22;

require_ok('Cache::File');

my $tempdir = tempdir(CLEANUP => 1);