#
# 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 Dumpswicertstore tools
#
use File::Basename;
my $scriptdir= dirname $0;
print "Changing dir to $scriptdir\n";
chdir $scriptdir;
$logFile = "\\epoc32\\winscw\\c\\dumpswicertstore_test.txt";
use File::Copy;
use Cwd;
#
#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 CertstoreFile
{
my ($datfile) = @_[0];
my ($expectedResult) = @_[1];
$datfile =~ s/\.dat//;
$neededfolder="";
$neededfile="";
$outputDir = "dumpcertstore-output\\";
if($datfile eq "\\epoc32\\winscw\\c\\resource\\swicertstore\\dat")
{
$writable = "writable.log";
@retval = system("dumpswicertstoretool.exe $datfile > $writable");
$logMsg = sprintf "Expected code:%5d result Code:%5d\n", $expectedResult, $?;
WriteLog( $logMsg);
$NumberOfTests++;
if( $? == $expectedResult)
{
$writableoutput = "$outputDir" ."writable.out";
my $res=`diff "$writableoutput" "writable.log"`;
if(length($res) == 0)
{
$NumberOfPassed++;
WriteLog("Passed\n\n");
}
else
{
$NumberOfFailed++;
WriteLog("Failed: Files $writableoutput and writable.log are not matched\n\n");
}
}
else
{
$NumberOfFailed++;
WriteLog("Failed\n\n");
}
unlink("writable.log");
}
elsif($datfile eq "somecapabilities.dat \\epoc32\\winscw\\c\\resource\\swicertstore\\dat")
{
$both1 = "both1.log";
@retval = system("dumpswicertstoretool.exe $datfile > $both1");
$logMsg = sprintf "Expected code:%5d result Code:%5d\n", $expectedResult, $?;
WriteLog( $logMsg);
$NumberOfTests++;
if( $? == $expectedResult)
{
$both1output = "$outputDir" ."both1.out";
my $res=`diff "$both1output" "both1.log"`;
if(length($res) == 0)
{
$NumberOfPassed++;
WriteLog("Passed\n\n");
}
else
{
$NumberOfFailed++;
WriteLog("Failed: Files $both1output and both1.log are not matched\n\n");
}
}
else
{
$NumberOfFailed++;
WriteLog("Failed\n\n");
}
unlink("both1.log");
}
elsif($datfile eq "somecapabilities.dat")
{
$Yoption = "capdisplay_yoption.log";
@retval = system("dumpswicertstoretool.exe -y $datfile > $Yoption");
$logMsg = sprintf "Expected code:%5d result Code:%5d\n", $expectedResult, $?;
WriteLog( $logMsg);
$NumberOfTests++;
if( $? == $expectedResult)
{
$both1output = "$outputDir" ."capdisplay_yoption.out";
my $res=`diff "$both1output" "capdisplay_yoption.log"`;
if(length($res) == 0)
{
$NumberOfPassed++;
WriteLog("Passed\n\n");
}
else
{
$NumberOfFailed++;
WriteLog("Failed: Files $both1output and capdisplay_yoption.log are not matched\n\n");
}
}
else
{
$NumberOfFailed++;
WriteLog("Failed\n\n");
}
@retval = system("dumpswicertstoretool.exe -d $datfile > $Yoption");
$logMsg = sprintf "Expected code:%5d result Code:%5d\n", $expectedResult, $?;
WriteLog( $logMsg);
$NumberOfTests++;
if( $? == $expectedResult)
{
$both1output = "$outputDir" ."capdisplay_doption.out";
my $res=`diff "$both1output" "capdisplay_doption.log"`;
if(length($res) == 0)
{
$NumberOfPassed++;
WriteLog("Passed\n\n");
}
else
{
$NumberOfFailed++;
WriteLog("Failed: Files $both1output and capdisplay_doption.log are not matched\n\n");
}
}
else
{
$NumberOfFailed++;
WriteLog("Failed\n\n");
}
unlink("capdisplay_yoption.log");
}
elsif($datfile eq "NoMandatory.dat \\epoc32\\winscw\\c\\resource\\swicertstore\\dat")
{
$both2 = "both2.log";
@retval = system("dumpswicertstoretool.exe $datfile > $both2");
$logMsg = sprintf "Expected code:%5d result Code:%5d\n", $expectedResult, $?;
WriteLog( $logMsg);
$NumberOfTests++;
if( $? == $expectedResult)
{
$both2output = "$outputDir" ."both2.out";
my $res=`diff "$both2output" "both2.log"`;
if(length($res) == 0)
{
$NumberOfPassed++;
WriteLog("Passed\n\n");
}
else
{
$NumberOfFailed++;
WriteLog("Failed: Files $both2output and both2.log are not matched\n\n");
}
}
else
{
$NumberOfFailed++;
WriteLog("Failed\n\n");
}
unlink("both2.log");
}
else
{
@retval = system("dumpswicertstoretool.exe $datfile.dat > $datfile.log");
$logMsg = sprintf "Expected code:%5d result Code:%5d\n", $expectedResult, $?;
WriteLog( $logMsg);
$NumberOfTests++;
if( $? == $expectedResult)
{
$outputDat = "$outputDir" ."$datfile.out";
my $res=`diff "$outputDat" "$datfile.log"`;
if(length($res) == 0)
{
$NumberOfPassed++;
WriteLog("Passed\n\n");
}
else
{
$NumberOfFailed++;
WriteLog("Failed: Files $outputDat and $datfile.log are not matched\n\n");
}
if("$pkgfile.dat" eq "AllCapabilities.dat")
{
WriteLog("Test for Extract Certificate\n");
@retval = system("dumpswicertstoretool.exe -c $datfile.dat > $datfile.log");
$logMsg = sprintf "Expected code:%5d result Code:%5d\n", $expectedResult, $?;
WriteLog( $logMsg);
$NumberOfTests++;
if( $? == $expectedResult)
{
$neededfile = "Root5CA.der";
if(-e $neededfile && -s $neededfile)
{
$NumberOfPassed++;
WriteLog("Passed\n\n");
}
else
{
$NumberOfFailed++;
WriteLog("Failed\n\n");
}
}
else
{
$NumberOfFailed++;
WriteLog("Failed\n\n");
}
}
}
else
{
$NumberOfFailed++;
WriteLog("Failed\n\n");
}
unlink("$datfile.log");
}
}
#
# Main
#
# Create environment and control test flow to testing Dumpswicertstoretool.EXE
#
unlink($logFile);
WriteLog("DumpSWICertstoreTool test.\n\n");
#
# Counters for results
#
$NumberOfTests = 0;
$NUmberOfPassed = 0;
$NumberOfFailed = 0;
# file name, expected , expected log, Title
# result message
# ----------------------------------------------------------------------------------------------------
@TestItems = ( ["somecapabilities.dat", 0, , "Created", "Test for certstore with certificates having some capablities"],
["AllCapabilities.dat", 0, , "Created", "Test for certstore with some certificates granting all capabilities, some granting no capabilities and some granting few capabilities"],
["somecapabilities.dat", 0, , "Created", "Test for certstore with some certificate (few mandatory flag set and few not set)"],
["\\epoc32\\winscw\\c\\resource\\swicertstore\\dat", 0, , "Created", "Test for writable certstore with multiple files(having corrupt file/files)"],
["somecapabilities.dat.dat \\epoc32\\winscw\\c\\resource\\swicertstore\\dat", 0, , "Created", "Test for certstore with Certificates in C: and not in Z: (Merge)"],
["NoMandatory.dat.dat \\epoc32\\winscw\\c\\resource\\swicertstore\\dat", 0, , "Created", "Test for certstore with Certificates in Z: and not in C: (Merge)"],
["somecapabilities.dat.dat \\epoc32\\winscw\\c\\resource\\swicertstore\\dat", 0, , "Created", "Test for Certificates in both certstore with different settings (capability and mandatory)(Merge))"],
["corrupted.dat", 1024, , "Verification failed", "Corrupted certstore"],
["unicodecertificatename.dat", 0, , "Created", "Test for unicode certificate names"],
["somecapabilities.dat.dat", 0, , "Created", "Test of tool with y and d option for capabilities having text information "],
["suflagsupport.dat", 0, , "Created", "Test for certstore with certificates having su flag set"],
);
#
# Do test for each elements of TestItems array
#
for my $Test ( @TestItems )
{
$testid = sprintf "SEC-SWI-I-CERTSTORE-000%d\n",$NumberOfTests+1;
WriteLog($testid);
$logMsg = sprintf "%s\n", $Test->[3];
WriteLog($logMsg);
CertstoreFile($Test->[0], $Test->[1]);
}
opendir(DIR, ".");
while (defined($file=readdir(DIR)))
{
$datfile = $file;
$file =~ s/\.der//;
$datfile= ~ s/\.dat//;
if(-e "$file.der")
{
unlink("$file.der");
}
close(DIR);
}
opendir(DIR, ".");
while (defined($file=readdir(DIR)))
{
$file =~ s/\.dat//;
if(-e "$file.dat")
{
unlink("$file.dat");
}
close(DIR);
}
#
# 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 );