1 #

     2 # Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).

     3 # All rights reserved.

     4 # This component and the accompanying materials are made available

     5 # under the terms of the License "Eclipse Public License v1.0"

     6 # which accompanies this distribution, and is available

     7 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     8 #

     9 # Initial Contributors:

    10 # Nokia Corporation - initial contribution.

    11 #

    12 # Contributors:

    13 #

    14 # Description:

    15 # Perl script that creates PKG files and test MAKESIS tools with different ranges

    16 # 

    17 

    18 #

    19 

    20 

    21 $logFile = "/epoc32/winscw/c/makesis_test.txt";

    22 $makesisExeLocation = "/epoc32/tools/makesis";

    23 $dumpsisExeLocation = "/epoc32/tools/dumpsis";

    24 

    25 sub GetTmpFilesCount()

    26 {

    27 	# get a number of temp files

    28 	if ($^O =~ /^MSWIN32$/i)

    29 		{

    30 		my $dirname = "$ENV{'TEMP'}";

    31 		opendir ( DIR, "$dirname" ) or die ( "Can't open dir: $dirname" ); #!

    32 		my @List = readdir DIR;

    33 		closedir DIR;

    34 		

    35 		my @TmpFiles = grep( /^~SI.*.tmp/ , @List );

    36 		}

    37 	else

    38 		{

    39 		my $dirname = "/tmp/";

    40 		opendir ( DIR, "$dirname" ) or die ( "Can't open dir: $dirname" ); #!

    41 		my @List = readdir DIR;

    42 		closedir DIR;

    43 

    44 		my @TmpFiles = grep( /tmp*/ , @List );

    45 		}

    46 

    47 	my $TmpCountBefore = @TmpFiles;

    48 	

    49 	return $TmpCountBefore;

    50 }

    51 

    52 #

    53 #Function to write log into file

    54 #

    55 sub WriteLog {

    56 	my ($log) = @_;

    57 	#public $logfile;

    58 

    59 	unless( open($fh, ">> $logFile")) {

    60 		printf STDERR "Can\'t open $logfile:$!\n";

    61 		return;

    62 	}

    63 	printf $fh $log;

    64 	printf $log;

    65 	close $fh;

    66 }

    67 

    68 

    69 #

    70 # Function to create a file (test.txt or any PKG)

    71 #

    72 sub CreateFile {

    73 	my ($filename, $contents) = @_;

    74 

    75 	unless (open($fh, "> $filename")) {

    76 		printf STDERR "Can't open $filename: $!\n";

    77 		return;

    78 	}

    79 	print $fh $contents;

    80 	close $fh;

    81 

    82 

    83 }

    84 

    85 #

    86 # Function to check the log file of the makesis result

    87 #

    88 sub CheckLog {

    89 	my ($pkgfile) = @_[0];

    90 	my ($expectedLog) = @_[1];

    91 

    92 	$logMsg = sprintf "Expected Log: %s\n", $expectedLog;

    93 	WriteLog( $logMsg);	

    94 

    95 	unless (open($resultlog, "$pkgfile.log")) {

    96 		printf STDERR "Can't open $pkgfile.log: $!\n";

    97 		return 0;

    98 	}

    99 

   100 	foreach $line (<$resultlog>) {

   101 		if ( $line =~ m/\Q$expectedLog\E/i) {

   102 			close($resultlog);

   103 			return 1;

   104 		}	

   105 	}	

   106 	close($resultlog);

   107 	return 0;

   108 }

   109 

   110 #

   111 # Run MAKESIS with prepared pkg file, log and administrate its result

   112 #

   113 sub MakeSISFile {

   114 

   115 	my ($pkgfile) = @_[0];

   116 	my ($expectedResult) = @_[1];

   117 	my ($expectedLog) = @_[2];

   118 	$pkgfile =~ s/\.pkg//;

   119 

   120 	if($pkgfile ne "testinterpretflag") {

   121 		@retval = system("$makesisExeLocation -v $pkgfile.pkg $pkgfile-tmp.sis > $pkgfile.log");

   122 	}

   123 	else {

   124 		@retval = system("$makesisExeLocation -v -c $pkgfile.pkg $pkgfile-tmp.sis > $pkgfile.log");

   125 	}

   126 

   127 	$logMsg = sprintf "Expected code:%5d   result Code:%5d\n", $expectedResult, $?;

   128 	WriteLog( $logMsg);

   129 

   130 	$NumberOfTests++;

   131 

   132 	if( $? == $expectedResult ) {

   133 		if(CheckLog($pkgfile, $expectedLog)) {

   134 			$NumberOfPassed++;

   135 			WriteLog("Passed\n\n");

   136 		}

   137 		else {

   138 			$NumberOfFailed++;

   139 			WriteLog("Failed : Unexpected Error Log\n\n");

   140 		}

   141 	}

   142 	else {

   143 		$NumberOfFailed++;

   144 		WriteLog("Failed : Unexpected Error Code\n\n");

   145 	}

   146 

   147 	unlink("$pkgfile-tmp.sis");

   148 	unlink("$pkgfile.log");

   149 	unlink("$pkgfile.pkg");

   150 

   151 }

   152 

   153 #

   154 # Additional test to check that stub files don't change every time 

   155 # they are built.

   156 #

   157 sub TestSISStubFile {

   158 

   159 	$teststubpkg = "teststub.pkg";

   160 	$teststubsis = "teststub.sis";

   161 	$comparisonsis = "comparison.sis";

   162 	$teststublog = "teststub.log";

   163 

   164 	WriteLog("Test invariant stub file\n");

   165 

   166 	# Generate test PKG file contents

   167 	$PkgFile = sprintf( $PkgFileTempl, "-1,-1,-1"); 

   168 	# Create PKG file

   169 	CreateFile($teststubpkg, $PkgFile);	

   170 

   171 	# Create a stub sis file

   172 	my $result = system("$makesisExeLocation -s $teststubpkg $teststubsis > $teststublog");

   173 	

   174 	# Wait at least a second and generate it again

   175 	sleep 2;

   176 	rename($teststubsis, $comparisonsis) or  

   177         warn "Couldn't rename $teststubsis to $comparisonsis: $!\n";

   178 

   179 	my $result2 = system("$makesisExeLocation -s $teststubpkg $teststubsis > $teststublog");

   180 

   181 	# Check that the files are the same and log the result

   182 	use File::Compare;

   183 	$NumberOfTests++;

   184 	if (compare($teststubsis, $comparisonsis) == 0 

   185 	    && $result == 0

   186 		&& $result2 == 0) 

   187 		{

   188 		$NumberOfPassed++;

   189 		WriteLog("Passed\n\n");

   190 		}

   191 	else 

   192 		{

   193 		$NumberOfFailed++;

   194 		WriteLog("Failed\n\n");

   195 		}

   196 

   197 	unlink $teststublog;

   198 	unlink $teststubpkg;

   199 	unlink $teststubsis ;

   200 	unlink $comparisonsis;

   201 }

   202 

   203 #

   204 # New test code for DEF083525 - makesis -vs does not create a stub sis file 

   205 # This is based on TestSISStubFile, it builds the stub file with -s and -vs options 

   206 # and checks the resulting files are the same.  The defects was that the "s" option

   207 # was ignored so a stub file was not built.

   208 #

   209 sub TestDEF083525 {

   210 

   211 	$teststubpkg = "teststub.pkg";

   212 	$teststubsis = "teststub.sis";

   213 	$comparisonsis = "comparison.sis";

   214 	$teststublog = "teststub.log";

   215 

   216 	WriteLog("Test for DEF083525 - makesis -vs does not create a stub sis file\n");

   217 

   218 	# Generate test PKG file contents

   219 	$PkgFile = sprintf( $PkgFileTempl, "-1,-1,-1"); 

   220 	# Create PKG file

   221 	CreateFile($teststubpkg, $PkgFile);	

   222 

   223 	# Create a stub sis file

   224 	my $result = system("$makesisExeLocation -s $teststubpkg $teststubsis > $teststublog");

   225 	

   226 	# Wait at least a second and generate it again this time using the -vs options

   227 	# This defect was that the -vs options was ignored

   228 	sleep 2;

   229 	rename $teststubsis, $comparisonsis;

   230 	my $result2 = system("$makesisExeLocation -vs $teststubpkg $teststubsis > $teststublog");

   231 

   232 	# Check that the files are the same and log the result

   233 	use File::Compare;

   234 	$NumberOfTests++;

   235 	if (compare($teststubsis, $comparisonsis) == 0 

   236 	    && $result == 0

   237 		&& $result2 == 0) 

   238 		{

   239 		$NumberOfPassed++;

   240 		WriteLog("Passed\n\n");

   241 		}

   242 	else 

   243 		{

   244 		$NumberOfFailed++;

   245 		WriteLog("Failed\n\n");

   246 		}

   247 

   248 	unlink $teststublog;

   249 	unlink $teststubpkg;

   250 	unlink $teststubsis ;

   251 	unlink $comparisonsis;

   252 }

   253 

   254 #

   255 # New test code for PDEF081989 - makesis parameter -d does not work any more. 

   256 # This creates a testembedded.sis file embedding testembedding.sis. This test checks the 

   257 # working of -d parameter where the search directory containing the embedding sis file is  

   258 # specified with -d option.

   259 #

   260 

   261 sub TestPDEF081989 {

   262 

   263 	$testembeddingpkg = "testembedding.pkg";

   264 	$testembeddingsis = "testembedding.sis";

   265 	$testembeddedpkg = "testembedded.pkg";

   266 	$testembeddedsis = "testembedded.sis";

   267 	$sisFileToEmbed = "/epoc32/winscw/c/";

   268 	$outputFile = $sisFileToEmbed.$testembeddingsis;

   269 	$testEmbedLog = "testembedded.log";

   270 

   271 	WriteLog("Test for PDEF081989 - Test for successful creation of a sis file with -d option.\n");

   272 

   273 	# Generate test PKG file contents for embedding pkg file.

   274 	$PkgFile = sprintf( $PkgFileTempl, "-1,-1,-1"); 

   275 	# Create PKG file

   276 	CreateFile($testembeddingpkg, $PkgFile);	

   277 	

   278 	# Generate test PKG file contents for embedded pkg file.

   279 	$PkgFile = sprintf( $embedContents, "-1,-1,-1"); 

   280 	# Create PKG file

   281 	CreateFile($testembeddedpkg , $PkgFile);

   282 

   283 	

   284 	# Create an embedding sis file

   285 	my $result = system("$makesisExeLocation $testembeddingpkg $outputFile > $testEmbedLog");

   286 	

   287 	# Create an embedded sis file.Here the sis file embedded is situated elsewhere(in "\\epoc32\\winscw\\c\\").

   288 	# Makesis -d option is used to specify the directory to search for sis file embedded. 

   289 	my $result1 = system("$makesisExeLocation -d$sisFileToEmbed $testembeddedpkg $testembeddedsis > $testEmbedLog");

   290 	

   291 	$NumberOfTests++;

   292 	if ($result == 0 && $result1 == 0) 

   293 		{

   294 		$NumberOfPassed++;

   295 		WriteLog("Passed\n\n");

   296 		}

   297 	else 

   298 		{

   299 		$NumberOfFailed++;

   300 		WriteLog("Failed\n\n");

   301 		}

   302 

   303 	unlink $testembeddingpkg;

   304 	unlink $outputFile;

   305 	unlink $testembeddedpkg;

   306 	unlink $testembeddedsis;

   307 	unlink $testEmbedLog;

   308 	

   309 }

   310 

   311 #

   312 # Test code for DEF104895 - makesis with -d option

   313 # This creates a testembedded.sis file embedding testembedding.sis. This test checks the 

   314 # working of -d parameter where the search directory(bacward slashes) containing the embedding sis file is  

   315 # specified with -d option.

   316 #

   317 

   318 sub TestDEF104895 {

   319 

   320 	$testembeddingpkg = "testembedding.pkg";

   321 	$testembeddingsis = "testembedding.sis";

   322 	$testembeddedpkg = "testembedded.pkg";

   323 	$testembeddedsis = "testembedded.sis";

   324 	$sisFileToEmbed = "\\epoc32\\winscw\\c\\";

   325 	$outputFile = $sisFileToEmbed.$testembeddingsis;

   326 	$testEmbedLog = "testembedded.log";

   327 

   328 	WriteLog("Test for DEF104895 - Test for successful creation of a sis file with -d option.\n");

   329 

   330 	# Generate test PKG file contents for embedding pkg file.

   331 	$PkgFile = sprintf( $PkgFileTempl, "-1,-1,-1"); 

   332 	# Create PKG file

   333 	CreateFile($testembeddingpkg, $PkgFile);	

   334 	

   335 	# Generate test PKG file contents for embedded pkg file.

   336 	$PkgFile = sprintf( $embedContents, "-1,-1,-1"); 

   337 	# Create PKG file

   338 	CreateFile($testembeddedpkg , $PkgFile);

   339 

   340 	

   341 	# Create an embedding sis file

   342 	my $result = system("$makesisExeLocation $testembeddingpkg $outputFile > $testEmbedLog");

   343 	

   344 	# Create an embedded sis file.Here the sis file embedded is situated elsewhere(in "\\epoc32\\winscw\\c\\").

   345 	# Makesis -d option is used to specify the directory to search for sis file embedded. 

   346 	my $result1 = system("$makesisExeLocation -d$sisFileToEmbed $testembeddedpkg $testembeddedsis > $testEmbedLog");

   347 	

   348 	$NumberOfTests++;

   349 	if ($result == 0 && $result1 == 0) 

   350 		{

   351 		$NumberOfPassed++;

   352 		WriteLog("Passed\n\n");

   353 		}

   354 	else 

   355 		{

   356 		$NumberOfFailed++;

   357 		WriteLog("Failed\n\n");

   358 		}

   359 

   360 	unlink $testembeddingpkg;

   361 	unlink $outputFile;

   362 	unlink $testembeddedpkg;

   363 	unlink $testembeddedsis;

   364 	unlink $testEmbedLog;

   365 	

   366 }

   367 

   368 #

   369 # New test code for DEF107033 - makesis parameter -d does not work with language dependent files

   370 # 

   371 #

   372 

   373 sub TestDEF107033() {

   374 

   375 	$testlanguagepkg = "testlanguage.pkg";

   376 	$testlanguagesis = "testlanguagesis.sis";

   377 	$testlanguagelog = "testlanguage.log";

   378 

   379 	WriteLog("Test makesis parameter -d does not work with language dependent files\n");

   380 

   381 	# Generate test PKG file contents

   382 	$PkgFile = sprintf( $PkgLanguageFileTemp); 

   383 	# Create PKG file

   384 	CreateFile($testlanguagepkg, $PkgFile);	

   385 

   386 	# Create a stub sis file

   387 	my $result = system("$makesisExeLocation -d/epoc32/winscw/c/tswi/ $testlanguagepkg $testlanguagesis > $testlanguagelog");

   388 	

   389 

   390 	$NumberOfTests++;

   391 

   392 	if ($result == 0) {

   393 		$NumberOfPassed++;

   394 		WriteLog("Passed\n\n");

   395 	}

   396 	else {

   397 		$NumberOfFailed++;

   398 		WriteLog("Failed\n\n");

   399 	}

   400 

   401 	unlink $testlanguagepkg;

   402 	unlink $testlanguagesis;

   403 	unlink $testlanguagelog ;

   404 

   405 }

   406 

   407 #

   408 # Test code for DEF104895 - makesis with -d option

   409 # This creates a testembedded.sis file embedding testembedding.sis. This test checks the 

   410 # working of -d parameter where the search directory(bacward slashes) containing the embedding sis file is  

   411 # specified with -d option.

   412 #

   413 

   414 sub TestLDEF104895 {

   415 

   416 	$testembeddingpkg = "testembedding.pkg";

   417 	$testembeddingsis = "testembedding.sis";

   418 	$testembeddedpkg = "testembedded.pkg";

   419 	$testembeddedsis = "testembedded.sis";

   420 	$sisFileToEmbed = "\\\\epoc32\\\\winscw\\\\c\\\\";

   421 	$outputFile = $sisFileToEmbed.$testembeddingsis;

   422 	$testEmbedLog = "testembedded.log";

   423 

   424 	WriteLog("Test for DEF104895 - Test for successful creation of a sis file with -d option.\n");

   425 

   426 	# Generate test PKG file contents for embedding pkg file.

   427 	$PkgFile = sprintf( $PkgFileTempl, "-1,-1,-1"); 

   428 	# Create PKG file

   429 	CreateFile($testembeddingpkg, $PkgFile);	

   430 	

   431 	# Generate test PKG file contents for embedded pkg file.

   432 	$PkgFile = sprintf( $embedContents, "-1,-1,-1"); 

   433 	# Create PKG file

   434 	CreateFile($testembeddedpkg , $PkgFile);

   435 

   436 	

   437 	# Create an embedding sis file

   438 	my $result = system("$makesisExeLocation $testembeddingpkg $outputFile > $testEmbedLog");

   439 	

   440 	# Create an embedded sis file.Here the sis file embedded is situated elsewhere(in "\\epoc32\\winscw\\c\\").

   441 	# Makesis -d option is used to specify the directory to search for sis file embedded. 

   442 	my $result1 = system("$makesisExeLocation -d$sisFileToEmbed $testembeddedpkg $testembeddedsis > $testEmbedLog");

   443 	

   444 	$NumberOfTests++;

   445 	if ($result == 0 && $result1 == 0) 

   446 		{

   447 		$NumberOfPassed++;

   448 		WriteLog("Passed\n\n");

   449 		}

   450 	else 

   451 		{

   452 		$NumberOfFailed++;

   453 		WriteLog("Failed\n\n");

   454 		}

   455 

   456 	unlink $testembeddingpkg;

   457 	unlink $outputFile;

   458 	unlink $testembeddedpkg;

   459 	unlink $testembeddedsis;

   460 	unlink $testEmbedLog;

   461 	

   462 }

   463 

   464 

   465 #

   466 # New test code for DEF090878 - unexpected error by makesis when processing pkg file saved in UTF8 format

   467 # This test uses existing utf8.pkg which contains UTF-8 encoded characters and in turn refers to utf8.txt

   468 #

   469 sub TestDEF090878 {

   470 

   471 	my $path = "/epoc32/winscw/c/tswi";

   472 	my $pkgfile = "$path/utf8";

   473 	my $expectedResult = 0;

   474 

   475 	WriteLog("Test for DEF090878 - unexpected error by makesis when processing pkg file saved in UTF8 format\n");

   476 	WriteLog("UTF-8 encoded file: $pkgfile.pkg\n");

   477 	

   478 	# Do MAKESIS test

   479 	@retval = system("$makesisExeLocation $pkgfile.pkg $pkgfile-tmp.sis > $pkgfile.log");

   480 	

   481 	$logMsg = sprintf "Expected code:%5d   result Code:%5d\n", $expectedResult, $?;

   482 	WriteLog( $logMsg);

   483 

   484 	$NumberOfTests++;

   485 	

   486 	if( $? == $expectedResult ) {

   487 		$NumberOfPassed++;

   488 		WriteLog("Passed\n\n");

   489 	}

   490 	else {

   491 		$NumberOfFailed++;

   492 		WriteLog("Failed\n\n");

   493 	}

   494 

   495 	unlink("$pkgfile-tmp.sis");

   496 	unlink("$pkgfile.sis");

   497 	unlink("$pkgfile.log");

   498 }

   499 

   500 #

   501 # Test code for DEF112831 - makesis crashes on .pkg containing non-existing embedded sis

   502 #

   503 

   504 sub TestDEF112831() {

   505 

   506 	my $expectedResult = 256;

   507 	$testmissingembeddedpkg = "missingembedded.pkg";

   508 	$testmissingembeddedsis = "missingembedded.sis";

   509 	$testmissingembeddedlog = "missingembedded.log";

   510 

   511 	WriteLog("Test for DEF112831 - makesis crashes on .pkg containing non-existing embedded sis\n");

   512 

   513 	# Generate test PKG file contents

   514 	$PkgFile = sprintf( $missingEmbed); 

   515 	# Create PKG file

   516 	CreateFile($testmissingembeddedpkg, $PkgFile);	

   517 

   518 	# Create a stub sis file

   519 	my $result = system("$makesisExeLocation -d/epoc32/winscw/c/tswi/ $testmissingembeddedpkg $testmissingembeddedsis > $testmissingembeddedlog");

   520 

   521 	$logMsg = sprintf "Expected code:%5d   result Code:%5d\n", $expectedResult, $?;

   522 	WriteLog( $logMsg);

   523 

   524 	$NumberOfTests++;

   525 

   526 	if ($result == 256) {

   527 		$NumberOfPassed++;

   528 		WriteLog("Passed\n\n");

   529 	}

   530 	else {

   531 		$NumberOfFailed++;

   532 		WriteLog("Failed\n\n");

   533 	}

   534 

   535 	unlink $testmissingembeddedpkg;

   536 	unlink $testmissingembeddedsis;

   537 	unlink $testmissingembeddedlog ;

   538 

   539 }

   540 

   541 # Windows Test

   542 # Test code for  DEF091942

   543 # Test case generates a SIS from a Japanese named pkg file. Checks to see if the SIS fle generated has the same name.

   544 # NOTE: Does not validate the console output.

   545  

   546 sub TestDEF091942 {

   547 

   548 	my $path = "\\epoc32\\winscw\\c\\tswi";

   549 	

   550 	$NumberOfTests++;

   551 	WriteLog("Test for DEF091942 - makesis can not handle package files names written with japanese symbols\n");

   552 	

   553 	# Generate Japanese pkg 

   554 	system("WScript.exe //B //Nologo $path\\displayjpn_1.vbs");

   555 

   556 	# Check to see if the sis file has been generated

   557 	system("WScript.exe //B //Nologo $path\\displayjpn_2.vbs");

   558 

   559 	if ( -f "$path\\passed.txt") {

   560 		$NumberOfPassed++;

   561 		WriteLog("Passed\n\n");

   562 	} else {

   563 		$NumberOfFailed++;

   564 		WriteLog("Failed\n\n");

   565 	}

   566 

   567 	# Tidy up

   568 	system("WScript.exe //B //Nologo $path\\displayjpn_3.vbs");

   569 }

   570 

   571 # Linux Test

   572 # Test code for  DEF091942 

   573 # Test case generates a SIS from a Japanese named pkg file. Checks to see if the SIS fle generated has the same name.

   574 # NOTE: Does not validate the console output.

   575  

   576 sub TestLDEF091942{

   577 

   578 	$pkgfile = "ゎわこんァア龐龑.pkg";

   579 	$sisfile = "ゎわこんァア龐龑.sis";

   580 	$logfile = "ゎわこんァア龐龑.log";

   581 

   582 	$NumberOfTests++;

   583 

   584 	my $file = "/epoc32/winscw/c/tswi/passed.txt";

   585 	

   586 	WriteLog("Test for DEF091942 - makesis can not handle package files names written with japanese symbols\n");

   587 	

   588 	# Generate test PKG file contents for japanese pkg file.

   589 	$PkgFile = sprintf( $JAPPkgFileTempl); 

   590 	# Create PKG file

   591 	CreateFile($pkgfile, $PkgFile);

   592 

   593 	# Do MAKESIS test

   594 	@retval = system("$makesisExeLocation -v $pkgfile > logfile");

   595 

   596 	$logMsg = sprintf "Expected code:%5d   result Code:%5d\n", $expectedResult, $?;

   597 	WriteLog( $logMsg);

   598 

   599 	if(-f $sisfile){

   600 		CreateFile($file,$TempData);

   601 	}

   602 

   603 	if( -f $file ) {

   604 		$NumberOfPassed++;

   605 		WriteLog("Passed\n\n");

   606 	}

   607 	else {

   608 		$NumberOfFailed++;

   609 		WriteLog("Failed\n\n");

   610 	}

   611 

   612 	unlink("$pkgfile.sis");

   613 	unlink("$pkgfile.log");

   614 	unlink("$pkgfile.pkg");

   615 }

   616 

   617 

   618  

   619 #

   620 # New test code for DEF091780 - Makesis have problems parsing IF-ENDIF block

   621 # test files are generated according to defect description, except that ALL files are located in current folder

   622 #

   623 sub TestDEF091780 {

   624 

   625 	my $ifendif = "ifendif.pkg";

   626 	my $expectedResult = 0;

   627 

   628 	WriteLog("Test for DEF091780 - Makesis have problems parsing IF-ENDIF block\n");

   629 

   630 	# Create PKG file

   631 	CreateFile($ifendif , $ifendifContent);

   632 	$ifendif =~ s/\.pkg//;

   633 	

   634 	# Create options-related files

   635 	CreateFile('osver1J.txt', "1J");

   636 	CreateFile('osver2J.txt', "2J");

   637 	CreateFile('osver1F.txt', "1F");

   638 	CreateFile('osver2F.txt', "2F");

   639 

   640 	# Do MAKESIS test

   641 	@retval = system("$makesisExeLocation $ifendif.pkg $ifendif-tmp.sis > $ifendif.log");

   642 	

   643 	$logMsg = sprintf "Expected code:%5d   result Code:%5d\n", $expectedResult, $?;

   644 	WriteLog( $logMsg);

   645 

   646 	$NumberOfTests++;

   647 	

   648 	if( $? == $expectedResult ) {

   649 		$NumberOfPassed++;

   650 		WriteLog("Passed\n\n");

   651 	}

   652 	else {

   653 		$NumberOfFailed++;

   654 		WriteLog("Failed\n\n");

   655 	}	

   656 	

   657 	# tidy up

   658 	unlink("$ifendif.pkg");

   659 	unlink("$ifendif-tmp.sis");

   660 	unlink("$ifendif.sis");

   661 	unlink("$ifendif.log");

   662 	unlink("osver1J.txt");

   663 	unlink("osver2J.txt");

   664 	unlink("osver1F.txt");

   665 	unlink("osver2F.txt");

   666 }

   667 

   668 #

   669 # Test code for SIS files with comma at the end of the file - DEF108815

   670 # 

   671 #

   672 sub TestEndFileComma {

   673 

   674 	my $pkgName = "endFileComma.pkg";

   675 	my $logName = "endFileComma.log";

   676 	my $sisName = "endFileComma.sis";

   677 	my $expectedResult = 256;

   678 	

   679 	WriteLog("Test for DEF108815 - makesis crashes if a trailing comma is present on an install-file \n");

   680 

   681 	# Create PKG file

   682 	CreateFile($pkgName, $endFileCommaContent);

   683 	$ifendif =~ s/\.pkg//;

   684 	

   685 	# Do MAKESIS test

   686 	@retval = system("$makesisExeLocation $pkgName $sisName > $logName");

   687 	

   688 	$logMsg = sprintf "Expected code:%5d   result Code:%5d\n", $expectedResult, $?;

   689 	WriteLog( $logMsg);

   690 

   691 	$NumberOfTests++;

   692 	

   693 	if( $? == $expectedResult ) {

   694 		$NumberOfPassed++;

   695 		WriteLog("Passed\n\n");

   696 	}

   697 	else {

   698 		$NumberOfFailed++;

   699 		WriteLog("Failed\n\n");

   700 	}	

   701 	

   702 	# tidy up

   703 	#unlink("$pkgName");

   704 	unlink("$sisName");

   705 	unlink("$logName");

   706 }

   707 

   708 #

   709 # Test code for package file containing very long destination folder name - DEF115795

   710 # 

   711 #

   712 sub TestLongFolderName {

   713 

   714 	my $pkgName = "longfolder.pkg";

   715 	my $logName = "longfolder.log";

   716 	my $sisName = "longfolder.sis";

   717 	my $expectedResult = 256;

   718 	

   719 	WriteLog("Test for DEF115795 - SWI completes the installation despite the files not being installed \n");

   720 

   721 	# Create PKG file

   722 	CreateFile($pkgName, $longfolder);

   723 	$ifendif =~ s/\.pkg//;

   724 	

   725 	# Do MAKESIS test

   726 	@retval = system("$makesisExeLocation $pkgName $sisName > $logName");

   727 	

   728 	$logMsg = sprintf "Expected code:%5d   result Code:%5d\n", $expectedResult, $?;

   729 	WriteLog( $logMsg);

   730 

   731 	$NumberOfTests++;

   732 	

   733 	if( $? == $expectedResult ) {

   734 		$NumberOfPassed++;

   735 		WriteLog("Passed\n\n");

   736 	}

   737 	else {

   738 		$NumberOfFailed++;

   739 		WriteLog("Failed\n\n");

   740 	}	

   741 	

   742 	# tidy up

   743 	unlink("$pkgName");

   744 	unlink("$sisName");

   745 	unlink("$logName");

   746 }

   747 

   748 #

   749 #  Test code for invalid version number in pkg file - DEF112718

   750 # 

   751 #

   752 sub TestInvalidVersion1 {

   753 

   754 	my $pkgName = "invalidVersion.pkg";

   755 	my $LogFile = "invalidVersion.log";

   756 	my $sisName = "invalidVersion.sis";

   757 	my $ExpectedLogFile = "InvalidVersionExpected.log";

   758 	

   759 	WriteLog("Test for DEF112718 - Invalid version number in pkg file \n");

   760 

   761 	# Create PKG file

   762 	CreateFile($pkgName, $invalidVersion1);

   763 	

   764 	my $trailingData = "Created  $sisName.";

   765 	my $OutputData = "Processing $pkgName...\n$DEF112718ExpectedOutput$trailingData";

   766 	

   767 	# Create expected log file

   768 	CreateFile($ExpectedLogFile ,$OutputData);

   769 

   770 	# Create a sis file

   771 	my $result = system("$makesisExeLocation $pkgName $sisName > $LogFile");

   772 	

   773 	use File::Compare;

   774 	my $result1;

   775 

   776 	if(compare($LogFile ,$ExpectedLogFile)== 0)

   777  		{ 

   778  		$result1 = 0;			

   779  		}

   780  	else

   781  		{

   782  		$result1 = 1;

   783  		}

   784 	$NumberOfTests++;

   785 

   786  	if ($result == 0 && $result1 == 0) 

   787  		{

   788  		$NumberOfPassed++;

   789  		WriteLog("Passed\n\n");

   790  		}

   791  	else 

   792  		{

   793  		$NumberOfFailed++;

   794  		WriteLog("Failed\n\n");

   795  		}

   796 

   797 	

   798 	# tidy up

   799 	unlink("$pkgName");

   800 	unlink("$sisName");

   801 	unlink("$logName");

   802 	unlink ("$LogFile");

   803 }

   804 

   805 #

   806 #  Test code for invalid version number in pkg file - DEF112718

   807 # 

   808 #

   809 

   810 sub TestInvalidVersion2 {

   811 

   812 	my $pkgName = "invalidVersion.pkg";

   813 	my $logName = "invalidVersion.log";

   814 	my $sisName = "invalidVersion.sis";

   815 	my $expectedResult = 256;

   816 	

   817 	WriteLog("Test for DEF112718 - Invalid version number in pkg file with negative values \n");

   818 

   819 	# Create PKG file

   820 	CreateFile($pkgName, $invalidVersion2);

   821 	

   822 	

   823 	# Do MAKESIS test

   824 	@retval = system("$makesisExeLocation $pkgName $sisName > $logName");

   825 	

   826 	$logMsg = sprintf "Expected code:%5d   result Code:%5d\n", $expectedResult, $?;

   827 	WriteLog( $logMsg);

   828 

   829 	$NumberOfTests++;

   830 	

   831 	if( $? == $expectedResult ) {

   832 		$NumberOfPassed++;

   833 		WriteLog("Passed\n\n");

   834 	}

   835 	else {

   836 		$NumberOfFailed++;

   837 		WriteLog("Failed\n\n");

   838 	}	

   839 	

   840 	# tidy up

   841 	unlink("$pkgName");

   842 	unlink("$sisName");

   843 	unlink("$logName");

   844 }

   845 

   846 

   847 #

   848 #  Test code for Preinstalled pkg files without having sourcefiles - DEF113569

   849 # 

   850 #

   851 sub TestPreInstalledWithoutSourceFiles {

   852 

   853 	my $pkgName = "preinstalledwithoutsourcefile.pkg";

   854 	my $logName = "preinstalledwithoutsourcefile.log";

   855 	my $sisName = "preinstalledwithoutsourcefile.sis";

   856 	my $ExpectedLogFile = "preinstalledwithoutsourcefileExpected.log";

   857 

   858 	WriteLog("Test for DEF113569 - Preinstalled pkg files without having sourcefiles \n");

   859 

   860 	# Create PKG file

   861 	CreateFile($pkgName, $PreinstalledPkgWithoutSourcefiles);

   862 

   863 	my $OutputData = "Processing $pkgName...\n$DEF113569ExpectedOutput";

   864 	

   865 	# Create expected log file

   866 	CreateFile($ExpectedLogFile ,$OutputData);

   867 

   868 	# Do MAKESIS test

   869 	@retval = system("$makesisExeLocation $pkgName $sisName > $logName");

   870 

   871 	use File::Compare;

   872 	my $result1;

   873 

   874 	if(compare($logName ,$ExpectedLogFile)== 0)

   875  		{ 

   876  		$result1 = 0;			

   877  		}

   878  	else

   879  		{

   880  		$result1 = 1;

   881  		}

   882 

   883 	$NumberOfTests++;

   884 

   885 	

   886 	if ($result == 0 && $result1 == 0) 

   887  		{

   888  		$NumberOfPassed++;

   889  		WriteLog("Passed\n\n");

   890  		}

   891  	else 

   892  		{

   893  		$NumberOfFailed++;

   894  		WriteLog("Failed\n\n");

   895  		}

   896 

   897 	# tidy up

   898 	unlink("$pkgName");

   899 	unlink("$sisName");

   900 	unlink("$logName");

   901 	unlink ("$ExpectedLogFile");

   902 }

   903 

   904 

   905 # New test code for DEF091860 - Quotes missing in reversed package produced by dumpsis for IF EXIST statement. 

   906 # This creates a DEF091860.sis file . This test checks whether the pkg file generated by dumpsis when reprocessed 

   907 # by makesis generates a sis file successfully.

   908 #

   909 sub TestDEF091860() {

   910 

   911 	$DEF091860pkg = "DEF091860.pkg";

   912 	$DEF091860sis = "DEF091860.sis";

   913 	$DumpsisGenPkgPath = "\/DEF091860";

   914 	$DEF091860Log = "DEF091860.log";

   915 

   916 				

   917 	WriteLog("Test for DEF091860 - Test for successful creation of a sis file when pkg file generated from dumpsis is used.\n");

   918 

   919 	# Generate test PKG file contents for embedding pkg file.

   920 	$PkgFile = sprintf( $DEF091860PkgContents, "-1,-1,-1"); 

   921 	# Create PKG file

   922 	CreateFile($DEF091860pkg, $PkgFile);	

   923 	

   924 	# Create DEF091860.sis file

   925 	my $result = system("$makesisExeLocation $DEF091860pkg $DEF091860sis > $DEF091860Log");

   926 	

   927 	WriteLog("result: $result\n");

   928 

   929 	# Execute DumpSIS on the created DEF091860.sis.

   930 	my $result1 = system("/epoc32/tools/DUMPSIS -x $DEF091860sis > $DEF091860Log");

   931 	

   932 	WriteLog("result1: $result1[0]\n");

   933 

   934 	use Cwd;

   935     $dir = cwd;

   936 	chdir $dir.$DumpsisGenPkgPath;

   937 	

   938 	#Regenerate DEF091860.sis from the dumpsis generated pkg file.

   939 	$result2  = system("$makesisExeLocation $DEF091860pkg $DEF091860sis > $DEF091860Log");

   940 	chdir $dir;

   941 	

   942 	WriteLog("result2: $result2\n");

   943 

   944 	$NumberOfTests++;

   945 	if ($result == 0 && $result1 == 0 && $result2 == 0) 

   946 		{

   947 		$NumberOfPassed++;

   948 		WriteLog("Passed\n\n");

   949 		}

   950 	else 

   951 		{

   952 		$NumberOfFailed++;

   953 		WriteLog("Failed\n\n");

   954 		}

   955 

   956 	unlink $DEF091860pkg;

   957 	unlink $DEF091860sis;

   958 	unlink $DEF091860Log;

   959 	use File::Path;

   960 	rmtree "$dir$DumpsisGenPkgPath";

   961 }

   962 

   963 #

   964 # New test code for DEF090912  makesis shows error: file I/O fault. for PC folder with unicode (katakana) UCS2 

   965 # NB: japanese source file is located in current folder instead of on folder tree for simplicity

   966 #

   967 sub TestDEF090912 {

   968 

   969 	my $path = "\\epoc32\\winscw\\c\\tswi";

   970 	my $ucs2 = "$path\\ucs2jpn";

   971 	my $expectedResult = 0;

   972 

   973 	WriteLog("Test for DEF090912: makesis shows error \"file I/O fault\" for PC folder with unicode (katakana) UCS2\n");

   974 	

   975 	# tricky thing to create file with Japanese  name on any locale

   976 	# use //B to launch script engine in batch mode

   977 	system("WScript.exe //B //Nologo $path\\ucs2jpn.vbs");

   978 

   979 	# Do MAKESIS test

   980 	@retval = system("$makesisExeLocation $ucs2.pkg $ucs2-tmp.sis > $ucs2.log");

   981 	

   982 	$logMsg = sprintf "Expected code:%5d   result Code:%5d\n", $expectedResult, $?;

   983 	WriteLog( $logMsg);

   984 

   985 	$NumberOfTests++;

   986 	

   987 	if( $? == $expectedResult ) {

   988 		$NumberOfPassed++;

   989 		WriteLog("Passed\n\n");

   990 	}

   991 	else {

   992 		$NumberOfFailed++;

   993 		WriteLog("Failed\n\n");

   994 	}	

   995 	

   996 	# tidy up

   997 	unlink("$ucs2-tmp.sis");

   998 	unlink("$ucs2.log");

   999 	system("WScript.exe //B //Nologo $path\\rmucs2jpn.vbs");

  1000 }

  1001 

  1002 

  1003 # Linux Test

  1004 # New test code for DEF090912  makesis shows error: file I/O fault. for PC folder with unicode (katakana) UCS2 

  1005 # NB: japanese source file is located in current folder instead of on folder tree for simplicity

  1006 #

  1007 sub TestLDEF090912 {

  1008 

  1009 	my $path = "/epoc32/winscw/c/tswi";

  1010 	my $ucs2 = "$path/ﾅｿﾄ.txt";

  1011 	my $pkgfile = "$path/ucs2jpn";

  1012 	my $expectedResult = 0;

  1013 

  1014 	WriteLog("Test for DEF090912: makesis shows error \"file I/O fault\" for PC folder with unicode (katakana) UCS2\n");

  1015 	

  1016 		

  1017 	# Create PKG file

  1018 	

  1019 	CreateFile($ucs2, $TempData);

  1020 

  1021 	# Do MAKESIS test

  1022 	@retval = system("$makesisExeLocation -v $pkgfile.pkg  > $pkgfile.log");

  1023 	

  1024 	$logMsg = sprintf "Expected code:%5d   result Code:%5d\n", $expectedResult, $?;

  1025 	WriteLog( $logMsg);

  1026 

  1027 	$NumberOfTests++;

  1028 	

  1029 	if( $? == $expectedResult ) {

  1030 		$NumberOfPassed++;

  1031 		WriteLog("Passed\n\n");

  1032 	}

  1033 	else {

  1034 		$NumberOfFailed++;

  1035 		WriteLog("Failed\n\n");

  1036 	}	

  1037 	

  1038 	# tidy up

  1039 	unlink("$pkgfile.log");

  1040 	unlink("$pkgfile.sis");

  1041 }

  1042 

  1043 

  1044 

  1045 

  1046 #

  1047 # New test code for DEF093400:  Temporary files are left undeleted after MakeSIS/SignSIS call 

  1048 # NB: japanese source file is located in current folder instead of on folder tree for simplicity

  1049 #

  1050 

  1051 sub TestDEF093400 

  1052 {

  1053 	WriteLog("Test for DEF093400: Temporary files are left undeleted after MakeSIS/SignSIS call\n");

  1054 	

  1055 	my $pkg = "temp.pkg";

  1056 	my $expectedResult = 0;

  1057 

  1058 	# Create PKG file

  1059 	chmod S_IWUSR | S_IWGRP | S_IWOTH, '$pkg';

  1060 	my $temp = sprintf $PkgFileTempl, "-1,-1,-1"; 

  1061 	CreateFile($pkg, $temp);

  1062 	$pkg =~ s/\.pkg//;

  1063 	

  1064 	# Create options-related files

  1065 	chmod S_IWUSR | S_IWGRP | S_IWOTH, '$pkg.txt';

  1066 	CreateFile("$pkg.txt", "temp file");

  1067 	chmod S_IRUSR | S_IRGRP | S_IROTH, '$pkg.txt';

  1068 

  1069 	my $TmpCountBefore = GetTmpFilesCount();

  1070 

  1071 	# Do MAKESIS test

  1072 	@retval = system("$makesisExeLocation $pkg.pkg $pkg-tmp.sis > $pkg.log");

  1073 

  1074 	my $TmpCountAfter = GetTmpFilesCount();

  1075 	

  1076 	$logMsg = sprintf "Expected code:%5d   result Code:%5d\n", $expectedResult, $?;

  1077 	WriteLog( $logMsg);

  1078 	$logMsg = sprintf "Temp Files detected - Before:%5d   After:%5d\n", $TmpCountBefore, $TmpCountAfter;

  1079 	WriteLog( $logMsg);

  1080 

  1081 	$NumberOfTests++;

  1082 	

  1083 	if(  $? == $expectedResult && $TmpCountBefore == $TmpCountAfter ) {

  1084 		$NumberOfPassed++;

  1085 		WriteLog("Passed\n\n");

  1086 	}

  1087 	else {

  1088 		$NumberOfFailed++;

  1089 		WriteLog("Failed\n\n");

  1090 	}	

  1091 	

  1092 	# tidy up

  1093 	unlink("$pkg.pkg");

  1094 	unlink("$pkg-tmp.sis");

  1095 	unlink("$pkg.txt");

  1096 	unlink("$pkg.log");

  1097 }

  1098 

  1099 

  1100 #

  1101 # New test code for DEF093156 - MAKEKEYS does not process correctly non European symbols in cmd line 

  1102 # This test checks whether the certificate and key files which have names with japanese symbols are created successfully .

  1103 #

  1104 sub TestDEF093156 {

  1105 

  1106 	my $path = "\\epoc32\\winscw\\c\\tswi";

  1107  	$DEF093156Log = "DEF093156.log";

  1108 	$ResFile1="ex.txt";

  1109 	$ResFile2="ResultMakeKeys.txt";

  1110  

  1111 	WriteLog("Test for DEF093156 - Makekeys test for successful creation of a certificate and key file with japanese symbols.\n");

  1112   

  1113  	# create a key file and a certificate file with japanese symbols

  1114 	system("WScript.exe //B //Nologo $path\\testmakekeys.vbs > $DEF093156Log");

  1115 

  1116  	$NumberOfTests++;

  1117 	if ( !-f $ResFile1 )

  1118 	{

  1119  		$NumberOfFailed++;

  1120  		WriteLog("Failed In Step 1\n\n");

  1121 		unlink $DEF093156Log;

  1122 		exit;

  1123 	}

  1124 	

  1125 	#Make sure that the DN in the created certificate with japanese symbols is encoded properly

  1126 	system("WScript.exe //B //Nologo $path\\testmakekeys2.vbs $path 1 > $DEF093156Log");

  1127 	

  1128 	if ( -f $ResFile2 )

  1129 	{

  1130 		$NumberOfPassed++;

  1131  		WriteLog("Passed\n\n");

  1132  	}

  1133 	else