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
|
use strict;
use warnings;
use Test::More;
use Test::Output;
use Attean;
use Attean::RDF qw(blank iri literal);
use RDF::RDFa::Generator;
my $t = Attean::Quad->new(
blank('x'),
iri('http://example.org/p'),
literal(3),
iri('http://example.org/graph1'),
);
my $store = Attean->get_store('Memory')->new();
$store->add_quad($t);
my $model = Attean::QuadModel->new( store => $store );
my $pretty = RDF::RDFa::Generator::HTML::Pretty->new();
stderr_unlike sub {
print $pretty->create_document($model);
}, qr/Use of uninitialized value in subroutine entry/, 'pretty - no uninitalized value warning ok';
my $head = RDF::RDFa::Generator::HTML::Head->new();
stderr_unlike sub {
print $head->create_document($model);
}, qr/Use of uninitialized value in subroutine entry/, 'head - no uninitalized value warning ok';
done_testing();
|
