Changeset 1148 for status/runbuild.pl


Ignore:
Timestamp:
Jan 30, 2008, 4:20:52 PM (14 years ago)
Author:
Earle Martin
Message:

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

File:
1 edited

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");
Note: See TracChangeset for help on using the changeset viewer.