From d520ce55d9376855c82cecc596a00a86eafea062 Mon Sep 17 00:00:00 2001 From: "arseny.kapoulkine" Date: Thu, 13 May 2010 16:48:46 +0000 Subject: tests: Added wait for server to remote host, added automatic VM launch git-svn-id: http://pugixml.googlecode.com/svn/trunk@423 99668b35-9821-0410-8761-19e4c4f06640 --- tests/autotest-remote-host.pl | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'tests/autotest-remote-host.pl') diff --git a/tests/autotest-remote-host.pl b/tests/autotest-remote-host.pl index 91d929a..5abef1e 100644 --- a/tests/autotest-remote-host.pl +++ b/tests/autotest-remote-host.pl @@ -12,10 +12,22 @@ sub execprint } use IO::Socket; +use Net::Ping; $exitcmd = shift; +$host = "10.0.2.2"; -my $client = new IO::Socket::INET(PeerAddr => "10.0.2.2:7183", Timeout => 5); +# 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; -- cgit v1.2.3