/usr/share/perl5/Test/Attean/MutableETagCacheableQuadStore.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::MutableETagCacheableQuadStore;
use v5.14;
use warnings;
use Test::Roo::Role;
use Test::Moose;
use Attean;
use Attean::RDF;
requires 'create_store'; # create_store( quads => \@quads )
with 'Test::Attean::ETagCacheableQuadStore';
test 'mutable etagcacheablequadstore' => sub {
my $self = shift;
my $q1 = quad(iri('s'), iri('p'), iri('o'), iri('g'));
my $q2 = quad(iri('x'), iri('y'), iri('z'), iri('g'));
my $store = $self->create_store(quads => [$q1, $q2]);
my $start = $store->etag_value_for_quads();
$store->remove_quad($q1);
my $end = $store->etag_value_for_quads();
isnt($start, $end, "etag changed after update ($start => $end)");
$self->cleanup_store($store);
};
1;
|