subunit: Sort diff output.

diff --git a/selftest/Subunit/Diff.pm b/selftest/Subunit/Diff.pm
index 5c9e4f0de05b41690f00ae2c21220399f155f10f..de251b37b3e9ad163f278ffcec90286583d80c00 100644 (file)
--- a/selftest/Subunit/Diff.pm
+++ b/selftest/Subunit/Diff.pm
@@ -58,7 +58,7 @@ sub from_file($)
 
        my $ret = new Subunit::Diff();
        open(IN, $path) or return;
-       parse_results($ret, $statistics, IN);
+       parse_results($ret, $statistics, *IN);
        close(IN);
        return $ret;
 }

diff --git a/selftest/diff-subunit.pl b/selftest/diff-subunit.pl
index 280021ccc4981e50775f7856f688690230d3caa8..fc80c371f889d581990baf94c0230d3e36b44f81 100755 (executable)
--- a/selftest/diff-subunit.pl
+++ b/selftest/diff-subunit.pl
@@ -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];
 }