sl@0: # Copyright (c) 2006-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: # All rights reserved.
sl@0: # This component and the accompanying materials are made available
sl@0: # under the terms of "Eclipse Public License v1.0"
sl@0: # which accompanies this distribution, and is available
sl@0: # at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: #
sl@0: # Initial Contributors:
sl@0: # Nokia Corporation - initial contribution.
sl@0: #
sl@0: # Contributors:
sl@0: #
sl@0: # Description:
sl@0: #
sl@0: 
sl@0: use File::Copy;
sl@0: use File::Path;
sl@0: use FindBin;
sl@0: use lib $FindBin::Bin;
sl@0: use Win32::Process; 
sl@0: use Win32; 
sl@0: use Win32::Job;
sl@0: 
sl@0: my $platform = "winscw";
sl@0: my $screens = 2;
sl@0: 
sl@0: # ------------------------------------------------------------------------------------------------------------------------------------- #
sl@0: #             log-id				wins/winscw	executable	test-context					wsini selection					#of screens #
sl@0: # ------------------------------------------------------------------------------------------------------------------------------------- #
sl@0: &RunWservTest("normal",				$platform, "auto", 		"autou.cfg", 					"wservu.ini",					$screens);
sl@0: &RunWservTest("sparse", 			$platform, "auto", 		"autou_sparse.cfg", 			"wservu_sparse.ini",			$screens);
sl@0: &RunWservTest("sparse_nodefault", 	$platform, "auto", 		"autou_sparse_nodefault.cfg",	"wservu_sparse_nodefault.ini",	$screens);
sl@0: exit;
sl@0: 
sl@0: sub RunWservTest()
sl@0: {
sl@0:   my $session = shift;
sl@0:   my $plat = shift;
sl@0:   my $exe = shift;
sl@0:   my $cfg = shift;
sl@0:   my $wservu = shift;
sl@0:   my $nScreens = shift;
sl@0:   
sl@0:   my $epocDir = "\\epoc32\\release\\$plat\\udeb\\";
sl@0:   my $epocEmulator = $epocDir."epoc.exe";
sl@0: 
sl@0:   my $wsini = $epocDir."z\\system\\data\\wsini.ini";
sl@0:   my $wsiniBackup = $wsini.".bak";
sl@0:   
sl@0:   my $epocFile = "\\epoc32\\data\\epoc.ini";
sl@0:   my $epocBackup = $epocFile.".bak";
sl@0: 
sl@0:   # backup original epoc.ini and wsini.ini	
sl@0:   &DoCopy($epocFile, $epocBackup) if (!-f $epocBackup);
sl@0:   &DoCopy($wsini, $wsiniBackup) if (!-f $wsiniBackup);
sl@0: 
sl@0:   print "Mnt install\n";
sl@0:   my $wservDir = ".";
sl@0:   &StartMntCommand($wservDir, $plat, $wservu, $cfg);
sl@0: 
sl@0:   $exeFile = $epocDir.$exe.".exe";
sl@0:   if (-f $exeFile)
sl@0:   {
sl@0: 	$epocEmulator = $exeFile;
sl@0:   }
sl@0:   else
sl@0:   {
sl@0: 	&AddShellCmd($wsini, $exe);
sl@0:   }
sl@0: 
sl@0:   if ($nScreens > 1)
sl@0:   {
sl@0: 	&CreateEpocMultiScreen($epocFile, $wsini, $nScreens);
sl@0:   }
sl@0:   
sl@0:   my $job = Win32::Job->new;
sl@0:   if (!$job) { &ErrorReport(); next; }
sl@0: 
sl@0:   print "Running wserv test $session...";
sl@0:   my $spawned = $job->spawn($epocEmulator, 'epoc.exe');
sl@0:   if (!$spawned) { &ErrorReport(); next; }
sl@0: 
sl@0:   my $timeout = 45;
sl@0:   my $ok = $job->run($timeout * 60); 
sl@0:   warn "WARNING: Process \"$epocEmulator\" killed due to timeout.\n" if (!$ok);
sl@0: 	
sl@0:   print "done\n";
sl@0:   
sl@0:   # save wserv.log
sl@0:   my $logDir = "\\epoc32\\$plat\\c\\data\\";
sl@0:   my $wservLog = $logDir."wserv.log";
sl@0:   my $logBackup = $logDir."wserv_$session.log";
sl@0:   &DoCopy($wservLog, $logBackup);
sl@0:   
sl@0:   
sl@0:   # restore original epoc.ini and wsini.ini
sl@0:   &DoCopy($wsiniBackup, $wsini);
sl@0:   &DoCopy($epocBackup, $epocFile);
sl@0:   
sl@0:   # remove auto.cfg
sl@0:   system("del /f /q \\epoc32\\release\\$plat\\udeb\\z\\system\\data\\auto.cfg");
sl@0: }
sl@0: 
sl@0: sub StartMntCommand()
sl@0: {
sl@0:   my $wservDir = shift;
sl@0:   my $plat = shift;
sl@0:   my $wservu = shift;
sl@0:   my $autou = shift;
sl@0: 
sl@0:   &DoCopy("$wservDir\\..\\group\\system.ini", "\\epoc32\\data\\");
sl@0:   &MntDoInstall($wservDir, $plat, 'udeb', $wservu, $autou);
sl@0:   &MntDoInstall($wservDir, $plat, 'urel', $wservu, $autou);
sl@0: }
sl@0: 
sl@0: sub MntDoInstall()
sl@0: {
sl@0:   my $wservDir = shift;
sl@0:   my $plat = shift;
sl@0:   my $UrelUdeb = shift;
sl@0:   my $whatFile = shift;
sl@0:   my $autoCfg = shift;
sl@0: 
sl@0:   my $dataDir   = "\\epoc32\\release\\$plat\\$UrelUdeb\\z\\system\\data\\";
sl@0:   mkpath($dataDir);
sl@0:   &DoCopy("$wservDir\\..\\group\\$whatFile",    $dataDir.'wsini.ini');
sl@0:   &DoCopy("$wservDir\\..\\group\\$autoCfg",     $dataDir.'auto.cfg');  
sl@0: }
sl@0: 
sl@0: sub AddShellCmd
sl@0: {
sl@0:   my $file = shift;
sl@0:   my $cmd = shift;
sl@0: 
sl@0:   my $string = &ascii_to_utf16("SHELLCMD $cmd");
sl@0: 
sl@0:   &Write_UTF16_Newline($file);
sl@0: 
sl@0:   open(FILE, ">>$file") or warn "WARNING: Could not open file: $!\n";
sl@0:   print FILE $string;
sl@0:   close FILE;
sl@0: 
sl@0:   &Write_UTF16_Newline($file);
sl@0: }
sl@0: 
sl@0: sub Write_UTF16_Newline
sl@0: {
sl@0:   my $file = shift;
sl@0: 
sl@0:   open(BIN, ">>$file") or warn "WARNING: Could not open \"$file\": $!\n";
sl@0:   binmode BIN;
sl@0:   sysseek BIN, 0, SEEK_END;
sl@0:   syswrite BIN, "\x0D\x00\x0A\x00" or warn "WARNING: Could not write to file\n";
sl@0:   close BIN;
sl@0: }
sl@0: 
sl@0: # Function that accepts an ASCII string and returns the same string in UTF16
sl@0: sub ascii_to_utf16 {
sl@0:   my $utf16_string = "";
sl@0:   my $ascii_string = shift;
sl@0:   my $lengthofstring = length($ascii_string);
sl@0: 
sl@0:   for (my $count=1; $count<=$lengthofstring; $count++)
sl@0:   {
sl@0:     my $char = substr($ascii_string,$count-1,1);
sl@0:     $utf16_string .= $char;
sl@0:     $utf16_string .= "\x00";
sl@0:   }
sl@0: 
sl@0:   return $utf16_string;
sl@0: }
sl@0: 
sl@0: sub	ProduceWServResult()
sl@0: {
sl@0: 	$plat = shift;
sl@0: 	$subDir = shift;
sl@0: 	$handleFileTable = shift;	
sl@0:   $wservTestResStatistic = shift;
sl@0: 
sl@0:   $background = 0;
sl@0: 
sl@0:   $wservTestResStatistic = "";
sl@0:   $duration = "";
sl@0:   
sl@0: 	my $result = "PASS";
sl@0: 
sl@0:   open TEMPLOGFILE, ">>\\work.txt";
sl@0:   print TEMPLOGFILE "Start ProduceWServResult: plat $plat,subDir $subDir,handleFileTable $handleFileTable,background $background\n";
sl@0:   close TEMPLOGFILE;
sl@0: 
sl@0: 	$logFile = "$ENV{EPOCROOT}epoc32\\$plat\\c\\data\\WSERV.LOG";
sl@0: 
sl@0:   open LOGFILEWSERV, "$logFile" or $logWSFileRes = -1;
sl@0:   $CurWinServTestNumber = 0;
sl@0:   $CurWinServTestName = "";
sl@0:   $wservTestDuration = 0;
sl@0:   $wservFullTestDuration = 0;
sl@0: 
sl@0: 	print "result ws : $logWSFileRes\n";
sl@0: 
sl@0:   $fileLogWServDest = "$subDir\\1_wserv.htm";
sl@0:   open FILELOGDEST, ">$fileLogWServDest";#	or die "Can't open file: $fileLogWServDest! \n";
sl@0:   print FILELOGDEST  "<pre>";
sl@0: 
sl@0:   while($_ = <LOGFILEWSERV>)
sl@0: 	{
sl@0:     if(/\s(\d+\.\d\d\d)/)
sl@0:     {
sl@0:       $wservTestDuration = $1;
sl@0:     }
sl@0:     else
sl@0:     {
sl@0:       $wservTestDuration = 0;
sl@0:     }
sl@0:     $wservFullTestDuration +=  $wservTestDuration;
sl@0: 
sl@0:     if(/AUTO New Test: /)
sl@0: 		{
sl@0:       $wservFullTestDuration = $wservTestDuration;
sl@0: 
sl@0:       if($CurWinServTestNumber != 0) #previos test was inconclusive
sl@0:       {
sl@0:         $Inconclusive++;
sl@0:         $result = "INCONCLUSIVE";
sl@0:         OutputWServerTestResultToTable(FILERES, $background, $result,
sl@0:            $CurWinServTestName, $fileLogWServDest, $wservFullTestDuration);
sl@0:         $background = !$background;
sl@0:         print FILELOGDEST  "</pre>";
sl@0:         close FILELOGDEST;
sl@0:       }
sl@0: 
sl@0:       if(/Test (\d+),(.+\w)(\s+\d\.)/)
sl@0:       {
sl@0:         $CurWinServTestNumber = $1;
sl@0:         $CurWinServTestName = $2;
sl@0:       }
sl@0:       else
sl@0:       {
sl@0:         /Test (\d+),(.+)/;
sl@0:         $CurWinServTestNumber = $1;
sl@0:         $CurWinServTestName = $2;
sl@0:       }
sl@0: 
sl@0: 
sl@0:       if($CurWinServTestNumber > 1)
sl@0:       {
sl@0:           $fileLogWServDest = "$subDir\\$CurWinServTestNumber" . "_wserv.htm";
sl@0:           open FILELOGDEST, ">$fileLogWServDest";#	or die "Can't open file: $fileLogWServDest! \n";
sl@0:           print FILELOGDEST  "<pre>";
sl@0:       }
sl@0:     }
sl@0:     elsif(/AUTO TEST RESULT: /)
sl@0: 		{
sl@0:       $CurWinServTestNumber = 0;
sl@0: 
sl@0:       /AUTO TEST RESULT: (\w+)/;
sl@0:       $TestResult = $1;
sl@0:       if($TestResult eq "PASS")
sl@0:       {
sl@0:         $col = "#008000";
sl@0:         $result = $TestResult;
sl@0:         $Pass++;
sl@0:       }
sl@0:       elsif($TestResult eq "FAIL")
sl@0:       {
sl@0:         $col = "#ff0000";
sl@0:         $result = $TestResult;
sl@0:         $Failed++;
sl@0:       }
sl@0:       else
sl@0:       {
sl@0:         $col = "#0000ff";
sl@0:         $Unknown++;
sl@0:         $result = "N/A";
sl@0:       }
sl@0:       
sl@0:       if($wservFullTestDuration =~ /(\d+\.\d{0,3})/)
sl@0:       {
sl@0:         $wservFullTestDuration = $1;
sl@0:       }
sl@0: 
sl@0:       #output result to the file
sl@0:       OutputWServerTestResultToTable(FILERES, $background, $result,
sl@0:           $CurWinServTestName, $fileLogWServDest, $wservFullTestDuration);
sl@0:       $background = !$background;
sl@0:       print FILELOGDEST "<FONT COLOR=\"$col\">$_</FONT><br>";
sl@0: 
sl@0:       print FILELOGDEST  "</pre>";
sl@0:       close FILELOGDEST;
sl@0: 		}
sl@0:     if(/AUTO Testing Complete, (.*)(\d+\.\d{0,3})/)
sl@0:     {
sl@0:       $wservTestResStatistic = $1;
sl@0:     }
sl@0: 
sl@0:     if(/AUTO Failed /)
sl@0:     {
sl@0:        print FILELOGDEST "<FONT COLOR=\"#ff0000\">$_</FONT><br>";
sl@0:     }
sl@0:     else
sl@0:     {
sl@0:         print FILELOGDEST "$_<br>";
sl@0:     }
sl@0: 	} #while($_ = <LOGFILEWSERV>)
sl@0: 	
sl@0:  #check if a test is inconclusive
sl@0:   if($CurWinServTestNumber != 0)
sl@0:   {
sl@0:      $CurWinServTestNumber = 0;
sl@0:      $wservFullTestDuration = $wservTestDuration;
sl@0: 
sl@0:       $wservTestResStatistic = "Inconclusive";
sl@0:       $result = "INCONCLUSIVE";
sl@0:       $Inconclusive++;
sl@0: 
sl@0:       #output result to the file
sl@0:       OutputWServerTestResultToTable(FILERES, $background, $result,
sl@0:           $CurWinServTestName, $fileLogWServDest, $wservFullTestDuration);
sl@0:       $background = !$background;
sl@0: 
sl@0:       print FILELOGDEST  "</pre>";
sl@0:       close FILELOGDEST;
sl@0:   }
sl@0:  
sl@0: 	close LOGFILEWSERV;
sl@0: 	close FILELOGDEST;
sl@0: }
sl@0: 
sl@0: sub	OutputWServerTestResultToTable()
sl@0: {
sl@0:   my $handle = shift;
sl@0:   my $background = shift;
sl@0:   my $result = shift;
sl@0:   my $TestName = shift;
sl@0:   my $WServDest = shift;
sl@0:   my $duration = shift;
sl@0: 
sl@0:   if($background == 1)
sl@0:   {
sl@0: 		    print $handle "<TR BGCOLOR='#ECECE4'><TD WIDTH=\"33%\" VALIGN=\"TOP\">\n";
sl@0:   }
sl@0:   else
sl@0:   {
sl@0: 		    print $handle "<TR><TD WIDTH=\"25%\" VALIGN=\"TOP\">\n";
sl@0:   }
sl@0: 
sl@0:   print $handle "<FONT SIZE=2><P><a href=\"$WServDest\">$TestName</FONT></TD>\n";
sl@0: 
sl@0:   print $handle "<TD WIDTH=\"25%\" VALIGN=\"TOP\">\n";
sl@0:   print $handle "<FONT SIZE=2><P>$duration</FONT></TD>\n";
sl@0: 
sl@0:   print $handle "<TD WIDTH=\"25%\" VALIGN=\"TOP\">\n";
sl@0:   print $handle "<FONT SIZE=2><P>$result</FONT></TD>\n";
sl@0:   print $handle "</TR>\n";
sl@0: }
sl@0: 
sl@0: sub DoCopy
sl@0: {
sl@0:   my $source = shift;
sl@0:   my $target = shift;
sl@0: 
sl@0:   my $out = `copy /y \"$source\" \"$target\" 2>&1`;
sl@0: 
sl@0:   if ($? && -e $target && $out =~ /Access is denied./)
sl@0:   {
sl@0:     # Target exists and is probably read only, so attempt an xcopy
sl@0:     `xcopy /y /i /r /e \"$source\" \"$target\" 2>&1`;
sl@0:   }
sl@0: 
sl@0:   warn "WARNING: Could not copy \"$source\" to \"$target\"\n" if $?;
sl@0: }
sl@0: 
sl@0: sub CreateEpocMultiScreen()
sl@0: {
sl@0:   my $epocFile = shift;
sl@0:   my $wsiniFile = shift;
sl@0:   my $nScreens = shift;
sl@0: 
sl@0:   # epoc.ini
sl@0:   open(FILE, ">>$epocFile") or warn "WARNING: Could not open file: $!\n";
sl@0:   for (my $i=1; $i<$nScreens; $i++)
sl@0:   {  
sl@0: 	  print FILE "_NewScreen_\n";
sl@0: 	  print FILE "ScreenWidth 640\n";
sl@0: 	  print FILE "ScreenHeight 240\n";
sl@0:   }  
sl@0:   close FILE
sl@0: 
sl@0:   # wsini.ini
sl@0:   &AppendLineToFile($wsiniFile, "[SCREEN0]"); 
sl@0:   for (my $i=1; $i<$nScreens; $i++)
sl@0:   {
sl@0: 	&AppendLineToFile($wsiniFile, "[SCREEN$i]");   
sl@0:   }
sl@0:  }
sl@0:  
sl@0:  sub AppendLineToFile()
sl@0:  {
sl@0:    my $file = shift;
sl@0:    my $line = shift;
sl@0:  
sl@0:    my $string = &ascii_to_utf16($line);
sl@0:  
sl@0:    &Write_UTF16_Newline($file);
sl@0:  
sl@0:    open(FILE, ">>$file") or warn "WARNING: Could not open file: $!\n";
sl@0:    print FILE $string;
sl@0:    close FILE;
sl@0:  
sl@0:    &Write_UTF16_Newline($file);
sl@0:  }
sl@0: