1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/graphics/windowing/windowserver/group/runtest.pl Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,412 @@
1.4 +# Copyright (c) 2006-2009 Nokia Corporation and/or its subsidiary(-ies).
1.5 +# All rights reserved.
1.6 +# This component and the accompanying materials are made available
1.7 +# under the terms of "Eclipse Public License v1.0"
1.8 +# which accompanies this distribution, and is available
1.9 +# at the URL "http://www.eclipse.org/legal/epl-v10.html".
1.10 +#
1.11 +# Initial Contributors:
1.12 +# Nokia Corporation - initial contribution.
1.13 +#
1.14 +# Contributors:
1.15 +#
1.16 +# Description:
1.17 +#
1.18 +
1.19 +use File::Copy;
1.20 +use File::Path;
1.21 +use FindBin;
1.22 +use lib $FindBin::Bin;
1.23 +use Win32::Process;
1.24 +use Win32;
1.25 +use Win32::Job;
1.26 +
1.27 +my $platform = "winscw";
1.28 +my $screens = 2;
1.29 +
1.30 +# ------------------------------------------------------------------------------------------------------------------------------------- #
1.31 +# log-id wins/winscw executable test-context wsini selection #of screens #
1.32 +# ------------------------------------------------------------------------------------------------------------------------------------- #
1.33 +&RunWservTest("normal", $platform, "auto", "autou.cfg", "wservu.ini", $screens);
1.34 +&RunWservTest("sparse", $platform, "auto", "autou_sparse.cfg", "wservu_sparse.ini", $screens);
1.35 +&RunWservTest("sparse_nodefault", $platform, "auto", "autou_sparse_nodefault.cfg", "wservu_sparse_nodefault.ini", $screens);
1.36 +exit;
1.37 +
1.38 +sub RunWservTest()
1.39 +{
1.40 + my $session = shift;
1.41 + my $plat = shift;
1.42 + my $exe = shift;
1.43 + my $cfg = shift;
1.44 + my $wservu = shift;
1.45 + my $nScreens = shift;
1.46 +
1.47 + my $epocDir = "\\epoc32\\release\\$plat\\udeb\\";
1.48 + my $epocEmulator = $epocDir."epoc.exe";
1.49 +
1.50 + my $wsini = $epocDir."z\\system\\data\\wsini.ini";
1.51 + my $wsiniBackup = $wsini.".bak";
1.52 +
1.53 + my $epocFile = "\\epoc32\\data\\epoc.ini";
1.54 + my $epocBackup = $epocFile.".bak";
1.55 +
1.56 + # backup original epoc.ini and wsini.ini
1.57 + &DoCopy($epocFile, $epocBackup) if (!-f $epocBackup);
1.58 + &DoCopy($wsini, $wsiniBackup) if (!-f $wsiniBackup);
1.59 +
1.60 + print "Mnt install\n";
1.61 + my $wservDir = ".";
1.62 + &StartMntCommand($wservDir, $plat, $wservu, $cfg);
1.63 +
1.64 + $exeFile = $epocDir.$exe.".exe";
1.65 + if (-f $exeFile)
1.66 + {
1.67 + $epocEmulator = $exeFile;
1.68 + }
1.69 + else
1.70 + {
1.71 + &AddShellCmd($wsini, $exe);
1.72 + }
1.73 +
1.74 + if ($nScreens > 1)
1.75 + {
1.76 + &CreateEpocMultiScreen($epocFile, $wsini, $nScreens);
1.77 + }
1.78 +
1.79 + my $job = Win32::Job->new;
1.80 + if (!$job) { &ErrorReport(); next; }
1.81 +
1.82 + print "Running wserv test $session...";
1.83 + my $spawned = $job->spawn($epocEmulator, 'epoc.exe');
1.84 + if (!$spawned) { &ErrorReport(); next; }
1.85 +
1.86 + my $timeout = 45;
1.87 + my $ok = $job->run($timeout * 60);
1.88 + warn "WARNING: Process \"$epocEmulator\" killed due to timeout.\n" if (!$ok);
1.89 +
1.90 + print "done\n";
1.91 +
1.92 + # save wserv.log
1.93 + my $logDir = "\\epoc32\\$plat\\c\\data\\";
1.94 + my $wservLog = $logDir."wserv.log";
1.95 + my $logBackup = $logDir."wserv_$session.log";
1.96 + &DoCopy($wservLog, $logBackup);
1.97 +
1.98 +
1.99 + # restore original epoc.ini and wsini.ini
1.100 + &DoCopy($wsiniBackup, $wsini);
1.101 + &DoCopy($epocBackup, $epocFile);
1.102 +
1.103 + # remove auto.cfg
1.104 + system("del /f /q \\epoc32\\release\\$plat\\udeb\\z\\system\\data\\auto.cfg");
1.105 +}
1.106 +
1.107 +sub StartMntCommand()
1.108 +{
1.109 + my $wservDir = shift;
1.110 + my $plat = shift;
1.111 + my $wservu = shift;
1.112 + my $autou = shift;
1.113 +
1.114 + &DoCopy("$wservDir\\..\\group\\system.ini", "\\epoc32\\data\\");
1.115 + &MntDoInstall($wservDir, $plat, 'udeb', $wservu, $autou);
1.116 + &MntDoInstall($wservDir, $plat, 'urel', $wservu, $autou);
1.117 +}
1.118 +
1.119 +sub MntDoInstall()
1.120 +{
1.121 + my $wservDir = shift;
1.122 + my $plat = shift;
1.123 + my $UrelUdeb = shift;
1.124 + my $whatFile = shift;
1.125 + my $autoCfg = shift;
1.126 +
1.127 + my $dataDir = "\\epoc32\\release\\$plat\\$UrelUdeb\\z\\system\\data\\";
1.128 + mkpath($dataDir);
1.129 + &DoCopy("$wservDir\\..\\group\\$whatFile", $dataDir.'wsini.ini');
1.130 + &DoCopy("$wservDir\\..\\group\\$autoCfg", $dataDir.'auto.cfg');
1.131 +}
1.132 +
1.133 +sub AddShellCmd
1.134 +{
1.135 + my $file = shift;
1.136 + my $cmd = shift;
1.137 +
1.138 + my $string = &ascii_to_utf16("SHELLCMD $cmd");
1.139 +
1.140 + &Write_UTF16_Newline($file);
1.141 +
1.142 + open(FILE, ">>$file") or warn "WARNING: Could not open file: $!\n";
1.143 + print FILE $string;
1.144 + close FILE;
1.145 +
1.146 + &Write_UTF16_Newline($file);
1.147 +}
1.148 +
1.149 +sub Write_UTF16_Newline
1.150 +{
1.151 + my $file = shift;
1.152 +
1.153 + open(BIN, ">>$file") or warn "WARNING: Could not open \"$file\": $!\n";
1.154 + binmode BIN;
1.155 + sysseek BIN, 0, SEEK_END;
1.156 + syswrite BIN, "\x0D\x00\x0A\x00" or warn "WARNING: Could not write to file\n";
1.157 + close BIN;
1.158 +}
1.159 +
1.160 +# Function that accepts an ASCII string and returns the same string in UTF16
1.161 +sub ascii_to_utf16 {
1.162 + my $utf16_string = "";
1.163 + my $ascii_string = shift;
1.164 + my $lengthofstring = length($ascii_string);
1.165 +
1.166 + for (my $count=1; $count<=$lengthofstring; $count++)
1.167 + {
1.168 + my $char = substr($ascii_string,$count-1,1);
1.169 + $utf16_string .= $char;
1.170 + $utf16_string .= "\x00";
1.171 + }
1.172 +
1.173 + return $utf16_string;
1.174 +}
1.175 +
1.176 +sub ProduceWServResult()
1.177 +{
1.178 + $plat = shift;
1.179 + $subDir = shift;
1.180 + $handleFileTable = shift;
1.181 + $wservTestResStatistic = shift;
1.182 +
1.183 + $background = 0;
1.184 +
1.185 + $wservTestResStatistic = "";
1.186 + $duration = "";
1.187 +
1.188 + my $result = "PASS";
1.189 +
1.190 + open TEMPLOGFILE, ">>\\work.txt";
1.191 + print TEMPLOGFILE "Start ProduceWServResult: plat $plat,subDir $subDir,handleFileTable $handleFileTable,background $background\n";
1.192 + close TEMPLOGFILE;
1.193 +
1.194 + $logFile = "$ENV{EPOCROOT}epoc32\\$plat\\c\\data\\WSERV.LOG";
1.195 +
1.196 + open LOGFILEWSERV, "$logFile" or $logWSFileRes = -1;
1.197 + $CurWinServTestNumber = 0;
1.198 + $CurWinServTestName = "";
1.199 + $wservTestDuration = 0;
1.200 + $wservFullTestDuration = 0;
1.201 +
1.202 + print "result ws : $logWSFileRes\n";
1.203 +
1.204 + $fileLogWServDest = "$subDir\\1_wserv.htm";
1.205 + open FILELOGDEST, ">$fileLogWServDest";# or die "Can't open file: $fileLogWServDest! \n";
1.206 + print FILELOGDEST "<pre>";
1.207 +
1.208 + while($_ = <LOGFILEWSERV>)
1.209 + {
1.210 + if(/\s(\d+\.\d\d\d)/)
1.211 + {
1.212 + $wservTestDuration = $1;
1.213 + }
1.214 + else
1.215 + {
1.216 + $wservTestDuration = 0;
1.217 + }
1.218 + $wservFullTestDuration += $wservTestDuration;
1.219 +
1.220 + if(/AUTO New Test: /)
1.221 + {
1.222 + $wservFullTestDuration = $wservTestDuration;
1.223 +
1.224 + if($CurWinServTestNumber != 0) #previos test was inconclusive
1.225 + {
1.226 + $Inconclusive++;
1.227 + $result = "INCONCLUSIVE";
1.228 + OutputWServerTestResultToTable(FILERES, $background, $result,
1.229 + $CurWinServTestName, $fileLogWServDest, $wservFullTestDuration);
1.230 + $background = !$background;
1.231 + print FILELOGDEST "</pre>";
1.232 + close FILELOGDEST;
1.233 + }
1.234 +
1.235 + if(/Test (\d+),(.+\w)(\s+\d\.)/)
1.236 + {
1.237 + $CurWinServTestNumber = $1;
1.238 + $CurWinServTestName = $2;
1.239 + }
1.240 + else
1.241 + {
1.242 + /Test (\d+),(.+)/;
1.243 + $CurWinServTestNumber = $1;
1.244 + $CurWinServTestName = $2;
1.245 + }
1.246 +
1.247 +
1.248 + if($CurWinServTestNumber > 1)
1.249 + {
1.250 + $fileLogWServDest = "$subDir\\$CurWinServTestNumber" . "_wserv.htm";
1.251 + open FILELOGDEST, ">$fileLogWServDest";# or die "Can't open file: $fileLogWServDest! \n";
1.252 + print FILELOGDEST "<pre>";
1.253 + }
1.254 + }
1.255 + elsif(/AUTO TEST RESULT: /)
1.256 + {
1.257 + $CurWinServTestNumber = 0;
1.258 +
1.259 + /AUTO TEST RESULT: (\w+)/;
1.260 + $TestResult = $1;
1.261 + if($TestResult eq "PASS")
1.262 + {
1.263 + $col = "#008000";
1.264 + $result = $TestResult;
1.265 + $Pass++;
1.266 + }
1.267 + elsif($TestResult eq "FAIL")
1.268 + {
1.269 + $col = "#ff0000";
1.270 + $result = $TestResult;
1.271 + $Failed++;
1.272 + }
1.273 + else
1.274 + {
1.275 + $col = "#0000ff";
1.276 + $Unknown++;
1.277 + $result = "N/A";
1.278 + }
1.279 +
1.280 + if($wservFullTestDuration =~ /(\d+\.\d{0,3})/)
1.281 + {
1.282 + $wservFullTestDuration = $1;
1.283 + }
1.284 +
1.285 + #output result to the file
1.286 + OutputWServerTestResultToTable(FILERES, $background, $result,
1.287 + $CurWinServTestName, $fileLogWServDest, $wservFullTestDuration);
1.288 + $background = !$background;
1.289 + print FILELOGDEST "<FONT COLOR=\"$col\">$_</FONT><br>";
1.290 +
1.291 + print FILELOGDEST "</pre>";
1.292 + close FILELOGDEST;
1.293 + }
1.294 + if(/AUTO Testing Complete, (.*)(\d+\.\d{0,3})/)
1.295 + {
1.296 + $wservTestResStatistic = $1;
1.297 + }
1.298 +
1.299 + if(/AUTO Failed /)
1.300 + {
1.301 + print FILELOGDEST "<FONT COLOR=\"#ff0000\">$_</FONT><br>";
1.302 + }
1.303 + else
1.304 + {
1.305 + print FILELOGDEST "$_<br>";
1.306 + }
1.307 + } #while($_ = <LOGFILEWSERV>)
1.308 +
1.309 + #check if a test is inconclusive
1.310 + if($CurWinServTestNumber != 0)
1.311 + {
1.312 + $CurWinServTestNumber = 0;
1.313 + $wservFullTestDuration = $wservTestDuration;
1.314 +
1.315 + $wservTestResStatistic = "Inconclusive";
1.316 + $result = "INCONCLUSIVE";
1.317 + $Inconclusive++;
1.318 +
1.319 + #output result to the file
1.320 + OutputWServerTestResultToTable(FILERES, $background, $result,
1.321 + $CurWinServTestName, $fileLogWServDest, $wservFullTestDuration);
1.322 + $background = !$background;
1.323 +
1.324 + print FILELOGDEST "</pre>";
1.325 + close FILELOGDEST;
1.326 + }
1.327 +
1.328 + close LOGFILEWSERV;
1.329 + close FILELOGDEST;
1.330 +}
1.331 +
1.332 +sub OutputWServerTestResultToTable()
1.333 +{
1.334 + my $handle = shift;
1.335 + my $background = shift;
1.336 + my $result = shift;
1.337 + my $TestName = shift;
1.338 + my $WServDest = shift;
1.339 + my $duration = shift;
1.340 +
1.341 + if($background == 1)
1.342 + {
1.343 + print $handle "<TR BGCOLOR='#ECECE4'><TD WIDTH=\"33%\" VALIGN=\"TOP\">\n";
1.344 + }
1.345 + else
1.346 + {
1.347 + print $handle "<TR><TD WIDTH=\"25%\" VALIGN=\"TOP\">\n";
1.348 + }
1.349 +
1.350 + print $handle "<FONT SIZE=2><P><a href=\"$WServDest\">$TestName</FONT></TD>\n";
1.351 +
1.352 + print $handle "<TD WIDTH=\"25%\" VALIGN=\"TOP\">\n";
1.353 + print $handle "<FONT SIZE=2><P>$duration</FONT></TD>\n";
1.354 +
1.355 + print $handle "<TD WIDTH=\"25%\" VALIGN=\"TOP\">\n";
1.356 + print $handle "<FONT SIZE=2><P>$result</FONT></TD>\n";
1.357 + print $handle "</TR>\n";
1.358 +}
1.359 +
1.360 +sub DoCopy
1.361 +{
1.362 + my $source = shift;
1.363 + my $target = shift;
1.364 +
1.365 + my $out = `copy /y \"$source\" \"$target\" 2>&1`;
1.366 +
1.367 + if ($? && -e $target && $out =~ /Access is denied./)
1.368 + {
1.369 + # Target exists and is probably read only, so attempt an xcopy
1.370 + `xcopy /y /i /r /e \"$source\" \"$target\" 2>&1`;
1.371 + }
1.372 +
1.373 + warn "WARNING: Could not copy \"$source\" to \"$target\"\n" if $?;
1.374 +}
1.375 +
1.376 +sub CreateEpocMultiScreen()
1.377 +{
1.378 + my $epocFile = shift;
1.379 + my $wsiniFile = shift;
1.380 + my $nScreens = shift;
1.381 +
1.382 + # epoc.ini
1.383 + open(FILE, ">>$epocFile") or warn "WARNING: Could not open file: $!\n";
1.384 + for (my $i=1; $i<$nScreens; $i++)
1.385 + {
1.386 + print FILE "_NewScreen_\n";
1.387 + print FILE "ScreenWidth 640\n";
1.388 + print FILE "ScreenHeight 240\n";
1.389 + }
1.390 + close FILE
1.391 +
1.392 + # wsini.ini
1.393 + &AppendLineToFile($wsiniFile, "[SCREEN0]");
1.394 + for (my $i=1; $i<$nScreens; $i++)
1.395 + {
1.396 + &AppendLineToFile($wsiniFile, "[SCREEN$i]");
1.397 + }
1.398 + }
1.399 +
1.400 + sub AppendLineToFile()
1.401 + {
1.402 + my $file = shift;
1.403 + my $line = shift;
1.404 +
1.405 + my $string = &ascii_to_utf16($line);
1.406 +
1.407 + &Write_UTF16_Newline($file);
1.408 +
1.409 + open(FILE, ">>$file") or warn "WARNING: Could not open file: $!\n";
1.410 + print FILE $string;
1.411 + close FILE;
1.412 +
1.413 + &Write_UTF16_Newline($file);
1.414 + }
1.415 +