From 003c294fd49cdcc425ea9c2eccbf638bfec01e4f Mon Sep 17 00:00:00 2001 From: knarf Date: Fri, 23 Apr 2010 12:20:02 +0000 Subject: sort output alphabetically (was unsorted) git-svn-id: http://svn.cactuscode.org/flesh/trunk@4612 17b73243-c579-4c4c-a9d2-2d5706c11dac --- lib/sbin/RunTestUtils.pl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'lib/sbin') diff --git a/lib/sbin/RunTestUtils.pl b/lib/sbin/RunTestUtils.pl index 8d18dfc3..c6691e8f 100644 --- a/lib/sbin/RunTestUtils.pl +++ b/lib/sbin/RunTestUtils.pl @@ -642,9 +642,9 @@ sub WriteFullResults $message = " Tests missed for lack of thorns:\n"; $missingtests = 0; - foreach $thorn (split(' ',$testdata->{'THORNS'})) + foreach $thorn (sort split(' ',$testdata->{'THORNS'})) { - foreach $parfile (split(' ',$testdata->{"$thorn TESTS"})) + foreach $parfile (sort split(' ',$testdata->{"$thorn TESTS"})) { my $missing = $testdata->{"$thorn $parfile MISSING"}; next unless ($missing); @@ -659,9 +659,9 @@ sub WriteFullResults # Different number of processors required $message = " Tests missed for different number of processors required:\n"; $missingtests = 0; - foreach $thorn (split(' ',$testdata->{'THORNS'})) + foreach $thorn (sort split(' ',$testdata->{'THORNS'})) { - foreach $parfile (split(' ',$testdata->{"$thorn TESTS"})) + foreach $parfile (sort split(' ',$testdata->{"$thorn TESTS"})) { my $nprocs = $testdata->{"$thorn $parfile NPROCS"}; next unless ($nprocs); @@ -678,9 +678,9 @@ sub WriteFullResults $message = " Tests with different number of test files:\n\n"; $extratests = 0; - foreach $thorn (split(" ",$testdata->{"RUNNABLETHORNS"})) + foreach $thorn (sort split(" ",$testdata->{"RUNNABLETHORNS"})) { - foreach $parfile (split(" ",$testdata->{"$thorn RUNNABLE"})) + foreach $parfile (sort split(" ",$testdata->{"$thorn RUNNABLE"})) { if ($rundata->{"$thorn $parfile NFILEEXTRA"}>0) { -- cgit v1.2.3