Changeset 1148

Show
Ignore:
Timestamp:
01/30/08 16:20:52 (7 months ago)
Author:
earle
Message:

Store test results in a directory, files named by day.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • status/runbuild.pl

    r1147 r1148  
    55 
    66use Config::Tiny; 
     7use Cwd; 
    78use SVN::Agent; 
    89 
    …… 
    2324$sa->update; 
    2425 
     26my $program_dir = cwd; 
     27 
    2528chdir $config{'trunk'}; 
    2629system("perl Build.PL --force \ 
    …… 
    3134        install_path=bindoc=$config{'bindoc'}"); 
    3235         
     36my (undef, undef, undef, $day, $month, $year) = localtime(time); 
     37$year += 1900; 
     38$month = sprintf("%02d", ++$month); 
     39 
    3340system("perl Build"); 
    34 system("perl Build test verbose=1 2>&1 > output.txt"); 
     41system("perl Build test verbose=1 2>&1 > $program_dir/reports/test-results-$year-$month-$day.txt"); 

  • status/templates/tests.tt

    r1147 r1148  
    22<head> 
    33        <title>Test Results</title> 
     4<style type="text/css"> 
     5.fail_serious { 
     6        background: #c00; 
     7} 
     8 
     9.fail_minor { 
     10        background: #f33; 
     11} 
     12 
     13.pass { 
     14        background: #3c3; 
     15} 
    416</head> 
    517<body>