Changeset 1151 for status/report.pl

Timestamp:

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

Author:

earle

Message:

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

Files:

• status/report.pl (modified) (2 diffs)

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;