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
|
use Test::More tests => 6;
use Test::Exception;
use utf8;
use strict;
use warnings;
no warnings 'redefine';
use RDF::Trine qw(iri);
use RDF::Trine::Model;
### Test a temporary model's ability to switch from a fast in-memory store
### (::Store::Hexastore) initially to a more scalable store (::Store::DBI)
### as more triples are loaded.
my $model = RDF::Trine::Model->temporary_model;
isa_ok( $model, 'RDF::Trine::Model' );
isa_ok( $model->_store, 'RDF::Trine::Store', 'initial store type' );
my $initial = ref($model->_store);
is( $model->size, 0, 'expected model size' );
$model->{threshold} = 10;
foreach my $i (0 .. $model->{threshold}) {
my $n = iri("http://example.org/$i");
my $st = RDF::Trine::Statement->new( $n, $n, $n );
$model->add_statement( $st );
}
is( $model->size, 11, 'expected model size' );
isa_ok( $model->_store, 'RDF::Trine::Store', 'final store type' );
my $final = ref($model->_store);
cmp_ok( $initial, 'ne', $final, 'expected change in store stype beyond threshold' );
|
