summaryrefslogtreecommitdiff
path: root/tests/autotest-remote-host.pl
diff options
context:
space:
mode:
authorArseny Kapoulkine <arseny.kapoulkine@gmail.com>2015-04-13 20:35:26 -0700
committerArseny Kapoulkine <arseny.kapoulkine@gmail.com>2015-04-13 20:35:26 -0700
commited2c8226434a0b98562dbec16a3c6a1f2d282faa (patch)
tree2f4ddfce3c27e5c5b58be550d9db35742fe864c6 /tests/autotest-remote-host.pl
parent054b0b447eff82327c37a617849c3e20fbbb9789 (diff)
parent1c4098a7d9a5eb067ff63b5602d60d91a218b4a0 (diff)
Merge branch 'master' into compact
Diffstat (limited to 'tests/autotest-remote-host.pl')
-rw-r--r--tests/autotest-remote-host.pl37
1 files changed, 0 insertions, 37 deletions
diff --git a/tests/autotest-remote-host.pl b/tests/autotest-remote-host.pl
deleted file mode 100644
index 63dfe68..0000000
--- a/tests/autotest-remote-host.pl
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/bin/perl
-
-sub execprint
-{
- my $cmd = shift;
-
- open PIPE, "$cmd |" || die "$cmd failed: $!\n";
- print while (<PIPE>);
- close PIPE;
-
- return $?;
-}
-
-use IO::Socket;
-use Net::Ping;
-
-$exitcmd = shift;
-$host = "10.0.2.2";
-
-# wait while network is up
-$ping = Net::Ping->new("icmp");
-
-while (!$ping->ping($host))
-{
- print "### autotest $host is down, retrying...\n";
-}
-
-print "### autotest $host is up, connecting...\n";
-
-my $client = new IO::Socket::INET(PeerAddr => "$host:7183");
-exit unless $client;
-
-select $client;
-
-&execprint('git pull') == 0 || die "error updating from repo\n";
-&execprint('perl tests/autotest-local.pl') == 0 || die "error launching tests\n";
-system($exitcmd);