summaryrefslogtreecommitdiff
path: root/tests/autotest-remote-host.pl
diff options
context:
space:
mode:
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);