blob: 91d929ac88e14574917ffed424797ee9c3f6938d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/usr/bin/perl
sub execprint
{
my $cmd = shift;
open PIPE, "$cmd |" || die "$cmd failed: $!\n";
print while (<PIPE>);
close PIPE;
return $?;
}
use IO::Socket;
$exitcmd = shift;
my $client = new IO::Socket::INET(PeerAddr => "10.0.2.2:7183", Timeout => 5);
exit unless $client;
select $client;
&execprint('svn up') == 0 || die "error updating from repo\n";
&execprint('perl tests/autotest-local.pl') == 0 || die "error launching tests\n";
system($exitcmd);
|
