From: Jelmer Vernooij <jelmer@samba.org>
Date: Fri, 5 Jun 2009 16:50:45 +0000 (+0200)
Subject: subunit: Sort diff output.
X-Git-Tag: tdb-1.1.5~73
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2ffffcb220082a4adf31dd15cecb30f8b610614c;p=thirdparty%2Fsamba.git

subunit: Sort diff output.
---

diff --git a/selftest/Subunit/Diff.pm b/selftest/Subunit/Diff.pm
index 5c9e4f0de05..de251b37b3e 100644
--- 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 280021ccc49..fc80c371f88 100755
--- 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];
 }