Test that functions in the groups in perlfunc.pod are in sorted order.

This ensures consistency in the documentation, and that the functions in
%Pod::Functions::Kinds are in sorted order.

1 files changed, 11 insertions, 0 deletions

diff --git a/ext/Pod-Functions/Functions_pm.PL b/ext/Pod-Functions/Functions_pm.PL
index 648cdfaae4..f0ad0bdbc5 100644
--- a/ext/Pod-Functions/Functions_pm.PL
+++ b/ext/Pod-Functions/Functions_pm.PL
@@ -109,6 +109,17 @@ if ($tap) {
             print "not ok $test - section '$_' has no type for Pod::Functions\n";
         }
     }
+    foreach my $kind (sort keys %Kinds) {
+        my $funcs = $Kinds{$kind};
+        ++$test;
+        my $want = join ' ', sort_funcs(@$funcs);
+        if ("@$funcs" eq $want) {
+            print "ok $test - category $kind is correctly sorted\n";
+        } else {
+            print "not ok $test - category $kind is correctly sorted\n";
+            print STDERR "# Have @$funcs\n# Want $want\n";
+        }
+    }
     print "1..$test\n";
     exit;
 }