diff options
author | arseny.kapoulkine <arseny.kapoulkine@99668b35-9821-0410-8761-19e4c4f06640> | 2010-06-02 20:29:03 +0000 |
---|---|---|
committer | arseny.kapoulkine <arseny.kapoulkine@99668b35-9821-0410-8761-19e4c4f06640> | 2010-06-02 20:29:03 +0000 |
commit | 63e29e1d1ef8ee37f21b2d9852eba9959d00b82f (patch) | |
tree | 560874a0cd187e107a028f57b94b2d537b70dad4 /tests | |
parent | 366c6d8241c77f0b23f33027e7f45c77f78c00f6 (diff) |
tests: Fixed report CSS, VMs are now started in minimized state (GUI mode)
git-svn-id: http://pugixml.googlecode.com/svn/trunk@501 99668b35-9821-0410-8761-19e4c4f06640
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;
|