2010-04-23 23:23:31 +02:00
|
|
|
#!/usr/bin/perl
|
|
|
|
use warnings;
|
|
|
|
use strict;
|
2015-11-30 18:33:00 +01:00
|
|
|
use Test::More;
|
|
|
|
|
|
|
|
plan(skip_all => 'running installed') if $ENV{INSTALLED_TESTS};
|
2010-04-23 23:23:31 +02:00
|
|
|
|
|
|
|
$/=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");
|
|
|
|
}
|
2015-11-30 18:33:00 +01:00
|
|
|
|
|
|
|
done_testing();
|