The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

SAMTREGAR / HTML-Template-2.97 / t / 14-includes.t 

            

              
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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119

              
use strict;
use warnings;
use File::Temp;
use Test::More (tests => 20);
use_ok('HTML::Template');
# simple include
my $tmpl_string = q|1 2 3 <tmpl_include templates/included2.tmpl> |;
my $template    = HTML::Template->new_scalar_ref(\$tmpl_string);
my $output      = $template->output;
is(clean($output), '1 2 3 5 5 5', 'simple include');
# nested includes
$tmpl_string = q|1 2 3 <tmpl_include templates/included.tmpl> |;
$template    = HTML::Template->new_scalar_ref(\$tmpl_string);
$output      = $template->output;
is(clean($output), '1 2 3 4 4 4 5 5 5', 'nested includes');
# simple include w/path
$tmpl_string = q|1 2 3 <tmpl_include included2.tmpl> |;
$template    = HTML::Template->new_scalar_ref(\$tmpl_string, path => 'templates');
$output      = $template->output;
is(clean($output), '1 2 3 5 5 5', 'simple include w/path');
# nested includes w/path
$tmpl_string = q|1 2 3 <tmpl_include included.tmpl> |;
$template    = HTML::Template->new_scalar_ref(\$tmpl_string, path => 'templates');
$output      = $template->output;
is(clean($output), '1 2 3 4 4 4 5 5 5', 'nested includes w/path');
# multiple same includes
$tmpl_string = q|1 2 3 <tmpl_include templates/included2.tmpl> 6 <tmpl_include templates/included2.tmpl>|;
$template    = HTML::Template->new_scalar_ref(\$tmpl_string);
$output      = $template->output;
is(clean($output), '1 2 3 5 5 5 6 5 5 5', 'multiple same includes');
# multiple different includes
$tmpl_string = q|1 2 3 <tmpl_include templates/included2.tmpl> 6 <tmpl_include templates/included3.tmpl>|;
$template    = HTML::Template->new_scalar_ref(\$tmpl_string);
$output      = $template->output;
is(clean($output), '1 2 3 5 5 5 6 6 6 6', 'multiple different includes');
# multiple different includes w/path
$tmpl_string = q|1 2 3 <tmpl_include included2.tmpl> 6 <tmpl_include included3.tmpl>|;
$template    = HTML::Template->new_scalar_ref(\$tmpl_string, path => 'templates');
$output      = $template->output;
is(clean($output), '1 2 3 5 5 5 6 6 6 6', 'multiple different includes w/path');
# multiple same nested includes
$tmpl_string = q|1 2 3 <tmpl_include templates/included.tmpl> 6 <tmpl_include templates/included.tmpl>|;
$template    = HTML::Template->new_scalar_ref(\$tmpl_string);
$output      = $template->output;
is(clean($output), '1 2 3 4 4 4 5 5 5 6 4 4 4 5 5 5', 'multiple same nested includes');
# multiple same nested includes w/path
$tmpl_string = q|1 2 3 <tmpl_include included.tmpl> 6 <tmpl_include included.tmpl>|;
$template    = HTML::Template->new_scalar_ref(\$tmpl_string, path => 'templates');
$output      = $template->output;
is(clean($output), '1 2 3 4 4 4 5 5 5 6 4 4 4 5 5 5', 'multiple same nested includes w/path');
# multiple different nested includes
$tmpl_string = q|1 2 3 <tmpl_include templates/included.tmpl> 6 <tmpl_include templates/included2.tmpl>|;
$template    = HTML::Template->new_scalar_ref(\$tmpl_string);
$output      = $template->output;
is(clean($output), '1 2 3 4 4 4 5 5 5 6 5 5 5', 'multiple different nested includes');
# multiple different nested includes w/path
$tmpl_string = q|1 2 3 <tmpl_include included.tmpl> 6 <tmpl_include included2.tmpl>|;
$template    = HTML::Template->new_scalar_ref(\$tmpl_string, path => 'templates');
$output      = $template->output;
is(clean($output), '1 2 3 4 4 4 5 5 5 6 5 5 5', 'multiple different nested includes w/path');
# lots of different nested includes
$tmpl_string =
  q|1 2 3 <tmpl_include templates/included.tmpl> 6 <tmpl_include templates/included2.tmpl> 7 <tmpl_include templates/included3.tmpl>|;
$template = HTML::Template->new_scalar_ref(\$tmpl_string);
$output   = $template->output;
is(clean($output), '1 2 3 4 4 4 5 5 5 6 5 5 5 7 6 6 6', 'lots of different nested includes');
# lots of different nested includes w/path
$tmpl_string = q|1 2 3 <tmpl_include included.tmpl> 6 <tmpl_include included2.tmpl> 7 <tmpl_include included3.tmpl>|;
$template    = HTML::Template->new_scalar_ref(\$tmpl_string, path => 'templates');
$output      = $template->output;
is(clean($output), '1 2 3 4 4 4 5 5 5 6 5 5 5 7 6 6 6', 'lots of different nested includes w/path');
# missing file
$tmpl_string = q|1 2 3 <tmpl_include imaginary_file.tmpl> 4 5 6|;
eval { HTML::Template->new_scalar_ref(\$tmpl_string) };
like($@, qr/Cannot open included file/i, 'missing included file');
# missing file with false die_on_missing_include
$template = eval { HTML::Template->new_scalar_ref(\$tmpl_string, die_on_missing_include => 0) };
$output = $template->output;
ok(!$@, 'didnt die');
is(clean($output), '1 2 3 4 5 6', 'missing include just gets ignored');
# missing include in a level down
my $tmp = File::Temp->new(UNLINK => 1, SUFFIX => '.tmpl');
print $tmp $tmpl_string;
close $tmp;
$tmpl_string = "0 0 <tmpl_include $tmp> 9 9";
eval { HTML::Template->new_scalar_ref(\$tmpl_string) };
like($@, qr/Cannot open included file/i, 'missing included file');
# missing include in a level down with false die_on_missing_include
$template = eval { HTML::Template->new_scalar_ref(\$tmpl_string, die_on_missing_include => 0) };
$output = $template->output;
ok(!$@, 'didnt die');
is(clean($output), '0 0 1 2 3 4 5 6 9 9', 'missing include in a level down just gets ignored');
sub clean {
    my $string = shift;
    $string =~ s/\s+/ /g;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}