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>