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
|
use strict;
use warnings;
use Test::More tests => 15;
BEGIN { use_ok('HTML::Template::Compiled') };
use lib 't';
use HTC_Utils qw/ $tdir &create_cache &remove_cache /;
my $cache_dir = "cache39";
$cache_dir = create_cache($cache_dir);
my $warning = '';
local $SIG{__WARN__} = sub { $warning = $_[0] };
for my $li (0..1) {
my %args = (
filename => "line_info1.html",
file_cache_dir => $cache_dir,
file_cache => 1,
cache => 0,
path => $tdir,
line_info => $li,
# debug => 1,
);
my $htc = HTML::Template::Compiled->new(
%args,
warnings => 0,
);
$htc->param(
foo => undef,
);
my $out = $htc->output;
$out =~ s/\s+/ /g;
cmp_ok($out, "eq", "test test2 test3 foo: undef line 4 test4 ", "warnings 0 output ok");
cmp_ok($warning, "eq", '', "warnings 0 shouldn't produce any warnings");
HTML::Template::Compiled->clear_filecache($cache_dir);
$warning = '';
$htc = HTML::Template::Compiled->new(
%args,
warnings => 1,
);
$htc->param(
foo => undef,
);
$out = $htc->output;
$out =~ s/\s+/ /g;
cmp_ok($out, "eq", "test test2 test3 foo: undef line 4 test4 " , "warnings 1 output ok");
cmp_ok($warning, "=~", 'Use of uninitialized value', "warnings 1 should produce warnings");
if ($li) {
cmp_ok($warning, '=~', "at t.templates.line_info1.html line 4", "line information");
}
HTML::Template::Compiled->clear_filecache($cache_dir);
$warning = '';
$htc = HTML::Template::Compiled->new(
%args,
warnings => 'fatal',
);
$htc->param(
foo => undef,
);
$out = '';
eval {
$out = $htc->output;
};
my $error = $@;
cmp_ok($out, "eq", "", "warnings fatal empty output ok");
cmp_ok($error, "=~", 'Use of uninitialized value', "warnings fatal should die");
if ($li) {
cmp_ok($error, '=~', "at t.templates.line_info1.html line 4", "line information");
}
HTML::Template::Compiled->clear_filecache($cache_dir);
$warning = '';
}
HTML::Template::Compiled->clear_filecache($cache_dir);
remove_cache($cache_dir);
|
