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
|
use Test::Tester tests=>43;
use Test::RDF;
use RDF::Trine qw[iri variable literal statement];
my $model;
check_test(
sub {
pattern_target($model = RDF::Trine::Model->new);
},
{
ok => 1,
name => 'Data is an RDF::Trine::Model.',
},
'pattern_target - target model'
);
RDF::Trine::Parser->new('turtle')->parse_into_model('http://example.org', <<'TURTLE', $model);
@prefix foaf: <http://xmlns.com/foaf/0.1/> .
[] a foaf:Person ;
foaf:name "Kjetil Kjernsmo" ;
foaf:page <http://search.cpan.org/~kjetilk/> .
[] a foaf:Person ;
foaf:name "Toby Inkster" ;
foaf:page <http://search.cpan.org/~tobyink/> .
TURTLE
my $foaf = RDF::Trine::Namespace->new('http://xmlns.com/foaf/0.1/');
check_test(
sub {
pattern_fail(
statement(variable('who'), $foaf->name, literal('Kjetil Kjernsmo')),
statement(variable('who'), $foaf->page, iri('http://search.cpan.org/~kjetilk/')),
);
},
{
ok => 0,
},
'pattern_fail - statement list'
);
check_test(
sub {
pattern_fail(
RDF::Trine::Pattern->new(
statement(variable('who'), $foaf->name, literal('Kjetil Kjernsmo')),
statement(variable('who'), $foaf->page, iri('http://search.cpan.org/~kjetilk/')),
),
);
},
{
ok => 0,
},
'pattern_fail - pattern'
);
check_test(
sub {
pattern_fail(
statement(variable('who'), $foaf->name, literal('Kjetil Kjernsmo')),
statement(variable('who'), $foaf->page, iri('http://search.cpan.org/~kjetilk/')),
"FOO",
);
},
{
ok => 0,
name => 'FOO',
},
'pattern_fail - statement list plus message'
);
check_test(
sub {
pattern_fail(
RDF::Trine::Pattern->new(
statement(variable('who'), $foaf->name, literal('Kjetil Kjernsmo')),
statement(variable('who'), $foaf->page, iri('http://search.cpan.org/~kjetilk/')),
),
"FOO",
);
},
{
ok => 0,
name => 'FOO',
},
'pattern_fail - pattern plus message'
);
check_test(
sub {
pattern_fail(
statement(variable('who'), $foaf->name, literal('Toby Inkster')),
statement(variable('who'), $foaf->page, iri('http://search.cpan.org/~kjetilk/')),
);
},
{
ok => 1,
},
'pattern_fail - statement list should fail'
);
check_test(
sub {
pattern_fail(
RDF::Trine::Pattern->new(
statement(variable('who'), $foaf->name, literal('Toby Inkster')),
statement(variable('who'), $foaf->page, iri('http://search.cpan.org/~kjetilk/')),
),
);
},
{
ok => 1,
},
'pattern_fail - pattern should fail'
);
check_test(
sub {
pattern_fail(
RDF::Trine::Pattern->new(
statement(variable('who'), $foaf->name, literal('DAHUT')),
statement(variable('who'), $foaf->page, iri('http://search.cpan.org/~kjetilk/')),
),
);
},
{
ok => 1,
},
'pattern_fail - pattern should fail'
);
|
