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;