File: uninit_lang_warning.t

package info (click to toggle)
librdf-rdfa-generator-perl 0.200-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 252 kB
  • sloc: perl: 885; sh: 4; makefile: 2
file content (34 lines) | stat: -rw-r--r-- 835 bytes parent folder | download
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();