Open-ILS/src/perlmods/t/22-template-toolkit-parse.t

   1 use strict;
   2 use warnings;
   3 use File::Find;
   4 use File::Spec;
   5 use Locale::Maketext::Extract;
   6 use Test::More;
   7 use Test::Output;
   8
   9 my $num_tests = 0;
  10
  11 my $ext = Locale::Maketext::Extract->new(
  12     plugins => { tt2  => ['tt2'] },
  13     warnings => 1,
  14     verbose => 0
  15 );
  16
  17 sub template_checker {
  18     return unless /.tt2$/;
  19     my $tt2 = $_;
  20     $num_tests++;
  21     stderr_is {$ext->extract_file($tt2)} '', "Parse TT2 - $File::Find::name";
  22 }
  23
  24 my ($vol, $dir, $file) = File::Spec->splitpath(__FILE__);
  25 chdir("$dir/../..");
  26 find(\&template_checker, ('templates'));
  27
  28 done_testing($num_tests);