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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
use Test::More tests => 16;
use Test::Exception;
use FindBin qw($Bin);
use File::Spec;
use Data::Dumper;
use utf8;
binmode( \*STDOUT, ':utf8' );
binmode( \*STDERR, ':utf8' );
use RDF::Trine qw(iri blank literal);
use RDF::Trine::Parser;
################################################################################
# Log::Log4perl::init( \q[
# log4perl.category.rdf.trine.model = TRACE, Screen
#
# log4perl.appender.Screen = Log::Log4perl::Appender::Screen
# log4perl.appender.Screen.stderr = 0
# log4perl.appender.Screen.layout = Log::Log4perl::Layout::SimpleLayout
# ] );
################################################################################
my $parser = RDF::Trine::Parser->new( 'nquads' );
isa_ok( $parser, 'RDF::Trine::Parser::NQuads' );
{
my $model = RDF::Trine::Model->temporary_model;
my $nquads = <<"END";
_:a <b> <a> .
_:a <b> <a> <g1> .
<a> <b> _:a <g2> .
END
$parser->parse_into_model(undef, $nquads, $model);
is( $model->size, 3, 'expected model size after nquads parse' );
is( $model->count_statements(undef, undef, undef, undef), 3, 'expected 3 count ffff' );
is( $model->count_statements(blank('a'), undef, undef, undef), 2, 'expected 2 count bfff' );
is( $model->count_statements(iri('a')), 1, 'expected 1 count bff' );
is( $model->count_statements(iri('a'), undef, undef, undef), 1, 'expected 1 count bfff' );
is( $model->count_statements(iri('b')), 0, 'expected 0 count bff' );
is( $model->count_statements(iri('b'), undef, undef, undef), 0, 'expected 0 count bfff' );
is( $model->count_statements(undef, iri('b')), 2, 'expected 2 count fbf' );
is( $model->count_statements(undef, iri('b'), undef, undef), 3, 'expected 3 count fbff' );
is( $model->count_statements(undef, undef, undef, iri('g1')), 1, 'expected 1 count fffb' );
}
{
# Canonicalization tests
my $parser = RDF::Trine::Parser->new( 'nquads', canonicalize => 1 );
{
my $model = RDF::Trine::Model->temporary_model;
my $ntriples = qq[_:a <http://example.com/integer> "-0123"^^<http://www.w3.org/2001/XMLSchema#integer> <g> .\n];
$parser->parse_into_model(undef, $ntriples, $model);
is( $model->count_statements(undef, undef, literal('-123', undef, 'http://www.w3.org/2001/XMLSchema#integer')), 1, 'expected 1 count for canonical integer value' );
}
{
my $model = RDF::Trine::Model->temporary_model;
my $ntriples = qq[_:a <http://example.com/integer> "+0000123"^^<http://www.w3.org/2001/XMLSchema#integer> <g> .\n];
$parser->parse_into_model(undef, $ntriples, $model);
is( $model->count_statements(undef, undef, literal('123', undef, 'http://www.w3.org/2001/XMLSchema#integer')), 1, 'expected 1 count for canonical integer value' );
}
{
my $model = RDF::Trine::Model->temporary_model;
my $ntriples = qq[_:a <http://example.com/decimal> "+100000.00"^^<http://www.w3.org/2001/XMLSchema#decimal> <g> .\n];
$parser->parse_into_model(undef, $ntriples, $model);
is( $model->count_statements(undef, undef, literal('100000.0', undef, 'http://www.w3.org/2001/XMLSchema#decimal')), 1, 'expected 1 count for canonical decimal value' );
}
{
my $model = RDF::Trine::Model->temporary_model;
my $ntriples = qq[_:a <http://example.com/decimal> "0"^^<http://www.w3.org/2001/XMLSchema#boolean> <g> .\n];
$parser->parse_into_model(undef, $ntriples, $model);
is( $model->count_statements(undef, undef, literal('false', undef, 'http://www.w3.org/2001/XMLSchema#boolean')), 1, 'expected 1 count for canonical boolean value' );
}
{
my $model = RDF::Trine::Model->temporary_model;
my $ntriples = qq[_:a <http://example.com/decimal> "1"^^<http://www.w3.org/2001/XMLSchema#boolean> <g> .\n];
$parser->parse_into_model(undef, $ntriples, $model);
is( $model->count_statements(undef, undef, literal('true', undef, 'http://www.w3.org/2001/XMLSchema#boolean')), 1, 'expected 1 count for canonical boolean value' );
}
}
|
