summaryrefslogtreecommitdiff
path: root/tests/autotest-remote-server.pl
diff options
context:
space:
mode:
authorArseny Kapoulkine <arseny.kapoulkine@gmail.com>2015-04-13 20:35:26 -0700
committerArseny Kapoulkine <arseny.kapoulkine@gmail.com>2015-04-13 20:35:26 -0700
commited2c8226434a0b98562dbec16a3c6a1f2d282faa (patch)
tree2f4ddfce3c27e5c5b58be550d9db35742fe864c6 /tests/autotest-remote-server.pl
parent054b0b447eff82327c37a617849c3e20fbbb9789 (diff)
parent1c4098a7d9a5eb067ff63b5602d60d91a218b4a0 (diff)
Merge branch 'master' into compact
Diffstat (limited to 'tests/autotest-remote-server.pl')
-rw-r--r--tests/autotest-remote-server.pl33
1 files changed, 0 insertions, 33 deletions
diff --git a/tests/autotest-remote-server.pl b/tests/autotest-remote-server.pl
deleted file mode 100644
index 811c3e8..0000000
--- a/tests/autotest-remote-server.pl
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/perl
-
-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;
-
-open LOG, ">> $log" || die "Could not open log file: $!\n";
-
-print LOG "Listening for connection...\n";
-
-my $client = $server->accept();
-
-# echo all input to log file
-print LOG $_ while (<$client>);
-close LOG;
-
-$client->close();
-$server->close();
-
-# wait for vm shutdown to decrease peak memory consumption
-while (`vboxmanage showvminfo $vm` !~ /State:\s+powered off/)
-{
- sleep(1);
-}