t/template_syntax.t

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4 use Test::More;
   5
   6 plan(skip_all => 'running installed') if $ENV{INSTALLED_TESTS};
   7
   8 my @templates=(glob("templates/*.tmpl"), glob("doc/templates/*.mdwn"));
   9 plan(tests => 2*@templates);
  10
  11 use HTML::Template;
  12
  13 foreach my $template (@templates) {
  14         my $obj=eval {HTML::Template->new(filename => $template)};
  15         ok(! $@, $template." $@");
  16         ok($obj, $template);
  17 }