diff options
author | arseny.kapoulkine <arseny.kapoulkine@99668b35-9821-0410-8761-19e4c4f06640> | 2010-06-02 20:29:03 +0000 |
---|---|---|
committer | arseny.kapoulkine <arseny.kapoulkine@99668b35-9821-0410-8761-19e4c4f06640> | 2010-06-02 20:29:03 +0000 |
commit | 63e29e1d1ef8ee37f21b2d9852eba9959d00b82f (patch) | |
tree | 560874a0cd187e107a028f57b94b2d537b70dad4 /tests/autotest-remote-server.pl | |
parent | 366c6d8241c77f0b23f33027e7f45c77f78c00f6 (diff) |
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
Diffstat (limited to 'tests/autotest-remote-server.pl')
-rw-r--r-- | tests/autotest-remote-server.pl | 16 |
1 files changed, 13 insertions, 3 deletions
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(); |