From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Tue, 31 Mar 2015 13:49:42 +0000 (+0000)
Subject: sg-report-flight: Sort email output by results, not job name
X-Git-Tag: wip.libvirt-v3-base~234^2~3
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=6ec412e71150f8c7ac563093b488e797c28fee74;p=people%2Fliuw%2Fosstest.git

sg-report-flight: Sort email output by results, not job name

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
---

diff --git a/sg-report-flight b/sg-report-flight
index d2aff58..2adc8a8 100755
--- a/sg-report-flight
+++ b/sg-report-flight
@@ -541,16 +541,21 @@ END
 
         my $text= (sprintf" %-${jl}s %2s %-${sl}s %-${rl}s ",
                    $j->{job}, $s->{stepno}, $s->{testid}, $s->{status});
-        $text .= "in $failv->{Flight} " if $heisenflightp;
-        $text .= $failv->{Summary} if defined $failv->{Summary};
+	my $xstatus = '';
+        $xstatus .= "in $failv->{Flight} " if $heisenflightp;
+        $xstatus .= $failv->{Summary} if defined $failv->{Summary};
+	$text .= $xstatus;
         $text =~ s/ *$//;
         while (length($text) > $cw) { last unless $text =~ s/(.* ) /$1/; }
 
-        $notsucceeds{$cat} .= $text."\n";
+	push @{ $notsucceeds{$cat} }, [ "$s->{status} $xstatus", $text ];
     }
     foreach my $cat (sort keys %notsucceeds) {
         $cat =~ m/^\w+ / or die;
-        print "\n$'\n$notsucceeds{$cat}" or die $!;
+        print "\n$'\n" or die $!;
+	foreach (sort { $a->[0] cmp $b->[0] } @{ $notsucceeds{$cat} }) {
+	    print $_->[1], "\n" or die $!;
+	}
     }
 
     if (!%{ $r->{Failures} }) {