source: status/runbuild.pl @ 1147

Last change on this file since 1147 was 1147, checked in by Earle Martin, 14 years ago

First stab at test output parsing.

  • Property svn:executable set to *
File size: 900 bytes
Line 
1#!/usr/bin/perl
2
3use warnings;
4use strict;
5
6use Config::Tiny;
7use SVN::Agent;
8
9my $config_file = Config::Tiny->new->read('status.conf');
10
11my %config;
12
13foreach (qw(domain trunk lib script arch libdoc bindoc)) {
14        $config{$_} = $config_file->{_}->{$_} || die "No '$_' specified in status.conf";
15}
16
17die "trunk dir doesn't exist"     unless -e $config{'trunk'};
18die "trunk dir isn't a directory" unless -d _;
19die "trunk dir isn't readable"    unless -r _;
20die "trunk dir isn't writable"    unless -w _;
21
22my $sa = SVN::Agent->load({ path => $config{'trunk'} });
23$sa->update;
24
25chdir $config{'trunk'};
26system("perl Build.PL --force \
27        install_path=lib=$config{'lib'} \
28        install_path=script=$config{'script'} \
29        install_path=arch=$config{'arch'} \
30        install_path=libdoc=$config{'libdoc'} \
31        install_path=bindoc=$config{'bindoc'}");
32       
33system("perl Build");
34system("perl Build test verbose=1 2>&1 > output.txt");
Note: See TracBrowser for help on using the repository browser.