subunit: Sort diff output.
[ira/wip.git] / selftest / diff-subunit.pl
index 280021ccc4981e50775f7856f688690230d3caa8..fc80c371f889d581990baf94c0230d3e36b44f81 100755 (executable)
@@ -14,7 +14,7 @@ my $new = Subunit::Diff::from_file($ARGV[1]);
 
 my $ret = Subunit::Diff::diff($old, $new);
 
-foreach my $e (keys %$ret) {
+foreach my $e (sort(keys %$ret)) {
        printf "%s: %s -> %s\n", $e, $ret->{$e}[0], $ret->{$e}[1];
 }