summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/autotest-remote-server.pl16
-rw-r--r--tests/autotest-report.pl4
2 files changed, 15 insertions, 5 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();
diff --git a/tests/autotest-report.pl b/tests/autotest-report.pl
index c318b93..8ed8dd9 100644
--- a/tests/autotest-report.pl
+++ b/tests/autotest-report.pl
@@ -109,8 +109,8 @@ $configurationarray[$configurations{$_}] = $_ foreach (keys %configurations);
# print header
$stylesheet = <<END;
-table.autotest { border: 1px solid; border-left: none; border-top: none; }
-table.autotest td { border: 1px solid; border-right: none; border-bottom: none; }
+table.autotest { border: 1px solid black; border-left: none; border-top: none; }
+table.autotest td { border: 1px solid black; border-right: none; border-bottom: none; }
END
print <<END;