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
|
use Test::More;
use strict;
use warnings;
use RDF::Helper;
#----------------------------------------------------------------------
# RDF::Redland
#----------------------------------------------------------------------
SKIP: {
eval { require RDF::Redland };
skip "RDF::Redland not installed", 5 if $@;
test( 'RDF::Redland' );
}
#----------------------------------------------------------------------
# RDF::Trine
#----------------------------------------------------------------------
SKIP: {
eval { require RDF::Trine };
skip "RDF::Trine not installed", 5 if $@;
test( 'RDF::Trine' );
}
done_testing();
#
# Test Methods
#
sub test {
my $class = shift;
my $rdf = RDF::Helper->new(
BaseInterface => $class,
namespaces => {
dc => 'http://purl.org/dc/terms/',
rdf => "http://www.w3.org/1999/02/22-rdf-syntax-ns#",
'#default' => "http://xmlns.com/foaf/0.1/"
}
);
my $obj = $rdf->get_object('http://dahut.pm.org/dahut_group.rdf#bender');
$obj->rdf_type('http://xmlns.com/foaf/0.1/Person');
$obj->name("Bender");
$obj->dc_description("A description of Bender");
my $xmlstring = $rdf->serialize(format => 'rdfxml');
like($xmlstring, qr|xmlns:dc="http://purl.org/dc/terms/"|, 'RDF/XML DC prefix declaration');
like($xmlstring, qr|<dc:description>|, 'RDF/XML DC element present');
my $turtlestring = $rdf->serialize(format => 'turtle');
like($turtlestring, qr|\@prefix dc: <http://purl.org/dc/terms/> .|, 'Turtle DC prefix declaration');
like($turtlestring, qr|dc:description|, 'Turtle DC property present');
like($turtlestring, qr|a <http://xmlns.com/foaf/0.1/Person>|, 'Turtle type present');
}
|
