t/templates_documented.t

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4 use Test::More 'no_plan';
   5
   6 $/=undef;
   7 open(IN, "doc/templates.mdwn") || die "doc/templates.mdwn: $!";
   8 my $page=<IN>;
   9 close IN;
  10
  11 foreach my $file (glob("templates/*.tmpl")) {
  12         $file=~s/templates\///;
  13         ok($page =~ /\Q$file\E/, "$file documented on doc/templates.mdwn");
  14 }