summaryrefslogtreecommitdiff
path: root/tests/autotest-remote-server.pl
diff options
context:
space:
mode:
authorarseny.kapoulkine <arseny.kapoulkine@99668b35-9821-0410-8761-19e4c4f06640>2010-06-02 20:29:03 +0000
committerarseny.kapoulkine <arseny.kapoulkine@99668b35-9821-0410-8761-19e4c4f06640>2010-06-02 20:29:03 +0000
commit63e29e1d1ef8ee37f21b2d9852eba9959d00b82f (patch)
tree560874a0cd187e107a028f57b94b2d537b70dad4 /tests/autotest-remote-server.pl
parent366c6d8241c77f0b23f33027e7f45c77f78c00f6 (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.pl16
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();