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
|
use Test::More;
use RDF::Helper;
use Data::Dumper;
#----------------------------------------------------------------------
# RDF::Redland
#----------------------------------------------------------------------
SKIP: {
eval { require RDF::Redland };
skip "RDF::Redland not installed", 2 if $@;
my $rdf = RDF::Helper->new(
BaseInterface => 'RDF::Redland',
BaseURI => 'http://totalcinema.com/NS/test#',
Namespaces => {
dc => 'http://purl.org/dc/elements/1.1/',
rdf => "http://www.w3.org/1999/02/22-rdf-syntax-ns#",
'#default' => "http://purl.org/rss/1.0/",
slash => "http://purl.org/rss/1.0/modules/slash/",
taxo => "http://purl.org/rss/1.0/modules/taxonomy/",
syn => "http://purl.org/rss/1.0/modules/syndication/",
admin => "http://webns.net/mvcb/",
},
);
$rdf->include_rdfxml(filename => 't/data/use.perl.rss');
my $ref = $rdf->deep_prophash('http://use.perl.org/');
ok( scalar keys %{$ref} > 0 );
my $hash_count = scalar keys %{$ref->{items}};
#warn Dumper( $ref );
ok ( $hash_count > 0 );
#
my %data = (
'dc:name' => 'kingubu',
'name' => 'Fooo',
'array' => [ 'one', 'two', 'three' ],
);
my $rdf2 = RDF::Helper->new(
BaseInterface => 'RDF::Redland',
BaseURI => 'http://totalcinema.com/NS/test#',
Namespaces => {
dc => 'http://purl.org/dc/elements/1.1/',
rdf => "http://www.w3.org/1999/02/22-rdf-syntax-ns#",
'#default' => "http://purl.org/rss/1.0/",
slash => "http://purl.org/rss/1.0/modules/slash/",
taxo => "http://purl.org/rss/1.0/modules/taxonomy/",
syn => "http://purl.org/rss/1.0/modules/syndication/",
admin => "http://webns.net/mvcb/",
},
);
$rdf2->hashref2rdf( \%data );
#warn $rdf2->serialize( filename => 'dump.rdf' );
#warn $rdf2->serialize( format => 'rdfxml-abbrev' );
}
#----------------------------------------------------------------------
# RDF::Trine
#----------------------------------------------------------------------
SKIP: {
eval { require RDF::Trine };
skip "RDF::Trine not installed", 2 if $@;
my $rdf = RDF::Helper->new(
BaseInterface => 'RDF::Trine',
BaseURI => 'http://totalcinema.com/NS/test#',
Namespaces => {
dc => 'http://purl.org/dc/elements/1.1/',
rdf => "http://www.w3.org/1999/02/22-rdf-syntax-ns#",
'#default' => "http://purl.org/rss/1.0/",
slash => "http://purl.org/rss/1.0/modules/slash/",
taxo => "http://purl.org/rss/1.0/modules/taxonomy/",
syn => "http://purl.org/rss/1.0/modules/syndication/",
admin => "http://webns.net/mvcb/",
},
);
$rdf->include_rdfxml(filename => 't/data/use.perl.rss');
my $ref = $rdf->deep_prophash('http://use.perl.org/');
ok( scalar keys %{$ref} > 0 );
my $hash_count = scalar keys %{$ref->{items}};
#warn Dumper( $ref );
ok ( $hash_count > 0 );
#
my %data = (
'dc:name' => 'kingubu',
'name' => 'Fooo',
'array' => [ 'one', 'two', 'three' ],
);
my $rdf2 = RDF::Helper->new(
BaseInterface => 'RDF::Trine',
BaseURI => 'http://totalcinema.com/NS/test#',
Namespaces => {
dc => 'http://purl.org/dc/elements/1.1/',
rdf => "http://www.w3.org/1999/02/22-rdf-syntax-ns#",
'#default' => "http://purl.org/rss/1.0/",
slash => "http://purl.org/rss/1.0/modules/slash/",
taxo => "http://purl.org/rss/1.0/modules/taxonomy/",
syn => "http://purl.org/rss/1.0/modules/syndication/",
admin => "http://webns.net/mvcb/",
},
);
$rdf2->hashref2rdf( \%data );
#warn $rdf2->serialize( filename => 'dump.rdf' );
#warn $rdf2->serialize( format => 'rdfxml-abbrev' );
}
done_testing();
|
