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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
use Test::Tester tests => 80;
use Test::RDF;
use RDF::Trine;
my $model = RDF::Trine::Model->temporary_model;
my $parser = RDF::Trine::Parser->new( 'turtle' );
$parser->parse_into_model( 'http://example.org', '</foo> <http://www.w3.org/2000/01/rdf-schema#label> "This is a Another test"@en ; </title> "A test" ; </number> 42 ; a </Bar> .', $model);
check_test(
sub {
has_literal('A test', undef, undef, $model, 'Simple literal');
},
{
ok => 1,
name => 'Simple literal',
}
);
check_test(
sub {
has_literal('A test', 'en', undef, $model, 'Not a simple literal');
},
{
ok => 0,
name => 'Not a simple literal',
diag => 'No matching literals found in model'
}
);
check_test(
sub {
has_literal('42', undef, 'http://www.w3.org/2001/XMLSchema#integer', $model, 'Just an integer');
},
{
ok => 1,
name => 'Just an integer',
}
);
check_test(
sub {
has_literal('42', undef, undef, $model, 'Not a simple literal');
},
{
ok => 0,
name => 'Not a simple literal',
diag => 'No matching literals found in model'
}
);
check_test(
sub {
has_literal('42', 'en', 'http://www.w3.org/2001/XMLSchema#integer', $model, 'Not a simple literal');
},
{
ok => 0,
name => 'Not a simple literal',
diag => "Invalid literal:\n\n\tLiteral values cannot have both language and datatype"
}
);
check_test(
sub {
has_literal('42', 'en', undef, $model, 'Not a simple literal');
},
{
ok => 0,
name => 'Not a simple literal',
diag => 'No matching literals found in model'
}
);
check_test(
sub {
has_literal('This is a Another test', 'en', undef, $model, 'Language literal');
},
{
ok => 1,
name => 'Language literal',
}
);
check_test(
sub {
has_literal('This is a Another test', 'en', undef, $model, 'Language literal');
},
{
ok => 1,
name => 'Language literal',
}
);
check_test(
sub {
has_literal('This is a Another test', 'no', undef, $model, 'Literal with wrong language');
},
{
ok => 0,
name => 'Literal with wrong language',
diag => 'No matching literals found in model'
}
);
check_test(
sub {
has_literal('This is a Another test', 'en', 'http://www.w3.org/2001/XMLSchema#integer', $model, 'Literal with language and datatype');
},
{
ok => 0,
name => 'Literal with language and datatype',
diag => "Invalid literal:\n\n\tLiteral values cannot have both language and datatype"
}
);
check_test(
sub {
has_literal('http://example.com/Bar', undef, undef, $model, 'Has a URI');
},
{
ok => 0,
name => 'Has a URI',
diag => 'No matching literals found in model'
}
);
check_test(
sub {
has_literal('"This is a Another test"@en', undef, undef, $model, 'Has a string not literal');
},
{
ok => 0,
name => 'Has a string not literal',
diag => 'No matching literals found in model'
}
);
|
