Test that Pod::Function's descriptions are stylistically consistent.

Function descriptions should start with a lowercase letter, or the proper
noun SysV.

1 files changed, 9 insertions, 1 deletions

diff --git a/ext/Pod-Functions/t/Functions.t b/ext/Pod-Functions/t/Functions.t
index 099e4ac832..0342a46723 100644
--- a/ext/Pod-Functions/t/Functions.t
+++ b/ext/Pod-Functions/t/Functions.t
@@ -5,7 +5,7 @@ use strict;
 use File::Basename;
 use File::Spec;
 
-use Test::More tests => 9;
+use Test::More;
 
 BEGIN {
     use_ok( 'Pod::Functions' );
@@ -55,6 +55,14 @@ SKIP: {
 	is( $fake_out, $test_out, 'run as plain program' );
 }
 
+foreach my $func (sort keys %Flavor) {
+    my $desc = $Flavor{$func};
+    like($desc, qr/^(?:[a-z]|SysV)/,
+	 "Description for $desc starts with a lowercase letter or SysV");
+}
+
+done_testing();
+
 =head1 NAME
 
 Functions.t - Test Pod::Functions