From 63e29e1d1ef8ee37f21b2d9852eba9959d00b82f Mon Sep 17 00:00:00 2001 From: "arseny.kapoulkine" Date: Wed, 2 Jun 2010 20:29:03 +0000 Subject: tests: Fixed report CSS, VMs are now started in minimized state (GUI mode) git-svn-id: http://pugixml.googlecode.com/svn/trunk@501 99668b35-9821-0410-8761-19e4c4f06640 --- tests/autotest-remote-server.pl | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'tests/autotest-remote-server.pl') diff --git a/tests/autotest-remote-server.pl b/tests/autotest-remote-server.pl index 970476c..a8410a1 100644 --- a/tests/autotest-remote-server.pl +++ b/tests/autotest-remote-server.pl @@ -3,15 +3,25 @@ use IO::Socket; $vm = shift; +$log = shift; +# start virtualbox gui in minimized mode - this should be the first thing we do since this process +# inherits all handles and we want our sockets/log file closed +system("start /min virtualbox --startvm $vm"); + +# start a server; vm will connect to the server via autotest-remote-host.pl my $server = new IO::Socket::INET(LocalPort => 7183, Listen => 1); die "Could not create socket: $!\n" unless $server; -system("vboxmanage startvm $vm --type headless"); +open LOG, ">> $log" || die "Could not open log file: $!\n"; -print "Listening for connection...\n"; +print LOG "Listening for connection...\n"; my $client = $server->accept(); -print while (<$client>); +# echo all input to log file +print LOG $_ while (<$client>); +close LOG; +$client->close(); +$server->close(); -- cgit v1.2.3