kivitendo/t/template_syntax.t @ d5145a56
| 5dba1d4a | Moritz Bunkus | use strict;
|
||
use lib 't';
|
||||
use Support::Templates;
|
||||
| bbc0a6b8 | Moritz Bunkus | use Support::TestSetup;
|
||
| 5dba1d4a | Moritz Bunkus | |||
use File::Spec;
|
||||
use File::Slurp;
|
||||
use Template;
|
||||
use Template::Provider;
|
||||
use Test::More tests => ( scalar(@referenced_files));
|
||||
my $template_path = 'templates/webpages/';
|
||||
| bbc0a6b8 | Moritz Bunkus | my $provider = Template::Provider->new(Support::TestSetup::template_config());
|
||
| 5dba1d4a | Moritz Bunkus | |||
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 {
|
||||
| dfecc325 | Jan Büren | die "Unknown result type: " . ref($result) . " for file " . $file;
|
||
| 5dba1d4a | Moritz Bunkus | }
|
||
}
|
||||
exit 0;
|