From d520ce55d9376855c82cecc596a00a86eafea062 Mon Sep 17 00:00:00 2001
From: "arseny.kapoulkine"
 <arseny.kapoulkine@99668b35-9821-0410-8761-19e4c4f06640>
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 +++++++++++++-
 tests/autotest-remote-server.pl |  6 ++++++
 2 files changed, 19 insertions(+), 1 deletion(-)

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;
diff --git a/tests/autotest-remote-server.pl b/tests/autotest-remote-server.pl
index e113808..9b7e8c1 100644
--- a/tests/autotest-remote-server.pl
+++ b/tests/autotest-remote-server.pl
@@ -2,9 +2,15 @@
 
 use IO::Socket;
 
+$vm = shift;
+
 my $server = new IO::Socket::INET(LocalPort => 7183, Listen => 1);
 die "Could not create socket: $!\n" unless $server;
 
+system("vboxmanage startvm $vm --type gui");
+
+print "Listening for connection...\n";
+
 my $client = $server->accept();
 
 print while (<$client>);
-- 
cgit v1.2.3