diff options
| author | arseny.kapoulkine <arseny.kapoulkine@99668b35-9821-0410-8761-19e4c4f06640> | 2010-05-13 16:48:46 +0000 |
|---|---|---|
| committer | arseny.kapoulkine <arseny.kapoulkine@99668b35-9821-0410-8761-19e4c4f06640> | 2010-05-13 16:48:46 +0000 |
| commit | d520ce55d9376855c82cecc596a00a86eafea062 (patch) | |
| tree | 4823a7bf7bfe778cdab539fdcc1ce7f00e42f5d0 /tests/autotest-remote-server.pl | |
| parent | 754567ece20faa10d6d4de6d8f5c421b51dd259c (diff) | |
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
Diffstat (limited to 'tests/autotest-remote-server.pl')
| -rw-r--r-- | tests/autotest-remote-server.pl | 6 |
1 files changed, 6 insertions, 0 deletions
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>); |