t/template_syntax.t

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