[Swift-commit] r7283 - www/tests

Fri Nov 8 13:38:05 CST 2013

Author: davidk
Date: 2013-11-08 13:38:05 -0600 (Fri, 08 Nov 2013)
New Revision: 7283

Modified:
   www/tests/tests.pl
Log:
Add links to remote tests for each nightly run, if they exist


Modified: www/tests/tests.pl
===================================================================

--- www/tests/tests.pl	2013-11-07 17:50:08 UTC (rev 7282)
+++ www/tests/tests.pl	2013-11-08 19:38:05 UTC (rev 7283)
@@ -1,6 +1,7 @@
 #!/usr/bin/perl 
 use strict;
 use lib '/home/davidk/modules/';
+use File::Basename;
 use Lingua::EN::Numbers::Ordinate;
 
 print <<'END';
@@ -8,7 +9,7 @@
 
 <html>
 <head>
-<title>Swift Nightly Testing</title>
+<title>Swift Testing</title>
 <link rel="stylesheet" type="text/css" href="../css/style1col.css" />
 </head>
 <body>
@@ -24,10 +25,16 @@
     
    my $previous_month=0;
 
-   foreach my $test_result(<$swift_version/*/*.html>) {
+   foreach my $test_result(<$swift_version/*/test*.html>) {
       (my $ignore, my $year, my $month, my $day) = (split('-', (split('/', $test_result))[1]));
       $day =~ s/^0*//;
-      $table_data[$count] .= "<td><a href=\"$test_result\">$months[$month] " . ordinate($day) . ", $year</a></td>";
+      my $remote_html;
+      my $remote_html = dirname($test_result) . "/result_links.html";
+      $table_data[$count] .= "<td>$months[$month] " . ordinate($day) . ", $year <a href=\"$test_result\">[local]</a>";
+      if( -e "$remote_html" ) {
+         $table_data[$count] .= "<a href=\"$remote_html\">[remote]</a>\n";
+      }
+      $table_data[$count] .= "</td>\n";
       $count++;
    }
  


