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
140
141
142
143
144
145
146
|
use Test::Tester tests => 83;
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 {
hasnt_literal('A new test', undef, undef, $model, 'Simple literal');
},
{
ok => 1,
name => 'Simple literal',
}
);
check_test(
sub {
hasnt_literal('A test', 'en', undef, $model, 'Not a simple literal');
},
{
ok => 1,
name => 'Not a simple literal',
}
);
check_test(
sub {
hasnt_literal('A test', undef, undef, $model, 'Not a simple literal');
},
{
ok => 0,
name => 'Not a simple literal',
diag => 'Matching literals found in model'
}
);
check_test(
sub {
hasnt_literal('42', undef, 'http://www.w3.org/2001/XMLSchema#integer', $model, 'Just an integer');
},
{
ok => 0,
name => 'Just an integer',
diag => 'Matching literals found in model'
}
);
check_test(
sub {
hasnt_literal('42', undef, undef, $model, 'Not a integer simple literal');
},
{
ok => 1,
name => 'Not a integer simple literal',
}
);
check_test(
sub {
hasnt_literal('42', 'en', 'http://www.w3.org/2001/XMLSchema#integer', $model, 'Integer with lang and datatype');
},
{
ok => 0,
name => 'Integer with lang and datatype',
diag => "Invalid literal:\n\n\tLiteral values cannot have both language and datatype"
}
);
check_test(
sub {
hasnt_literal('42', 'en', undef, $model, 'Literal integer with lang');
},
{
ok => 1,
name => 'Literal integer with lang',
}
);
check_test(
sub {
hasnt_literal('This is a Another test', 'en', undef, $model, 'Language literal');
},
{
ok => 0,
name => 'Language literal',
diag => 'Matching literals found in model'
}
);
check_test(
sub {
hasnt_literal('This is not Another test', 'en', undef, $model, 'Language literal');
},
{
ok => 1,
name => 'Language literal',
}
);
check_test(
sub {
hasnt_literal('This is a Another test', 'no', undef, $model, 'Literal with wrong language');
},
{
ok => 1,
name => 'Literal with wrong language',
}
);
check_test(
sub {
hasnt_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 {
hasnt_literal('http://example.com/Bar', undef, undef, $model, 'Has a URI');
},
{
ok => 1,
name => 'Has a URI',
}
);
check_test(
sub {
hasnt_literal('"This is a Another test"@en', undef, undef, $model, 'Has a string not literal');
},
{
ok => 1,
name => 'Has a string not literal',
}
);
|
