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
|
use strict;
use warnings;
use Test::More;
my $pkg;
BEGIN { use_ok $pkg = 'Catmandu::Exporter::RDF'; }
require_ok $pkg;
my $file = "";
my $data = { # example copied from RDF::Trine::Model
"http://example.com/subject1" => {
"http://example.com/predicate1" => [
'Foo@en',
"Bar^<http://example.com/datatype1>"
],
},
"_:bnode1" => {
"http://example.com/predicate2" => [
"http://example.com/object2",
],
"http://example.com/predicate2" => [
"_:bnode3",
],
},
};
my $exporter = $pkg->new(file => \$file, type => 'ttl');
isa_ok $exporter, $pkg;
is $exporter->count, 0, 'count is zero';
$exporter->add($data);
$exporter->commit;
# normalize
$file =~ s/("Foo".+), ("Bar".+) ./$2, $1 ./;
$file = join "\n", sort split "\n", "$file";
$file .= "\n" unless $file =~ /\n$/m;
is $file, <<'RDF', 'serialize Turtle';
<http://example.com/subject1> <http://example.com/predicate1> "Bar"^^<http://example.com/datatype1>, "Foo"@en .
[] <http://example.com/predicate2> [] .
RDF
is $exporter->count, 1, 'count is always one';
$file = "";
$exporter = $pkg->new(file => \$file);
$exporter->add( { _id => '<x:subject>', foaf_knows => { foaf_name => 'alice' } } );
is $file, <<NTRIPLES, 'streaming ntriples by default';
<x:subject> <http://xmlns.com/foaf/0.1/knows> _:b1 .
_:b1 <http://xmlns.com/foaf/0.1/name> "alice" .
NTRIPLES
$exporter->add( { _id => '<x:subject>', foaf_knows => { foaf_name => 'alice' } } );
$exporter->commit;
is scalar(split "\n", $file), 4, 'keep blank nodes separated';
is $exporter->count, 2, 'count is 2';
done_testing;
|
