r1148 - in status: . templates - openguides-commits

30 Jan 2008

Author: earle
Date: 2008-01-30 16:20:52 +0000 (Wed, 30 Jan 2008)
New Revision: 1148
Added:
   status/reports/
Modified:
   status/runbuild.pl
   status/templates/tests.tt
Log:
Store test results in a directory, files named by day.
Modified: status/runbuild.pl
===================================================================

--- status/runbuild.pl	2008-01-30 14:00:29 UTC (rev 1147)
+++ status/runbuild.pl	2008-01-30 16:20:52 UTC (rev 1148)
@@ -4,6 +4,7 @@
 use strict;
use Config::Tiny;
+use Cwd;
 use SVN::Agent;
my $config_file = Config::Tiny->new->read('status.conf');
@@ -22,6 +23,8 @@
 my $sa = SVN::Agent->load({ path => $config{'trunk'} });
 $sa->update;
+my $program_dir = cwd;
+
 chdir $config{'trunk'};
 system("perl Build.PL --force \
    install_path=lib=$config{'lib'} \
@@ -30,5 +33,9 @@
    install_path=libdoc=$config{'libdoc'} \
    install_path=bindoc=$config{'bindoc'}");
    
+my (undef, undef, undef, $day, $month, $year) = localtime(time);
+$year += 1900;
+$month = sprintf("%02d", ++$month);
+
 system("perl Build");
-system("perl Build test verbose=1 2>&1 > output.txt");
\ No newline at end of file
+system("perl Build test verbose=1 2>&1 > $program_dir/reports/test-results-$year-$month-$day.txt");
\ No newline at end of file
Modified: status/templates/tests.tt
===================================================================
--- status/templates/tests.tt	2008-01-30 14:00:29 UTC (rev 1147)
+++ status/templates/tests.tt	2008-01-30 16:20:52 UTC (rev 1148)
@@ -1,6 +1,18 @@
 <html>
 <head>
    <title>Test Results</title>
+<style type="text/css">
+.fail_serious {
+	background: #c00;
+}
+
+.fail_minor {
+	background: #f33;
+}
+
+.pass {
+	background: #3c3;
+}
 </head>
 <body>
 <h1>Test Results</h1>

    