Changeset 1148 for status/runbuild.pl

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

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

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • 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");