) ;
my $tests = [
-
{
name => 'simple include',
skip => 0,
opts => {
-
templates => {
'foo' => 'bar',
}
template => '[%INCLUDE foo%] [%INCLUDE bar%] [%INCLUDE quux%]',
expected => 'foo is here bar is too quux is on the drums',
},
-
{
name => 'missing include',
skip => 0,
pretest => sub { $_[0]{obj}->delete_templates() },
error => qr/can't find/,
},
-
{
name => 'load include files',
skip => 0,
opts => {
- include_paths => [ qw(
+ search_dirs => [ qw(
templates
templates/deeper
templates/deeper/deepest
name => 'delete covering file',
skip => 0,
opts => {
- include_paths => [ qw(
+ search_dirs => [ qw(
templates
templates/deeper
templates/deeper/deepest
) ],
},
pretest => sub { unlink 'templates/deeper/BAR.tmpl' },
+ posttest => sub { write_tmpl_files() },
+
data => {},
expected => <<EXPECTED,
this loads bar <[this should be hidden then revealed]
sub remove_tmpl_files {
unlink keys %tmpl_files ;
-
rmdir $_ for reverse @tmpl_dirs ;
}