--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/secureswitools/swianalysistoolkit/test/tchainvalidity/testchainvalidity.pl	Thu Dec 17 08:51:10 2009 +0200
@@ -0,0 +1,149 @@
+#
+# Copyright (c) 2007-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 test Dumpchainvaliditytoool with different ranges
+#
+
+use File::Basename;
+my $scriptdir= dirname $0;
+print "Changing dir to $scriptdir\n";
+chdir $scriptdir;
+
+
+$logFile = "\\epoc32\\winscw\\c\\dumpchainvalidity_test.txt";
+use File::Copy;
+use Cwd;
+use File::Find ;
+
+#
+#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;
+	}
+
+sub chainvalidity 
+	{
+	my ($pkgfile) = @_[0];
+	my ($expectedResult) = @_[1];
+	my ($outputLog) = @_[2];
+	$outputLog =~ s/\.log//;
+	$neededfolder="";
+	$neededfile="";
+	@retval = system("DumpChainValidityTool.exe $pkgfile> $outputLog.log");
+	$logMsg = sprintf "Expected code:%5d   result Code:%5d\n", $expectedResult, $?;
+	WriteLog( $logMsg);
+	$NumberOfTests++;
+	if( $? == $expectedResult) 
+	{
+	sleep(2);
+	my $res=`diff "$outputLog.out" "$outputLog.log"`;
+	if(length($res) == 0)
+		{
+		$NumberOfPassed++;
+		WriteLog("Passed\n\n");
+		}
+	else
+		{
+		$NumberOfFailed++;
+		WriteLog("Failed: Files $outputLog.out and $outputLog.log are not matched\n\n");
+		WriteLog("Failed\n\n");
+		}
+	}
+	else
+		{
+		$NumberOfFailed++;
+		WriteLog("Failed\n\n");
+		}
+	unlink("$outputLog.log");
+
+}
+
+
+unlink($logFile);
+WriteLog("DumpChainValidityTool test.\n\n");
+
+#
+# Counters for results
+#
+$NumberOfTests  = 0;
+$NUmberOfPassed = 0;
+$NumberOfFailed = 0;
+
+#
+# Array of contents of tests and expected results
+#
+#                file name,   					expected , expected log,            Title
+#								result     message
+#               ---------------------------------------------------------------------------------------------------- 
+@TestItems = (	["data\\onechain.sis data\\swicertstore.dat"		,0,    , "Created",		"Test for chainvalidity with one valid chain", "chainvalidity-output\\onechain.log"],
+		["data\\somevalidchain.sis data\\swicertstore.dat"		,0,    , "Created",		"Test for chainvalidity with some valid chains", "chainvalidity-output\\somevalidchain.log"],
+		["data\\multichain_allValid.sis data\\swicertstore.dat"	,0,    , "Created",		"Test for chainvalidity with all chains valid", "chainvalidity-output\\allvalidchain.log"],
+		["data\\selfsigned.SIS data\\swicertstore.dat"		,0,    , "Created",		"Test for SIS file signed with a selfsigned certificate", "chainvalidity-output\\selfsigned.log"],
+		["data\\simple_devsimplesigned.SIS data\\swicertstore.dat"	,0,    , "Created",		"Test for SIS file signed with a developer certificate", "chainvalidity-output\\devcert2.log"],
+		["data\\unsigned.sis data\\swicertstore.dat"		,0,    , "Created",		"Test for chainvalidity with sis file having no chain", "chainvalidity-output\\unsigned.log"],
+		["data\\multichain_allValid.sis data\\AllMandatory.dat"	,0,    , "Created",	"Test for chainvalidity with sis files not signed by all the mandatory certificates present in certstore", "chainvalidity-output\\missing_mandatory.log"],
+		["data\\multichain_allValid.sis data\\Mandatory.dat"	,0,    , "Created",	"Test for chainvalidity with sis files not signed by all the mandatory certificates present in certstore", "chainvalidity-output\\mandatory.log"],
+		["data\\multichain_allValid.sis data\\corrupted.dat"	,1792,    , "File format error",	"Test for chainvalidity with corrupted certstore", "chainvalidity-output\\corrupteddat.log"],
+		["data\\corrupted.sis data\\swicertstore.dat"		,1536,    , "File format error",	"Test for chainvalidity with corrupted sis file", "chainvalidity-output\\corruptedsis.log"],
+	     );
+
+
+
+
+#
+# Do test for each elements of TestItems array
+#
+for my $Test ( @TestItems )
+	{
+	$testid = sprintf "SEC-SWI-I-CHAINVAL-00%d\n",$NumberOfTests+1;
+	WriteLog($testid);
+	$logMsg = sprintf "%s\n", $Test->[3];
+	WriteLog($logMsg);
+	chainvalidity($Test->[0], $Test->[1],$Test->[4]);
+	}
+
+opendir(DIR, ".\\Chain");
+while (defined($files=readdir(DIR)))
+	{
+	$dirname="chain\\";
+	$files =~ s/\.pem//;
+	$dirname.= $files;
+	if(-e "$dirname.pem")
+		{
+		unlink("$dirname.pem");
+		}
+	close(DIR);
+	}
+
+$dirpath = "Chain";
+rmdir($dirpath);
+
+#
+# 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 ); 
+