Changeset 1151 for status

Timestamp:

01/31/08 01:53:58 (10 months ago)

Author:

earle

Message:

Put time on the horizontal axis at perigrin's request.

Location:

status

Files:

• report.pl (modified) (2 diffs)
• templates/tests.tt (modified) (1 diff)

status/report.pl

@@ -7 +7 @@
 use Template;
 
-my (%results, %test_names);
+my (%results_by_date, %results_by_test);
 
 foreach (glob "reports/*") {
         my ($report_name) = $_ =~ m{reports/test-results-(.*)\.txt};
         
-        $results{$report_name} = load_report($_);
+        $results_by_date{$report_name} = load_report($_);
+}
+
+# Turn sorted-by-date structure inside out.
+foreach my $date (keys %results_by_date) {
+                my $date_result = $results_by_date{$date};
+                foreach my $test_name (keys %$date_result) {
+                        $results_by_test{$test_name}{$date} = $date_result->{$test_name};
+                }
 }
 
 my %report_data = (
-        'results'    => \%results,
-        'test_names' => [ sort keys %test_names ],
+        'results'    => \%results_by_test,
+        'test_dates' => [ sort keys %results_by_date ],
 );
 
@@ -50 +58 @@
                         if (m{^t/(.*?)\.}) {
                                 $current_test = $1;
-                                $test_names{$current_test} = 1;
                         } elsif (/^ok$/) {
                                 $tests{$current_test} = 100;

status/templates/tests.tt

@@ -22 +22 @@
         <tr>
                 <td></td>
-[% FOREACH test_name IN data.test_names %]
-                <th>[% test_name.replace('_', ' ') %]</th>
+[% FOREACH test_date IN data.test_dates %]
+                <th>[% test_date %]</th>
 [%- END %]
         </tr>
-[% FOREACH test_date IN data.results.keys %]
-[% day_results = data.results.$test_date %]
+[% FOREACH test_name IN data.results.keys.sort %]
+[% test_results = data.results.$test_name %]
         <tr>
-                <td>[% test_date %]</td>
-        [% FOREACH datum IN day_results.keys.sort %]
-                <td>[% day_results.$datum %]%</td>
+                <td>[% test_name.replace('_', ' ') %]</td>
+        [% FOREACH datum IN test_results.keys.sort %]
+                <td>[% test_results.$datum %]%</td>
         [% END %]
         </tr>