kivitendo/t/template_syntax.t @ aa4fda0e
| 5dba1d4a | Moritz Bunkus | use strict;
|
|
use lib 't';
|
|||
use Support::Templates;
|
|||
use File::Spec;
|
|||
use File::Slurp;
|
|||
use Template;
|
|||
use Template::Provider;
|
|||
use Test::More tests => ( scalar(@referenced_files));
|
|||
my $template_path = 'templates/webpages/';
|
|||
my $provider = Template::Provider->new({
|
|||
INTERPOLATE => 0,
|
|||
EVAL_PERL => 0,
|
|||
ABSOLUTE => 1,
|
|||
CACHE_SIZE => 0,
|
|||
PLUGIN_BASE => 'SL::Template::Plugin',
|
|||
INCLUDE_PATH => '.:' . $template_path,
|
|||
});
|
|||
foreach my $ref (@Support::Templates::referenced_files) {
|
|||
my $file = "${template_path}${ref}.html";
|
|||
my ($result, $not_ok) = $provider->fetch($file);
|
|||
if (!$not_ok) {
|
|||
ok(1, "${file} does not contain errors");
|
|||
} elsif (ref($result) eq 'Template::Exception') {
|
|||
print STDERR $result->as_string;
|
|||
ok(0, "${file} contains syntax errors");
|
|||
} else {
|
|||
die "Unknown result type: " . ref($result);
|
|||
}
|
|||
}
|
|||
exit 0;
|