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;