File Coverage

blib/lib/Test/Attean/TimeCacheableQuadStore.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 25 26 96.1


line stmt bran cond sub pod time code
1              
2             use v5.14;
3 1     1   428 use warnings;
  1         3  
4 1     1   5 use Test::Roo::Role;
  1         1  
  1         22  
5 1     1   5 use Test::Moose;
  1         2  
  1         5  
6 1     1   860 use Attean;
  1         2  
  1         5  
7 1     1   471 use Attean::RDF;
  1         1  
  1         5  
8 1     1   4  
  1         2  
  1         5  
9             requires 'create_store'; # create_store( quads => \@quads )
10             return 60 * 60 * 24;
11             }
12 1     1 0 2  
13             test 'timecacheablequadstore' => sub {
14             my $self = shift;
15             my $time = time();
16             my $store = $self->create_store(quads => []);
17             my $mtime = $store->mtime_for_quads();
18             my $diff = abs($mtime - $time);
19             my $delta = $self->acceptable_mtime_delta;
20             cmp_ok($diff, '<', $delta, "mtime within delta ($diff seconds from expected)");
21             };
22              
23             1;