diff options
| -rw-r--r-- | tests/autotest-remote-host.pl | 25 | ||||
| -rw-r--r-- | tests/autotest-remote-server.pl | 11 |
2 files changed, 36 insertions, 0 deletions
diff --git a/tests/autotest-remote-host.pl b/tests/autotest-remote-host.pl new file mode 100644 index 0000000..91d929a --- /dev/null +++ b/tests/autotest-remote-host.pl @@ -0,0 +1,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); diff --git a/tests/autotest-remote-server.pl b/tests/autotest-remote-server.pl new file mode 100644 index 0000000..e113808 --- /dev/null +++ b/tests/autotest-remote-server.pl @@ -0,0 +1,11 @@ +#!/usr/bin/perl + +use IO::Socket; + +my $server = new IO::Socket::INET(LocalPort => 7183, Listen => 1); +die "Could not create socket: $!\n" unless $server; + +my $client = $server->accept(); + +print while (<$client>); + |