diff options
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>); |