--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/secureswitools/swisistools/test/tdumpsis/testdumpsis.pl Thu Dec 17 08:51:10 2009 +0200
@@ -0,0 +1,1483 @@
+#
+# Copyright (c) 2004-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of the License "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+# Perl script that creates PKG files and test DumpSIS tools with different ranges
+#
+
+use File::Basename;
+my $scriptdir= dirname $0;
+print "Changing dir to $scriptdir\n";
+chdir $scriptdir;
+
+my $runMode = $ARGV[0];
+
+# Set the log file based on the invocation parameter
+if($runMode eq "usif")
+{
+$logFile = "\\epoc32\\winscw\\c\\dumpsis_test_usif.txt";
+}
+else
+{
+$logFile = "\\epoc32\\winscw\\c\\dumpsis_test.txt";
+}
+
+#Main
+# Create environment and control test flow to testing DumpSIS.EXE
+#
+#
+
+unlink($logFile);
+WriteLog("DUMPSIS test.\n\n");
+
+#
+# Counters for results
+#
+$NumberOfTests = 0;
+$NUmberOfPassed = 0;
+$NumberOfFailed = 0;
+
+
+CreateMakeSIS();
+
+#
+# Array of test data used for each individual test iteration which contains details of the test pkgs and their expected results
+#
+# <file name> - Path of the SIS file being used as a parameter to DumpSIS
+# <expected result> - Expected error code result returned from the DumpSIS tool
+# <expected log cmdline> - Expected log output to the command line as a result of the test
+# <expected log pkg> - Expected string to be present within the PKG file dumped by DumpSIS ("-" if not checked)
+# <title> - Title used to identify the individual test in the Results Log
+#
+# Array Format: [<file name>,<expected result>,<expected log cmdline>,<expected log pkg>,<title>]
+# ------------------------------------------------------------------------------------------------------------------------------------
+@TestItems = ( ["simple.sis", 0, "-", "-", "Test for normal sis file"],
+ ["package\\CtlTest.sis", 0, "Dumping Stub SIS Controller", "-", "Test for Stub SIS Controller"],
+ ["StubTest.sis", 0, "-", "-", "Test for Stub SIS file"],
+ ["DepTest.sis", 0, "-", "-", "Test for Dependency file"],
+ ["TestFileNullE.sis", 0, "-", "-", "Test for file null sysbin file"],
+ ["TestFileNullB.sis", 0, "-", "-", "Test for file null private file"],
+ ["TestFileNullC.sis", 0, "-", "-", "Test for file null resource file"],
+ ["TestFileNullD.sis", 0, "-", "-", "Test for file null restore"],
+ ["TestFileNullA.sis", 0, "-", "-", "Test for file null import"],
+ ["Embsis0.sis", 0, "-", "-", "Test for Embedded sis file"],
+ ["Embsis1.sis", 0, "-", "-", "Test for Embedded sis file"],
+ ["EmbTest.sis", 0, "-", "-", "Test for Embedded sis file"],
+ ["MultiLangTest.sis", 0, "-", "-", "Test for multiple language"],
+ ["CondTest.sis", 0, "-", "-", "Test for If Else condition"],
+ ["UnicodeTest.sis", 0, "-", "-", "Test for Unicode sis file"],
+ ["CondTestElseif.sis", 0, "-", "-", "Test for ElseIf condition"],
+ ["OprTest.sis", 0, "-", "-", "Test for operator condition"],
+ ["LogoTest.sis", 0, "-", "-", "Test for MIME sis file"],
+ ["package\\CtlTestROM.sis", 0, "Dumping Stub SIS Controller", "-", "Test for Stub sis controller with package in ROM"],
+ ["package\\TestCtlEmb.sis", 0, "Dumping Stub SIS Controller", "-", "Test for Embedded Stub sis controller "],
+ ["package\\ExeTest.sis", 0, "-", "-", "Test for 1 WINSCW and 2 ARM Executable sis file"],
+ ["test20.sis", 256, "-", "-", "Test for corrupted sis file"],
+ ["test21.sis", 256, "-", "-", "Test for corrupted stub sis controller file"],
+ ["test22.sis", 256, "-", "-", "Test for corrupted stub sis file"],
+ ["package\\appv11.sis", 256, "-", "-", "Test for old sis file format"],
+ ["simple_RBS.sis", 0, "-", "-", "Test for RBS flag"],
+ ["simple_rrrbs.sis", 0, "-", "-", "Test for RR,RBS flag"],
+ ["simple_frra.sis", 0, "-", "\"file0\"-\"!:\\Documents\\InstTest\\file1.txt\", FR, RI, RA", "Test for FR,RA flag"],
+ ["simple_frra_v.sis", 0, "-", "\"file0\"-\"!:\\Documents\\InstTest\\file0.txt\", FR, RI, RA", "Test for FR,RUNAFTERINSTALL flag"],
+ );
+
+
+# CR1125 - Add Package Versions to SIS File Conditionals Test Cases
+# Array of test PKG data and expected results for each test case and associated iterations
+#
+# <file name> - Path of the SIS file being used as a parameter to DumpSIS
+# <expected result> - Expected error code result returned from the DumpSIS tool
+# <expected log cmdline> - Expected log output to the command line as a result of the test
+# <initial condition> - The condition used to construct the "IF" statement within the PKG File and perform a specific test
+# on the Tool
+# <expected condition> - Expected "IF" statement condition string to be present within the PKG file dumped by DumpSIS
+# <title> - Title used to identify the individual test in the Results Log
+#
+#
+# Array Format: [<file name>,<expected result>,<expected log cmdline>,<initial condition>,<expected condition>,<title>]
+# ----------------------------------------------------------------------------------------------------------------------------------------
+@TestItems1 = ( ["pkgversion_c001_a.sis", 0, "-", "VERSION(0xE1000001,=,1,2,3)", "VERSION(0xE1000001,=,1,2,3)", "SEC-SWI-PKGVER-C001 : A"],
+
+ ["pkgversion_c001_b.sis", 0, "-", "VERSION(0xE1000001,<>,1,2,3)", "VERSION(0xE1000001,<>,1,2,3)", "SEC-SWI-PKGVER-C001 : B"],
+
+ ["pkgversion_c001_c.sis", 0, "-", "VERSION(0xE1000001,>,1,2,3)", "VERSION(0xE1000001,>,1,2,3)", "SEC-SWI-PKGVER-C001 : C"],
+
+ ["pkgversion_c001_d.sis", 0, "-", "VERSION(0xE1000001,>=,1,2,3)", "VERSION(0xE1000001,>=,1,2,3)", "SEC-SWI-PKGVER-C001 : D"],
+
+ ["pkgversion_c001_e.sis", 0, "-", "VERSION(0xE1000001,<,1,2,3)", "VERSION(0xE1000001,<,1,2,3)", "SEC-SWI-PKGVER-C001 : E"],
+
+ ["pkgversion_c001_f.sis", 0, "-", "VERSION(0xE1000001,<=,1,2,3)", "VERSION(0xE1000001,<=,1,2,3)", "SEC-SWI-PKGVER-C001 : F"],
+
+ ["pkgversion_c002_a.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,1,2,3\")", "VERSION(0xE1000001,=,1,2,3)", "SEC-SWI-PKGVER-C002 : A"],
+
+ ["pkgversion_c002_b.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,NE,1,2,3\")", "VERSION(0xE1000001,<>,1,2,3)", "SEC-SWI-PKGVER-C002 : B"],
+
+ ["pkgversion_c002_c.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,GT,1,2,3\")", "VERSION(0xE1000001,>,1,2,3)", "SEC-SWI-PKGVER-C002 : C"],
+
+ ["pkgversion_c002_d.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,GE,1,2,3\")", "VERSION(0xE1000001,>=,1,2,3)", "SEC-SWI-PKGVER-C002 : D"],
+
+ ["pkgversion_c002_e.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,LT,1,2,3\")", "VERSION(0xE1000001,<,1,2,3)", "SEC-SWI-PKGVER-C002 : E"],
+
+ ["pkgversion_c002_f.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,LE,1,2,3\")", "VERSION(0xE1000001,<=,1,2,3)", "SEC-SWI-PKGVER-C002 : F"],
+
+ ["pkgversion_c003_a.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?test,ET,1,2,3\")", "EXISTS(\"\\sys\\install\\pkgversion\\?test,ET,1,2,3\")", "SEC-SWI-PKGVER-C003 : A"],
+
+ ["pkgversion_c003_b.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,test,1,2,3\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,test,1,2,3\")", "SEC-SWI-PKGVER-C003 : B"],
+
+ ["pkgversion_c003_c.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,test,2,3\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,test,2,3\")", "SEC-SWI-PKGVER-C003 : C"],
+
+ ["pkgversion_c003_d.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,1,test,3\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,1,test,3\")", "SEC-SWI-PKGVER-C003 : D"],
+
+ ["pkgversion_c003_e.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,1,2,test\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,1,2,test\")", "SEC-SWI-PKGVER-C003 : E"],
+
+# Invalid test case. Test case should be moved to makesis. Or test should run on generated sis as this sis should not
+# have generated.
+# ["pkgversion_c004_a.sis", 256, "-", "EXISTS(\"\")", "-", "SEC-SWI-PKGVER-C004 : A"],
+
+ ["pkgversion_c004_b.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?\")", "EXISTS(\"\\sys\\install\\pkgversion\\?\")", "SEC-SWI-PKGVER-C004 : B"],
+
+ ["pkgversion_c004_c.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,\")", "SEC-SWI-PKGVER-C004 : C"],
+
+ ["pkgversion_c004_d.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,\")", "SEC-SWI-PKGVER-C004 : D"],
+
+ ["pkgversion_c004_e.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,1,\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,1,\")", "SEC-SWI-PKGVER-C004 : E"],
+
+ ["pkgversion_c004_f.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,1,2,\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,1,2,\")", "SEC-SWI-PKGVER-C004 : F"],
+
+ ["pkgversion_c004_g.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,1,2,3,\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE1000001,ET,1,2,3,\")", "SEC-SWI-PKGVER-C004 : G"],
+
+ ["pkgversion_c005.sis", 0, "-", "VERSION(0xE1000001,=,1,2,3)", "VERSION(0xE1000001,=,1,2,3)", "SEC-SWI-PKGVER-C005"],
+
+ ["pkgversion_cov1.sis", 0, "-", "EXISTS(\"\\sys\\install\\?0xE1000001,ET,1,2,3\")", "EXISTS(\"\\sys\\install\\?0xE1000001,ET,1,2,3\")", "SEC-SWI-PKGVER Coverage Test 1 - Invalid Version Condition Prefix"],
+
+ ["pkgversion_cov2.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE100,ET,1,2,3\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE100,ET,1,2,3\")", "SEC-SWI-PKGVER Coverage Test 2 - Invalid Uid Format Test 1"],
+
+ ["pkgversion_cov3.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE01234S6,ET,1,2,3\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE01234S6,ET,1,2,3\")", "SEC-SWI-PKGVER Coverage Test 3 - Invalid Uid Format Test 2"],
+
+ ["pkgversion_cov4.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE0123456,ET,-2,2,3\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE0123456,ET,-2,2,3\")", "SEC-SWI-PKGVER Coverage Test 4 - Negative Major Component"],
+
+ ["pkgversion_cov5.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE0123456,ET,128,2,3\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE0123456,ET,128,2,3\")", "SEC-SWI-PKGVER Coverage Test 5 - Major Component > 127"],
+
+ ["pkgversion_cov6.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE0123456,ET,1,-2,3\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE0123456,ET,1,-2,3\")", "SEC-SWI-PKGVER Coverage Test 6 - Negative Minor Component"],
+
+ ["pkgversion_cov7.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE0123456,ET,1,100,3\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE0123456,ET,1,100,3\")", "SEC-SWI-PKGVER Coverage Test 7 - Minor Component > 99"],
+
+ ["pkgversion_cov8.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE0123456,ET,1,2,-2\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE0123456,ET,1,2,-2\")", "SEC-SWI-PKGVER Coverage Test 8 - Negative Build Component"],
+
+ ["pkgversion_cov9.sis", 0, "-", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE0123456,ET,1,2,32768\")", "EXISTS(\"\\sys\\install\\pkgversion\\?0xE0123456,ET,1,2,32768\")", "SEC-SWI-PKGVER Coverage Test 9 - Build Component > 32767"],
+
+ ["pkgversion_cov10.sis", 0, "-", "((EXISTS(\"OddString\"))or(language=1))", "(exists(\"OddString\"))OR((LANGUAGE)=(1))", "SEC-SWI-PKGVER Odd String with exists() test"],
+
+
+ );
+
+# PREQ2525 - Added SUPPORTED_LANGUAGE token to .pkg File format for supporting device supported language installation
+# Array of test PKG data and expected results for each test case and associated itterations
+#
+# File name, Supported language, Package header , Vendor name , Default vendor name ,Language block , Supported language block , Option list , Test case ID , Expected error code , Expected log commandLine , Expected value in dumped PKG file
+# -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+@TestItems2 = ( ["test01.sis", "EN , FR " , " \"Supported Language EN\" , \"Supported Language FR\" " , "\"Symbian Software Ltd. EN \" , \"Symbian Software Ltd. FR\"" , " " , " " , "IF SUPPORTED_LANGUAGE = 01 \n\n\"SupportedLanguageEN.txt\"-\"!:\\sys\\bin\\SupportedLanguageEN.txt\" \n\nENDIF \n\nIF SUPPORTED_LANGUAGE = 02 \n\n\"SupportedLanguageFR.txt\"-\"!:\\sys\\bin\\SupportedLanguageFR.txt\" \n\nENDIF " , " " , "API-Inst-PREQ2525-DumpSIS-01", 0 ,"-", "IF Supported_Language = 2" ],
+ ["test02.sis", "EN , FR , GE " , " \"Supported Language EN\" , \"Supported Language FR\" , \"Supported Language GE\" " , "\"Symbian Software Ltd. EN \" , \"Symbian Software Ltd. FR\" , \"Symbian Software Ltd. GE\"" , ": \"Symbian Software Ltd.\"", " " , "IF LANGUAGE = 01 AND SUPPORTED_LANGUAGE = 01 \n\n\"SupportedLanguageEN.txt\"-\"!:\\sys\\bin\\SupportedLanguageEN.txt\" \n\nENDIF \n\nIF SUPPORTED_LANGUAGE = 02 \n\n\"SupportedLanguageFR.txt\"-\"!:\\sys\\bin\\SupportedLanguageFR.txt\" \n\nENDIF " , " " , "API-Inst-PREQ2525-DumpSIS-02", 0 ,"-", "IF ((LANGUAGE)=(1))AND(Supported_Language = 1)" ],
+ ["test03.sis", "EN , FR , GE " , " \"Supported Language EN\" , \"Supported Language FR\" , \"Supported Language GE\" " , "\"Symbian Software Ltd. EN \" , \"Symbian Software Ltd. FR\" , \"Symbian Software Ltd. GE\"" , ": \"Symbian Software Ltd.\"", " " , "IF exists(\"\\sys\\install\\supportedlanguage\\?01\") \n\n\"SupportedLanguageEN.txt\"-\"!:\\sys\\bin\\SupportedLanguageEN.txt\" \n\nENDIF \n\nIF SUPPORTED_LANGUAGE = 02 \n\n\"SupportedLanguageFR.txt\"-\"!:\\sys\\bin\\SupportedLanguageFR.txt\" \n\nENDIF \n\nIF SUPPORTED_LANGUAGE = 03 \n\n\"SupportedLanguageGE.txt\"-\"!:\\sys\\bin\\SupportedLanguageGE.txt\" \n\nENDIF \n\nIF SUPPORTED_LANGUAGE = 157 \n\n\"SupportedLanguageYW.txt\"-\"!:\\sys\\bin\\SupportedLanguageYW.txt\" \n\nENDIF" , " " , "API-Inst-PREQ2525-DumpSIS-03", 0 ,"-", "IF Supported_Language = 1" ],
+ ["test04.sis", "EN , FR" , " \"Supported Language EN\" , \"Supported Language FR\" " , "\"Symbian Software Ltd. EN \" , \"Symbian Software Ltd. FR\"" , ": \"Symbian Software Ltd.\"", "IF (LANGUAGE=01) \n\n\"SupportedLanguageEN.txt\"-\"!:\\sys\\bin\\SupportedLanguageEN.txt\" \n\nELSEIF (LANGUAGE=02) \n\n\"SupportedLanguageFR.txt\"-\"!:\\sys\\bin\\SupportedLanguageFR.txt\" \n\nENDIF " , "IF SUPPORTED_LANGUAGE = 01 AND LANGUAGE = 02 \n\n\"SupportedLanguageEN.txt\"-\"!:\\sys\\bin\\SupportedLanguageEN.txt\" \n\nENDIF \n\nIF SUPPORTED_LANGUAGE = 02 \n\n\"SupportedLanguageFR.txt\"-\"!:\\sys\\bin\\SupportedLanguageFR.txt\" \n\nENDIF" , "!({\"Option1 EN\",\"Option2 EN\" },{\"Option1 FR\" , \"Option2 FR\"}) \n\nif option1 = 1 \n\n\"Option1.txt\"-\"!:\\sys\\bin\\Option1.txt\"; \n\nendif \n\nif option2 = 1 \n\n\"Option1.txt\"-\"!:\\sys\\bin\\Option1.txt\"; \n\nendif \n ", "API-Inst-PREQ2525-DumpSIS-04", 0 ,"-", "IF (Supported_Language = 1)AND((LANGUAGE)=(2))" ],
+ ["test05.sis", "EN , FR" , " \"Supported Language EN\" , \"Supported Language FR\" " , "\"Symbian Software Ltd. EN \" , \"Symbian Software Ltd. FR\"" , ": \"Symbian Software Ltd.\"", "IF (LANGUAGE=01) \n\n\"SupportedLanguageEN.txt\"-\"!:\\sys\\bin\\SupportedLanguageEN.txt\" \n\nELSEIF (LANGUAGE=02) \n\n\"SupportedLanguageFR.txt\"-\"!:\\sys\\bin\\SupportedLanguageFR.txt\" \n\nENDIF " , "IF SUPPORTED_LANGUAGE = 01 OR SUPPORTED_LANGUAGE = 02 \n\n\"SupportedLanguageEN.txt\"-\"!:\\sys\\bin\\SupportedLanguageEN.txt\" \n\nENDIF \n\nIF SUPPORTED_LANGUAGE = 8754 \n\n\"SupportedLanguageFR.txt\"-\"!:\\sys\\bin\\SupportedLanguageFR.txt\" \n\nENDIF" , "!({\"Option1 EN\",\"Option2 EN\" },{\"Option1 FR\" , \"Option2 FR\"}) \n\nif option1 = 1 \n\n\"Option1.txt\"-\"!:\\sys\\bin\\Option1.txt\"; \n\nendif \n\nif option2 = 1 \n\n\"Option2.txt\"-\"!:\\sys\\bin\\Option2.txt\"; \n\nendif \n ", "API-Inst-PREQ2525-DumpSIS-05", 0 ,"-", "IF (Supported_Language = 1)OR(Supported_Language = 2)" ],
+
+);
+
+#
+# Template string to generate PKG file
+#
+$PkgFileTemp = "
+; File to check DEF092185
+;
+;Languages
+&EN
+;
+;Header
+#{\"logo\"}, (0x80000003), 1, 2, 3, TYPE=SA
+;
+%{\"Vendor\"}
+:\"Vendor\"
+;
+=\"data\\logotest\\symbianos.mbm\", \"image/x-mbm\", \"c:\\target.mbm\"
+;
+";
+
+#
+# Template string to generate PKG file for DEF100220.
+#
+$PkgFileTemplate = "
+; File to check DEF100220.
+;
+;Languages
+&EN
+;
+#{\"TestDEF100220\"}, (0x20000129), 3, 2, 49, TYPE=PA
+;
+%{\"Vendor\"}
+:\"Vendor\"
+;
+[0x101f7961],0, 0, 0 ,{\"Series60ProductID\"}
+;
+";
+
+#
+# Template string to generate PKG file for DEF105590.
+#
+$PkgFileDEF105590= "&EN
+;
+#{\"TestDEF105590\"}, (0x20000130), 1, 2, 3, TYPE=SA
+;
+%{\"Vendor\"}
+:\"Vendor\"
+;
+\"\\epoc32\\release\\winscw\\udeb\\console_app_forpackage.exe\"-\"!:\\sys\\bin\\console_app.exe\", FR, RR
+";
+
+#
+# Template string to generate Expected PKG file after dumpsis for DEF105590.
+#
+$ExpectedPkgFileDEF105590= "&EN
+
+#{\"TestDEF105590\"}, (0x20000130), 1, 2, 3, TYPE=SA
+%{\"Vendor\"}
+:\"Vendor\"
+
+;!:\\sys\\bin\\console_app.exe
+; File length 57961 (180176)
+
+\"file0\"-\"!:\\sys\\bin\\console_app.exe\", FR, RR
+";
+
+#
+# Template string to generate PKG file for Hidden flag test.
+#
+$PkgFileHidden= "&EN
+;
+#{\"Hidden SA\"}, (0x802730D7), 1, 1, 1, TYPE=SA, H
+;
+%{\"Crypto Services\"}
+:\"Crypto Services\"
+";
+
+#
+# Template string to generate Expected PKG file after dumpsis for Hidden package.
+#
+$ExpectedPkgFileHidden= "&EN
+
+#{\"Hidden SA\"}, (0x802730D7), 1, 1, 1, TYPE=SA, H
+
+%{\"Crypto Services\"}
+:\"Crypto Services\"
+";
+
+#
+# CR1125 VERSION Condition Package template string to generate PKG files
+#
+$PkgFileCR1125VersionTemplate = "
+;
+; Auto Generated Template PKG File
+; VERSION Conditional Testing
+;
+&EN
+;
+#{\"CR1125 SEC-SWI-PKGVER\"}, (0xEC001000), 1, 0, 2, TYPE=SA
+%{\"Symbian Software Ltd.\"}
+: \"Symbian Software Ltd.\"
+;
+; Version Conditional Block
+IF %s
+ {
+ \"data\\CondTest\\file0\"
+ }-\"C:\\tswi\\tpkgver\\test_result_etrue.txt\"
+ENDIF
+;
+";
+
+
+#
+# PREQ2525 SUPPORTED_LANGUAGE Package template string to generate PKG files
+#
+$PkgFilePREQ2525SupportedLanguageTemplate = "
+;
+; Auto Generated Template PKG File
+; Supported Language token testing
+;
+;Language
+
+&%s
+
+;
+;Package Header
+
+\#{ %s }, (0xEA001000), 1, 0, 2, TYPE=SA
+
+;Vendor name
+
+\%{ %s}
+
+;Default vendor name
+
+%s
+
+;
+; Language Conditional Block
+
+%s
+;
+; Supported Language Conditional Block
+
+%s
+;
+; Option List
+
+%s
+;
+";
+#
+# Do test for each elements of TestItems array
+#
+sub CreateMakeSIS
+ {
+ $packageDir = "package";
+ opendir(DIR,".\\package");
+ my @files = readdir DIR;
+ foreach my $pkgfile (@files)
+ {
+ $pkgfile =~ s/\.pkg//;
+ $packagePath = "$packageDir"."\\"."$pkgfile".".pkg";
+ if(-e "$packagePath")
+ {
+ if("$pkgfile.pkg" eq "StubTest.pkg")
+ {
+ @retval = system("makesis -s $packagePath $pkgfile.sis > $pkgfile.log");
+ }
+ else
+ {
+ @retval = system("makesis -v $packagePath $pkgfile.sis > $pkgfile.log");
+ }
+ if( $? != 0)
+ {
+ WriteLog("\n\nProblem While Creating makesis for $pkgfile.pkg\n");
+ }
+ else
+ {
+ WriteLog("\n\nCreated $pkgfile.sis file for the package $pkgfile.pkg\n");
+ }
+ unlink("$pkgfile.log");
+ }
+ }
+ close(DIR);
+ }
+
+for my $Test ( @TestItems )
+ {
+ $testid = sprintf "SEC-SWI-I-DUMPSIS-000%d\n",$NumberOfTests+1;
+ $NumberOfTests++;
+
+ WriteLog($testid);
+ $logMsg = sprintf "%s", $Test->[4];
+ WriteLog($logMsg );
+ WriteLog("\t$Test->[0]\n");
+ DumpSISFile($Test->[0], $Test->[1], $Test->[2], $Test->[3]);
+ }
+
+#
+# Run CR1125 DumpSIS Tests (TestItems1 array)
+#
+for my $Test ( @TestItems1 )
+ {
+ $NumberOfTests++;
+
+ $logMsg = sprintf "%s - %s\n", $Test->[5], $Test->[3];
+ WriteLog($logMsg);
+
+ # Generating PKG file contents String
+ my($pkgfile_name) = $Test->[0];
+ $pkgfile_name =~ s/\.sis//;
+
+ my($pkgfile_contents) = sprintf($PkgFileCR1125VersionTemplate, $Test->[3]);
+
+ # Create PKG file
+ CreateFile("$pkgfile_name.pkg", $pkgfile_contents);
+
+ if(not -e "$pkgfile_name.pkg")
+ {
+ WriteLog("** Problem creating PKG file for $Test->[5] **\n");
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ next;
+ }
+
+ # Create SIS Install File
+ @retval = system("makesis -v $pkgfile_name.pkg $pkgfile_name.sis > $pkgfile_name.log");
+
+ if( $? != 0)
+ {
+ WriteLog("** Problem While Creating SIS file for $Test->[5] **\n");
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ next;
+ }
+ else
+ {
+ WriteLog("Created $Test->[0] file for $Test->[5]\n");
+ }
+
+ # Run DumpSIS Test
+ DumpSISFile($Test->[0], $Test->[1], $Test->[2], $Test->[4]);
+
+ unlink("$pkgfile_name.pkg");
+ }
+
+#
+# Generate files used in .pkg for PREQ2525 test
+#
+$contents = "This is a dummy file for testing.";
+CreateFile('SupportedLanguageEN.r01', $contents);
+CreateFile('SupportedLanguageEN.txt', $contents);
+CreateFile('SupportedLanguageFR.txt', $contents);
+CreateFile('SupportedLanguageGE.txt', $contents);
+CreateFile('SupportedLanguageYW.txt', $contents);
+CreateFile('Option1.txt', $contents);
+CreateFile('Option2.txt', $contents);
+#
+# Run PREQ2525 DumpSIS Tests (TestItems2 array)
+#
+for my $Test ( @TestItems2 )
+ {
+ $NumberOfTests++;
+
+ $logMsg = sprintf "%s - %s\n", $Test->[8], $Test->[10];
+ WriteLog($logMsg);
+
+
+ # Generating PKG file contents String
+ my($pkgfile_name) = $Test->[0];
+ $pkgfile_name =~ s/\.sis//;
+
+ my($pkgfile_contents) = sprintf( $PkgFilePREQ2525SupportedLanguageTemplate , $Test->[1],$Test->[2],$Test->[3],$Test->[4],$Test->[5],$Test->[6],,$Test->[7]);
+
+
+ # Create PKG file
+ CreateFile("$pkgfile_name.pkg", $pkgfile_contents);
+
+ if(not -e "$pkgfile_name.pkg")
+ {
+ WriteLog("** Problem creating PKG file for $Test->[8] **\n");
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ next;
+ }
+
+ # Create SIS Install File
+ @retval = system("makesis -v $pkgfile_name.pkg $pkgfile_name.sis > $pkgfile_name.log");
+
+
+ if( $? != 0)
+ {
+ WriteLog("** Problem While Creating SIS file for $Test->[8] **\n");
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ next;
+ }
+ else
+ {
+ WriteLog("Created $Test->[0] file for $Test->[8]\n");
+ }
+
+ # Run DumpSIS Test
+ DumpSISFile($Test->[0], $Test->[9], $Test->[10] , $Test->[11] );
+
+ unlink("$pkgfile_name.pkg");
+ }
+unlink("SupportedLanguageEN.r01");
+unlink("SupportedLanguageEN.txt");
+unlink("SupportedLanguageFR.txt");
+unlink("SupportedLanguageGE.txt");
+unlink("SupportedLanguageYW.txt");
+unlink("Option1.txt");
+unlink("Option2.txt");
+
+DeleteFiles("pkg");
+DeleteFolder();
+
+TestDEF092185();
+
+TestPDEF095820();
+
+TestDEF100220();
+
+TestRecursiveDirCreation();
+CheckCertExtraction();
+
+TestUnicode();
+
+TestDEF105590();
+
+# Run this test only for USIF
+if($runMode eq "usif")
+{
+TestHiddenFlag();
+}
+
+SatisfyCoverage();
+
+VerifyErroneousCommandLineArg();
+#
+# Display the result
+#
+WriteLog("\n\nTests completed OK\n");
+WriteLog(sprintf "Run: %d\n", $NumberOfTests );
+WriteLog(sprintf "Passed: %d\n", $NumberOfPassed );
+WriteLog(sprintf "%d tests failed out of %d\n", $NumberOfFailed, $NumberOfTests );
+
+sub DeleteFiles
+ {
+ my ($ext) = @_;
+ opendir(DIR3, ".");
+ while (defined($file3=readdir(DIR3)))
+ {
+ $file3 =~ s/\.$ext//;
+ if(-e "$file3.sis")
+ {
+ rmdir $file3;
+ unlink ("$file3.sis");
+ unlink ("$file3.log");
+ }
+ }
+ close(DIR3);
+ }
+
+sub DeleteFolder
+ {
+ opendir(DIR,".\\package");
+ my @files = readdir DIR;
+ foreach my $f (@files)
+ {
+ $f =~ s/\.sis//;
+ if(-e "package\\$f.sis")
+ {
+ opendir(DIR1,"$f");
+ my @sisfiles = readdir DIR1;
+ foreach my $sis (@sisfiles)
+ {
+ unlink("$f\\$sis");
+ }
+ close (DIR1);
+ }
+ rmdir $f;
+ }
+ close(DIR);
+ }
+#
+#Function to write log into file
+#
+sub WriteLog
+ {
+ my ($log) = @_;
+ unless( open($fh, ">> $logFile"))
+ {
+ printf STDERR "Can\'t open $logfile:$!\n";
+ return;
+ }
+ printf $fh $log;
+ printf $log;
+ close $fh;
+ }
+#
+# Run DumpSIS with prepared sis file, log and administrate its result
+#
+sub DumpSISFile
+ {
+ my ($pkgfile) = @_[0];
+ my ($expectedResult) = @_[1];
+ my ($expectedlog_cmdline) = @_[2];
+ my ($expectedlog_pkg) = @_[3];
+ $pkgfile =~ s/\.sis//;
+ my ($dumpfolder) ="";
+ my ($dumppkg) ="";
+
+ @retval = system("dumpsis -x $pkgfile.sis > $pkgfile.log");
+
+ $logMsg = sprintf "Expected code:%5d result Code:%5d\n", $expectedResult, $?;
+ WriteLog( $logMsg);
+
+ $pkgname = $pkgfile;
+ $pkgname =~ s/.*\\//;
+ $dumpfolder = $pkgname;
+ $dumppkg = "$dumpfolder"."/". "$pkgname.pkg";
+
+ if( $? == $expectedResult && -e $dumppkg && -s $dumppkg )
+ {
+ if(CheckLogs($pkgfile,$expectedlog_cmdline,$expectedlog_pkg))
+ {
+ if("$pkgfile.sis" eq "EmbTest.sis")
+ {
+ $dumpembedded0 = "$dumpfolder"."/sis0/". "sis0.pkg";
+ $dumpembedded1 = "$dumpfolder"."/sis1/". "sis1.pkg";
+ if(-e $dumpembedded0 && -s $dumpembedded0 && -e $dumpembedded1 && -s $dumpembedded1)
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+ }
+
+ elsif("$pkgfile.sis" eq "Embsis1.sis")
+ {
+ $dumpembedded0 = "$dumpfolder"."/sis0/". "sis0.pkg";
+ if(-e $dumpembedded0 && -s $dumpembedded0)
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+ }
+
+ else
+ {
+ if("$pkgfile.sis" eq "pkgversion_c005.sis")
+ {
+ use Cwd;
+ $rootdir = Cwd::abs_path;
+ chdir("$rootdir/$dumpfolder");
+
+ # Create SIS Install File from the Dumped PKG File
+ @retval = system("makesis $pkgname.pkg $pkgname.sis");
+
+ if($? == 0 && -e "$pkgname.sis")
+ {
+ WriteLog("Successfully created $pkgname.sis from dumped PKG file\n");
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ WriteLog("Error: Failed to create $pkgname.sis from dumped PKG file\n");
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+
+ chdir($rootdir);
+ }
+ else
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ }
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+
+ opendir(DIR, $dumpfolder);
+ while (defined($files=readdir(DIR)))
+ {
+ unlink("$dumpfolder"."/"."$files");
+ }
+ close(DIR);
+ }
+ else
+ {
+ if( $? == $expectedResult)
+ {
+ if(CheckLogs($pkgfile,$expectedlog_cmdline,$expectedlog_pkg))
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+
+ opendir(DIR, $dumpfolder);
+ while (defined($file=readdir(DIR)))
+ {
+ unlink("$dumpfolder"."/"."$file");
+ }
+ close(DIR);
+ }
+
+ if("$pkgfile" eq "package\\ExeTest")
+ {
+ $NumberOfTests++;
+ $testid = sprintf "SEC-SWI-I-DUMPSIS-000%d",$NumberOfTests;
+ WriteLog($testid);
+
+ @retval = system("dumpsis -l $pkgfile.sis > $pkgfile.log");
+ WriteLog("\nTest for exe -l option for 1 WINSCW and 2 ARM Executable sis file\n");
+ $logMsg = sprintf "Expected code:%5d result Code:%5d\n", $expectedResult, $?;
+ WriteLog( $logMsg);
+
+ if( $? == $expectedResult)
+ {
+ if(CheckLogs($pkgfile,"$pkgfile.out",$expectedlog_pkg))
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+ }
+
+ unlink("$pkgfile.log");
+
+ opendir(DIR, $dumpfolder);
+ while (defined($files=readdir(DIR)))
+ {
+ unlink("$dumpfolder"."/"."$files");
+ }
+ close(DIR);
+ }
+
+sub TestDEF092185
+ {
+ $DEF092185sis = "DEF092185.sis";
+ $DEF092185Log = "DEF092185.Log";
+ $DEF092185pkg = "DEF092185.pkg";
+ $DumpsisGenPkgPath = "\/DEF092185";
+ WriteLog("Test for DEF092185 - Test for verifying that makesis creates sis file successfully when pkg file generated from Dumpsis is used.\n");
+
+ CreateFile('DEF092185.pkg', $PkgFileTemp);
+ # Create a sis file
+ my $result = system("/epoc32/tools/MAKESIS -v $DEF092185pkg $DEF092185sis > $DEF092185Log ");
+
+ # Execute DumpSIS on the created DEF091285.sis.
+ my $result1 = system("/epoc32/tools/DUMPSIS $DEF092185sis > $DEF092185Log");
+
+ use Cwd;
+ $dir = cwd;
+ chdir $dir.$DumpsisGenPkgPath;
+
+ #Regenerate DEF091860.sis from the dumpsis generated pkg file.
+ use File::Copy;
+ copy("/epoc32/tools/makesis.exe" , "$dir$DumpsisGenPkgPath");
+ $result2 = system("makesis.exe -v $DEF092185pkg $DEF092185sis > $DEF092185Log");
+ chdir $dir;
+
+ $NumberOfTests++;
+ if ($result == 0 && $result1 == 0 && $result2 == 0)
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+
+ unlink $DEF092185pkg;
+ unlink $DEF092185sis;
+ unlink $DEF092185Log;
+ use File::Path;
+ rmtree "$dir$DumpsisGenPkgPath";
+ }
+
+sub CheckFiles($$)
+ {
+ my ($path, $Files)=@_;
+ my $matches = 0;
+
+ foreach (@{$Files})
+ {
+ my $File = $_;
+ if ( -e "$path\\$File" && -s "$path\\$File" )
+ {
+ return 0;
+ }
+ $matches++;
+ }
+ if ( $matches > 0 )
+ {
+ return 1;
+ }
+ else
+ {
+ return 0;
+ }
+ }
+
+#
+# Function to check the Command Line log and PKG files generated by DumpSIS
+#
+# Parameters:
+# ARG 0 - Name of the SIS file without an Extension
+# ARG 1 - Expected log string output by DumpSIS to the Command Line
+# ARG 2 - Expected string to appear in the contents of the PKG file generated by DumpSIS
+#
+# Command Line Log Checking:
+# The function firstly examines $expectedLog_cmdline (ARG 1) to determine what type of command line log check
+# is required by the test.
+#
+# * If the argument contains "-", the .log file is checked to make sure it is empty and no log information
+# has been output by DumpSIS
+# * Else if the argument contains the name of the SIS file (ARG 0) suffixed by ".out", the function compares the
+# contents of the command line log file to that of the .out file to see whether the output from DumpSIS
+# matches the expected file
+# * Otherwise, the command line output for the particular SIS is examined to check whether the
+# string value within $expectedLog_cmdline appears within the log file.
+#
+# If either check is successful, the $cmdlineResult flag is set to 1
+#
+#
+# PKG File Content Checking:
+# The function also examines $expectedLog_pkg (ARG 2) to determine whether a PKG fike content check
+# is required by the test.
+#
+# * If the argument contains "-", the PKG file content check is skipped and deemed successful
+# * Otherwise, the PKG file content generated by the DumpSIS tool is examined to check whether the
+# $expectedLog_pkg string value appears within the PKG file.
+#
+# If either check is successful, the $pkglineResult flag is set to 1
+#
+#
+# If both flags ($cmdlineResult & $pkglineResult) have been successfully set to 1, the function returns a
+# 1 to signal the checks have been successful, otherwise 0 is returned to indicate test failure.
+#
+sub CheckLogs
+ {
+ my ($filename) = @_[0];
+ my ($expectedLog_cmdline) = @_[1];
+ my ($expectedLog_pkg) = @_[2];
+
+ my ($cmdlineResult) = 0;
+ my ($pkglineResult) = 0;
+
+ # -------------------------
+ # Command Line log Checking
+ # -------------------------
+ if($expectedLog_cmdline eq "-")
+ {
+ $logMsg = "Expected CmdLine Log: LOG EMPTY\n";
+ }
+ elsif($expectedLog_cmdline eq "$filename.out")
+ {
+ $logMsg = sprintf "Expected CmdLine Log: Compare Log against .OUT file - %s\n", $expectedLog_cmdline;
+ }
+ else
+ {
+ $logMsg = sprintf "Expected CmdLine Log: %s\n", $expectedLog_cmdline;
+ }
+ WriteLog($logMsg);
+
+
+ # Open the contents of the Log File
+ unless (open($logcontent, "$filename.log"))
+ {
+ printf STDERR "Can't open $filename.log: $!\n";
+ return 0;
+ }
+
+ if($expectedLog_cmdline eq "-")
+ {
+ # File has zero bytes in size (is empty)
+ if (-z $logcontent)
+ {
+ $cmdlineResult = 1;
+ }
+ else
+ {
+ $logMsg = "Error: Log File Not Empty\n";
+ WriteLog($logMsg);
+ }
+ }
+ elsif($expectedLog_cmdline eq "$filename.out")
+ {
+ # Compare the contents of the Log against a multiline output file
+ if(compare("$filename.out","$filename.log") == 0)
+ {
+ $cmdlineResult = 1;
+ }
+ else
+ {
+ $logMsg = sprintf "Error: Log file does not match %s\n", $expectedLog_cmdline;
+ WriteLog($logMsg);
+ }
+ }
+ else
+ {
+ foreach $logline (<$logcontent>)
+ {
+ if ($logline =~ m/\Q$expectedLog_cmdline\E/i)
+ {
+ $cmdlineResult = 1;
+ }
+ }
+
+ if($cmdlineResult == 0)
+ {
+ $logMsg = "Error: Expected Logging Not Found\n";
+ WriteLog($logMsg);
+ }
+ }
+
+ close($logcontent);
+
+
+ # -------------------------
+ # PKG File Content Checking
+ # -------------------------
+
+ # Define the dumped PKG path
+ $filename =~ s/.*\\//;
+ $dumppkg = $filename."\\$filename.pkg";
+
+ if($expectedLog_pkg eq "-")
+ {
+ $logMsg = sprintf "Expected PKG Content: NO CHECK\n";
+ WriteLog($logMsg);
+ $pkglineResult = 1;
+ }
+ else
+ {
+ $logMsg = sprintf "Expected PKG Content: %s\n", $expectedLog_pkg;
+ WriteLog($logMsg);
+
+ # Open the contents of the PKG File
+ unless (open($pkgcontent,"$dumppkg"))
+ {
+ printf STDERR "Can't open $filename.pkg: $!\n";
+ return 0;
+ }
+
+ foreach $pkgline (<$pkgcontent>)
+ {
+ $pkgline =~ tr/\000//d;
+ if ($pkgline =~ m/\Q$expectedLog_pkg\E/i)
+ {
+ $pkglineResult = 1;
+ }
+ }
+
+ if($pkglineResult == 0)
+ {
+ $logMsg = "Error: Expected PKG Content Not Found\n";
+ WriteLog($logMsg);
+ }
+
+ close($pkgcontent);
+ }
+
+ if($cmdlineResult == 1 && $pkglineResult == 1)
+ {
+ return 1;
+ }
+
+ return 0;
+ }
+
+sub TestPDEF095820
+ {
+ WriteLog("Test for PDEF095820 - Dumpsis doesn't work correctly with embedded sis files.\n");
+
+ $path = "\\epoc32\\winscw\\c\\tswi\\tsis\\data";
+ $embed2lvl = "testembed2lvl";
+ $PDEF095820Log = "PDEF095820.Log";
+ $DumpsisGenPkgPath = "\/$embed2lvl";
+
+ # Execute DumpSIS
+ my $sisfile = "$path\\$embed2lvl.sis";
+ if (! -e $sisfile )
+ {
+ $NumberOfTests++;
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ exit;
+ }
+ my $result = system("/epoc32/tools/DUMPSIS -x $path\\$embed2lvl.sis > $PDEF095820Log");
+ if ( $result != 0 )
+ {
+ $NumberOfTests++;
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ exit;
+ }
+
+ use Cwd;
+ $dir = cwd;
+ #chdir $dir.$DumpsisGenPkgPath;
+
+ my $filesLvl = 0;
+
+ # Check that all required file are generated and have non-zero sizes
+ my @main = ("$embed2lvl.pkg", "sis0.sis", "sis1.sis", "sis2.sis", "file0", "certChain0.der");
+ my @sis0 = ("sis0.pkg", "file0", "certChain1.der");
+ my @sis1 = ("sis1.pkg", "file0", "certChain2.der");
+ my @sis2 = ("sis2.pkg", "file0", "file1", "file2", "file3", "certChain3.der");
+ $filesLvl += CheckFiles("$dir$DumpsisGenPkgPath\n",\@main);
+ $filesLvl += CheckFiles("$dir$DumpsisGenPkgPath/sis0\n",\@sis0);
+ $filesLvl += CheckFiles("$dir$DumpsisGenPkgPath/sis1\n",\@sis1);
+ $filesLvl += CheckFiles("$dir$DumpsisGenPkgPath/sis2\n",\@sis2);
+
+ $NumberOfTests++;
+ if ( $filesLvl == 4 )
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+
+ #chdir $dir;
+ unlink $PDEF095820Log;
+ use File::Path;
+ rmtree "$dir$DumpsisGenPkgPath";
+ }
+
+sub TestDEF100220
+ {
+ $DEF100220sis = "DEF100220.sis";
+ $DEF100220Log = "DEF100220.Log";
+ $DEF100220pkg = "DEF100220.pkg";
+ $DumpsisGenPkgPath = "\/DEF100220";
+ WriteLog("Test for DEF100220 - Test for verifying that makesis creates sis file successfully when pkg file generated from Dumpsis is used.\n");
+
+ CreateFile('DEF100220.pkg', $PkgFileTemplate);
+ # Create a sis file
+ my $result = system("/epoc32/tools/MAKESIS -v $DEF100220pkg $DEF100220sis > $DEF100220Log ");
+
+ # Execute DumpSIS on the created DEF100220.sis.
+ my $result1 = system("/epoc32/tools/DUMPSIS $DEF100220sis > $DEF100220Log");
+
+ use Cwd;
+ $dir = cwd;
+ chdir $dir.$DumpsisGenPkgPath;
+
+ #Regenerate DEF100220.sis from the dumpsis generated pkg file.
+ use File::Copy;
+ copy("/epoc32/tools/makesis.exe" , "$dir$DumpsisGenPkgPath");
+ $result2 = system("makesis.exe -v $DEF100220pkg $DEF100220sis > $DEF100220Log");
+ chdir $dir;
+
+ $NumberOfTests++;
+ if ($result == 0 && $result1 == 0 && $result2 == 0)
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+
+ unlink $DEF100220pkg;
+ unlink $DEF100220sis;
+ unlink $DEF100220Log;
+ use File::Path;
+ rmtree "$dir$DumpsisGenPkgPath";
+ }
+
+
+sub TestRecursiveDirCreation
+ {
+ $TestSisFile = "DumpsisTest.sis";
+ $TestLogFile = "DumpsisTest.Log";
+ $TestPkgFile = "DumpsisTest.pkg";
+ $DumpsisExtractPath = "\/TestDumpsis\/dir\/creation";
+ WriteLog("Test for verifying the ability of dumpsis to create recursive directories if the extraction path is not created.\n");
+
+ CreateFile($TestPkgFile, $PkgFileTemplate);
+ # Create a sis file
+ my $result = system("/epoc32/tools/MAKESIS -v $TestPkgFile $TestSisFile > $TestLogFile ");
+
+ # Execute DumpSIS on the created DumpsisTest.sis.
+ my $result1 = system("/epoc32/tools/DUMPSIS -d $DumpsisExtractPath $TestSisFile > $TestLogFile");
+ my $result2 = 0;
+
+ if(-e "$DumpsisExtractPath\\$TestPkgFile")
+ {
+ $result2 = 1;
+ }
+
+ $NumberOfTests++;
+ if ($result == 0 && $result1 == 0 && $result2 == 1)
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+
+ unlink $TestPkgFile;
+ unlink $TestLogFile;
+ unlink $TestSisFile;
+ use File::Path;
+ rmtree "\/TestDumpsis";
+ }
+
+#
+# Function to create a file (test.txt or any PKG)
+#
+sub CreateFile {
+ my ($filename, $contents) = @_;
+
+ unless (open($fh, "> $filename")) {
+ printf STDERR "Can't open $filename: $!\n";
+ return;
+ }
+
+ print $fh $contents;
+ close $fh;
+}
+
+sub TestUnicode {
+
+ my $scriptpath = "\\epoc32\\winscw\\c\\tswi\\tdumpsis\\data\\unicodetest";
+
+ WriteLog("Test for DEF099325 - Unicode named sis files\n");
+
+ $NumberOfTests++;
+ # Generate Japanese pkg
+ system("WScript.exe //B //Nologo $scriptpath\\jpn_filename.vbs");
+
+ if ( -f "passed.txt") {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ } else {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+ system("WScript.exe //B //Nologo $scriptpath\\jpn_filename_cleanup.vbs");
+
+ WriteLog("Test for DEF099325 - UCS2 encoding format.\n");
+
+ $NumberOfTests++;
+ # Generate Japanese pkg
+ system("WScript.exe //B //Nologo $scriptpath\\ucs2jpn.vbs");
+
+ if ( -f "passed.txt") {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ } else {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+ system("WScript.exe //B //Nologo $scriptpath\\ucs2jpn_cleanup.vbs");
+
+
+ WriteLog("Test for DEF099325 - Test for Katakana characters and embedded sis file.\n");
+
+ $NumberOfTests++;
+ # Generate Japanese pkg
+ system("WScript.exe //B //Nologo $scriptpath\\embed.vbs");
+
+ if ( -f "passed.txt") {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ } else {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+ system("WScript.exe //B //Nologo $scriptpath\\embed_cleanup.vbs");
+
+}
+
+sub TestDEF105590
+ {
+ $DEF105590sis = "DEF105590.sis";
+ $DEF105590Log = "DEF105590.Log";
+ $DEF105590pkg = "DEF105590.pkg";
+ $DEF105590Expectedpkg = "DEF105590Expected.pkg";
+ $DumpsisGenPkgPath = "\/DEF105590";
+ WriteLog("Test for DEF105590 - Test for verifying that RW is not appended to the generated pkg file from Dumpsis from sis file having FR,RR option.\n");
+
+ CreateFile('DEF105590.pkg', $PkgFileDEF105590);
+ CreateFile('DEF105590Expected.pkg', $ExpectedPkgFileDEF105590);
+
+ # Create a sis file
+ my $result = system("/epoc32/tools/MAKESIS -v $DEF105590pkg $DEF105590sis > $DEF105590Log ");
+
+ # Execute DumpSIS on the created DEF105590.sis.
+ my $result1 = system("/epoc32/tools/DUMPSIS $DEF105590sis > $DEF105590Log");
+ use Cwd;
+ $dir = cwd;
+ chdir $dir;
+ use File::Compare;
+ my $result3;
+ my $file1 = $dir."/".$DEF105590Expectedpkg;
+ my $file2 = $dir.$DumpsisGenPkgPath."/".$DEF105590pkg;
+ if(compare($file1,$file2))
+ {
+ $result3 = 0;
+ }
+ else
+ {
+ $result3 = 1;
+ }
+ $NumberOfTests++;
+
+ if ($result == 0 && $result1 == 0 && $result3 == 0)
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+ chdir $dir;
+ unlink $DEF105590Expectedpkg;
+ unlink $DEF105590pkg;
+ unlink $DEF105590sis;
+ unlink $DEF105590Log;
+ use File::Path;
+ rmtree "$dir$DumpsisGenPkgPath";
+ }
+#
+# SEC-DumpSIS-Hide-001
+# Tests the MakeSIS and DumpSIS for the support of a new installtion flag HIDE / H (to represent Hidden component) in the package file.
+#
+sub TestHiddenFlag
+ {
+ $Hiddensis = "Hidden.sis";
+ $HiddenLog = "Hidden.Log";
+ $Hiddenpkg = "Hidden.pkg";
+ $ExpectedHiddenpkg = "ExpectedHidden.pkg";
+ $DumpsisGenPkgPath = "\/Hidden";
+ WriteLog("Test for Hidden package - Test for verifying that the installation flag HIDE is properly processed by DumpSis.\n");
+
+ CreateFile('Hidden.pkg', $PkgFileHidden);
+ CreateFile('ExpectedHidden.pkg', $ExpectedPkgFileHidden);
+
+ # Create a sis file
+ my $result = system("/epoc32/tools/MAKESIS -v $Hiddenpkg $Hiddensis > $HiddenLog ");
+
+ # Execute DumpSIS on the created Hidden.sis.
+ my $result1 = system("/epoc32/tools/DUMPSIS $Hiddensis > $HiddenLog");
+ use Cwd;
+ $dir = cwd;
+ chdir $dir;
+ use File::Compare;
+ my $result3;
+ my $file1 = $dir."/".$ExpectedHiddenpkg;
+ my $file2 = $dir.$DumpsisGenPkgPath."/".$Hiddenpkg;
+ if(compare($file1,$file2))
+ {
+ $result3 = 0;
+ }
+ else
+ {
+ $result3 = 1;
+ }
+ $NumberOfTests++;
+
+ if ($result == 0 && $result1 == 0 && $result3 == 0)
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+ chdir $dir;
+ unlink $ExpectedHiddenpkg;
+ unlink $Hiddenpkg;
+ unlink $Hiddensis;
+ unlink $HiddenLog;
+ use File::Path;
+ rmtree "$dir$DumpsisGenPkgPath";
+ }
+
+sub CheckCertExtraction
+ {
+ my $TestLogFile = "DumpsisTest.Log";
+ my $TestPkgFile = "DumpsisTest.pkg";
+ my $TestSisFile = "DumpsisTest.sis";
+ my $TestSignedSisFile = "DumpsisSigned.sis";
+ my $outputDir = "ExtractedFiles";
+ my $certFileName = "$outputDir\\certChain01.der";
+
+ WriteLog("Testing certificate extraction\n");
+
+ CreateFile($TestPkgFile, $PkgFileTemplate);
+
+ my $result = system("/epoc32/tools/makeSIS $TestPkgFile $TestSisFile > $TestLogFile");
+
+ if(0 == $result)
+ {
+ $result = system("/epoc32/tools/signsis -s $TestSisFile $TestSignedSisFile \\epoc32\\winscw\\c\\tswi\\tsignsis\\default.cer \\epoc32\\winscw\\c\\tswi\\tsignsis\\default.key > $TestLogFile");
+ }
+
+ if(0 == $result)
+ {
+ $result = system("/epoc32/tools/DUMPSIS -x -i -d $outputDir $TestSignedSisFile > $TestLogFile");
+ }
+
+ $NumberOfTests++;
+
+ if ($result == 0 && -e $certFileName)
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+
+ $NumberOfTests++;
+
+ WriteLog("Testing version message display\n");
+ $result = system("/epoc32/tools/DUMPSIS -v > $TestLogFile");
+ if ($result == 0)
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+
+ unlink $certFileName;
+ unlink $TestSignedSisFile;
+ unlink $TestSisFile;
+ unlink $TestPkgFile;
+ unlink $TestLogFile;
+ use File::Path;
+ rmtree "$outputDir";
+ }
+
+sub SatisfyCoverage
+ {
+ my $TestLogFile = "DumpsisTest.Log";
+
+ WriteLog("Testing help message display\n");
+ my $result = system("/epoc32/tools/DUMPSIS -h > $TestLogFile");
+
+ $NumberOfTests++;
+
+ if ($result == 0)
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+
+ $NumberOfTests++;
+
+ WriteLog("Testing version message display\n");
+ $result = system("/epoc32/tools/DUMPSIS -v > $TestLogFile");
+ if ($result == 0)
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+
+ unlink $TestLogFile;
+ }
+
+sub VerifyErroneousCommandLineArg
+ {
+ my $TestLogFile = "DumpsisTest.Log";
+ my $ErrOutputFile = "DumpsisErr.out";
+ my $ErrFile = "DumpsisTest.err";
+ my $errMsg1 = "DumpSIS: Error in command: no SIS file specified\n";
+ my $errMsg2 = "DumpSIS: Error in command: too many SIS files specified\n";
+ my $errMsg3 = "DumpSIS: Error in command: No argument supplied with the -d flag\n";
+
+ WriteLog("Testing invalid command line arguments\n");
+ CreateFile($ErrFile, $errMsg1);
+ my $result1 = system("/epoc32/tools/DUMPSIS 2> $ErrOutputFile > $TestLogFile");
+ my $result = 1;
+
+ if( !((compare($ErrFile,$ErrOutputFile) == 0) && $result1 == 256))
+ {
+ $result = 0;
+ }
+
+ CreateFile($ErrFile, $errMsg2);
+ $result1 = system("/epoc32/tools/DUMPSIS sis1.sis sis2.sis sis3.sis 2> $ErrOutputFile > $TestLogFile");
+
+ if( !((compare($ErrFile,$ErrOutputFile) == 0) && $result1 == 256))
+ {
+ $result = 0;
+ }
+
+ CreateFile($ErrFile, $errMsg3);
+ $result1 = system("/epoc32/tools/DUMPSIS -d 2> $ErrOutputFile > $TestLogFile");
+
+ if( !((compare($ErrFile,$ErrOutputFile) == 0) && $result1 == 256))
+ {
+ $result = 0;
+ }
+
+ $NumberOfTests++;
+ if ($result == 1)
+ {
+ $NumberOfPassed++;
+ WriteLog("Passed\n\n");
+ }
+ else
+ {
+ $NumberOfFailed++;
+ WriteLog("Failed\n\n");
+ }
+
+ unlink $ErrFile;
+ unlink $ErrOutputFile;
+ unlink $TestLogFile;
+ }
+