blob: 4991e4521eaeee71b86b991c1e54643c9290da4a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/perl
use warnings;
use strict;
use Test::More;
plan(skip_all => 'running installed') if $ENV{INSTALLED_TESTS};
$/=undef;
open(IN, "doc/templates.mdwn") || die "doc/templates.mdwn: $!";
my $page=<IN>;
close IN;
foreach my $file (glob("templates/*.tmpl")) {
$file=~s/templates\///;
ok($page =~ /\Q$file\E/, "$file documented on doc/templates.mdwn");
}
done_testing();
|