diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/autotest-remote-server.pl | 16 | ||||
| -rw-r--r-- | tests/autotest-report.pl | 4 |
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;
|