marei: cleanup
[kivitendo-erp.git] / t / template_syntax.t
1 use strict;
2
3 use lib 't';
4
5 use Support::Templates;
6 use Support::TestSetup;
7
8 use File::Spec;
9 use File::Slurp;
10 use Template;
11 use Template::Provider;
12 use Test::More tests => ( scalar(@referenced_files));
13
14 my $template_path = 'templates/webpages/';
15
16 my $provider = Template::Provider->new(Support::TestSetup::template_config());
17
18 foreach my $ref (@Support::Templates::referenced_files) {
19   my $file              = "${template_path}${ref}.html";
20   my ($result, $not_ok) = $provider->fetch($file);
21
22   if (!$not_ok) {
23     ok(1, "${file} does not contain errors");
24
25   } elsif (ref($result) eq 'Template::Exception') {
26     print STDERR $result->as_string;
27     ok(0, "${file} contains syntax errors");
28
29   } else {
30     die "Unknown result type: " . ref($result);
31   }
32 }
33
34 exit 0;