cleanup
[ikiwiki] / 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 }