/usr/share/perl5/Test/Attean/TimeCacheableQuadStore.pm is in libattean-perl 0.017-1.
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 | package Test::Attean::TimeCacheableQuadStore;
use v5.14;
use warnings;
use Test::Roo::Role;
use Test::Moose;
use Attean;
use Attean::RDF;
requires 'create_store'; # create_store( quads => \@quads )
sub acceptable_mtime_delta {
return 60 * 60 * 24;
}
test 'timecacheablequadstore' => sub {
my $self = shift;
my $time = time();
my $store = $self->create_store(quads => []);
my $mtime = $store->mtime_for_quads();
my $diff = abs($mtime - $time);
my $delta = $self->acceptable_mtime_delta;
cmp_ok($diff, '<', $delta, "mtime within delta ($diff seconds from expected)");
};
1;
|