Move $nfail calculation to FATE.pm
authorTimothy Gu <timothygu99@gmail.com>
Wed, 11 Jun 2014 01:07:51 +0000 (18:07 -0700)
committerMichael Niedermayer <michaelni@gmx.at>
Mon, 16 Jun 2014 15:10:48 +0000 (17:10 +0200)
Signed-off-by: Timothy Gu <timothygu99@gmail.com>
Signed-off-by: Michael Niedermayer <michaelni@gmx.at>
FATE.pm
index.cgi

diff --git a/FATE.pm b/FATE.pm
index 0992c96..806168d 100644 (file)
--- a/FATE.pm
+++ b/FATE.pm
@@ -76,6 +76,7 @@ sub split_stats {
     return {
         ntests => int $st[1],
         npass  => int $st[2],
+        nfail  => int $st[1] - int $st[2],
         nwarn  =>     $st[3],
     };
 }
@@ -115,7 +116,8 @@ sub load_summary {
         $ntests++;
     }
     close R;
-    return { %$hdr, %$conf, ntests => $ntests, npass => $npass };
+    return { %$hdr, %$conf, ntests => $ntests, npass => $npass,
+             nfail => $ntests - $npass };
 }
 
 sub load_report {
index 9157daa..9a59370 100755 (executable)
--- a/index.cgi
+++ b/index.cgi
@@ -64,9 +64,8 @@ for my $slot (@slots) {
     }
 
     if (my $prev = load_summary $slot, 'previous') {
-        my $nfail = $$rep{ntests}  - $$rep{npass};
         my $pfail = $$prev{ntests} - $$prev{npass};
-        $$rep{alert} = $$rep{ntests} && $nfail <=> $pfail;
+        $$rep{alert} = $$rep{ntests} && $$rep{nfail} <=> $pfail;
         $$rep{dwarn} = $$rep{nwarn} <=> $$prev{nwarn};
         $$rep{pdate} = $$prev{date};
     }
@@ -309,7 +308,6 @@ for my $rep (sort repcmp @reps) {
     if ($npass < $ntest && $ntest - $npass < 100) {
         my $report = load_report $$rep{slot}, $$rep{date};
         my @fail = grep $$_{status} ne '0', @{$$report{recs}};
-        my $nfail = @fail;
         my $lastpass = load_lastpass $$rep{slot};
 
         start 'tr', id => $slotid, class => 'slotfail';
@@ -317,10 +315,10 @@ for my $rep (sort repcmp @reps) {
         start 'table', class => 'minirep';
         start 'thead';
         start 'tr';
-        if ($nfail eq 1) {
-            th "$nfail failed test";
+        if ($$rep{nfail} eq 1) {
+            th "1 failed test";
         } else {
-            th "$nfail failed tests";
+            th "$$rep{nfail} failed tests";
         }
         th 'Status', class => 'errcode';
         end 'tr';