projekt kivitendo

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;