Porting/Maintainers.pm: deterministic output order
authorMarcel Gruenauer (via RT) <perlbug-followup@perl.org>
Tue, 22 Jan 2013 20:02:39 +0000 (12:02 -0800)
committerDavid Mitchell <davem@iabyn.com>
Mon, 28 Jan 2013 14:06:05 +0000 (14:06 +0000)
[perl #116509]

Change Porting/Maintainers.pm to output tests in the same order each
time t/porting/maintainers.t is run.

Before, it was difficult to see whether editing t/porting/maintainers.t
didn't have any adverse effects. The random output order could be seen
with

    diff <(./perl t/porting/maintainers.t) <(./perl t/porting/maintainers.t)

Also set Porting/Maintainers.pm version to 0.09.

Porting/Maintainers.pm

index 42dec5f..896e7c8 100644 (file)
@@ -22,7 +22,7 @@ use vars qw(@ISA @EXPORT_OK $VERSION);
                show_results process_options files_to_modules
                finish_tap_output
                reload_manifest);
-$VERSION = 0.08;
+$VERSION = 0.09;
 
 require Exporter;
 
@@ -349,7 +349,7 @@ sub maintainers_files {
 
 sub duplicated_maintainers {
     maintainers_files();
-    for my $f (keys %files) {
+    for my $f (sort keys %files) {
         cmp_ok($files{$f}, '<=', 1, "File $f appears $files{$f} times in Maintainers.pl");
     }
 }
@@ -371,7 +371,7 @@ sub missing_maintainers {
 
 sub superfluous_maintainers {
     maintainers_files();
-    for my $f (keys %files) {
+    for my $f (sort keys %files) {
         ok($MANIFEST{$f}, "File $f has a maintainer and is in MANIFEST");
     }
 }