/usr/share/perl5/Test/Attean/MutableTripleStore.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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | package Test::Attean::MutableTripleStore;
use v5.14;
use warnings;
use Test::Roo::Role;
use Test::Moose;
use Attean;
use Attean::RDF;
requires 'create_store'; # create_store( triples => \@triples )
with 'Test::Attean::StoreCleanup';
test 'mutabletriplestore add_triple' => sub {
my $self = shift;
my $t1 = triple(iri('s'), iri('p'), iri('o'));
my $t2 = triple(iri('x'), iri('y'), iri('z'));
my $t3 = triple(iri('x'), iri('y'), literal('123'));
my $store = $self->create_store(triples => []);
my $size = 0;
for my $t ($t1, $t2, $t3) {
$store->add_triple($t);
is($store->size, ++$size, "size $size");
}
$self->cleanup_store($store);
};
test 'mutabletriplestore remove_triple' => sub {
my $self = shift;
my $t1 = triple(iri('s'), iri('p'), iri('o'));
my $t2 = triple(iri('x'), iri('y'), iri('z'));
my $t3 = triple(iri('x'), iri('y'), literal('123'));
my $store = $self->create_store(triples => [$t3, $t2, $t1]);
my $size = 3;
for my $t ($t1, $t2, $t3) {
is($store->size, $size, "size $size");
$store->remove_triple($t);
$size--;
}
$store->remove_triple($t2);
is($store->size, 0, "size $size");
$self->cleanup_store($store);
};
1;
|