#
# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
# All rights reserved.
# This component and the accompanying materials are made available
# under the terms of "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:
#
#!/usr/bin/perl -w
use strict;
# Perl script that creates PKG files and test MAKESIS tools with different ranges
#my $logFile = "\\epoc32\\winscw\\c\\ELFTRAN_test.txt";
my $logFile = "ELFTRAN_test.txt";
my @retval = 0;
#
# Counters for results
#
my $NumberOfTests = 0;
my $NumberOfPassed = 0;
my $NumberOfFailed = 0;
#
#Function to write log into file
#
sub WriteLog {
my ($log) = @_;
#public $logfile;
my $fh;
unless( open($fh, ">> $logFile")) {
printf STDERR "Can\'t open $logFile:$!\n";
return;
}
printf $fh $log;
printf $log;
close $fh;
}
#
# Run command with prepared command line parameters and administrate its result
#
sub RunCommand {
my( $command, $expectedResult, $expectedLog, $expectedVal) = @_;
#my ($pkgfile) = @_[0];
#my ($expectedResult) = @_[1];
#$pkgfile =~ s/\.pkg//;
#@retval = system("$command >run.log");
@retval = system("$command >NUL");
my $logMsg = sprintf "Expected code:%5d result Code:%5d \n", $expectedResult, @retval;
WriteLog( $logMsg);
#open CMDPIPE, "$command 3>&1 2>&1 | ";
open CMDPIPE, "$command 2>&1 | ";
my @lines=<CMDPIPE>;
close CMDPIPE;
my $receivedVal;
if( $expectedLog ne "")
{
$receivedVal = ProcessResult($expectedLog, $expectedVal, @lines);
$logMsg = sprintf "Expected %s:%s result value:%s \n", $expectedLog, $expectedVal, $receivedVal;
WriteLog( $logMsg);
}
else
{
$receivedVal=$expectedVal;
}
$NumberOfTests++;
if( $retval[0] == $expectedResult ) {
if( $receivedVal eq $expectedVal ){
$NumberOfPassed++;
WriteLog("Passed\n\n");
}
else
{
$NumberOfFailed++;
WriteLog("Failed\n\n");
}
}
else {
$NumberOfFailed++;
WriteLog("Failed\n\n");
}
#unlink("$pkgfile-tmp.sis");
#unlink("$pkgfile.log");
#unlink("$pkgfile.pkg");
}
sub ProcessResult {
my ($expLog, $expVal, @result) = @_;
for my $line (@result) {
#WriteLog( $line);
if($line =~ /($expLog):[ \t](.*)/i)
#if($line =~ /.?($expLog)[ :][ \t](.*)/i)
{
#WriteLog($1);
if( $2 eq $expVal)
{
return $2;
}
}
}
return "";
}
#
# Main
#
# Create environment and control test flow to testing ELFTRAN
#
unlink($logFile);
WriteLog("ELFTRAN test.\n\n");
my $Command = "ELFTRAN.EXE";
my $Path = "\\epoc32\\tools\\";
#
# Array of contents of ELFTRAN parameters and expected results
#
# command, options inputfile/, outfile expected , expected log, expeced log
# e32imagefile result message value
# ------------------------------------------------------------------------------------------------------------------------------------------------
my @TestItems = ( [$Command, "", "", "", 65280, , "", ""],
[$Command, "-h", "", "", 256, , "ERROR", "Cannot open -h for input."],
[$Command, "-dump h -nocompress", "camera1_test.exe", "", 0, , "Compression", "00000000"],
[$Command, "-dump h", "camera1_test.exe", "", 0, , "Compression", "101f7afc"],
[$Command, "-dump h -nocompress", "camera1_test.exe", "", 0, , "Compression", "00000000"],
[$Command, "-dump h -compress", "camera1_test.exe", "", 0, , "Compression", "101f7afc"],
[$Command, "-dump h -nocompress", "camera1_test.exe", "", 0, , "Compression", "00000000"],
[$Command, "-dump h -compressionmethod bytepair", "camera1_test.exe", "", 0, , "Compression", "102822aa"],
[$Command, "-dump h -compressionmethod none", "camera1_test.exe", "", 0, , "Compression", "00000000"],
[$Command, "-dump h -compressionmethod deflate", "camera1_test.exe", "", 0, , "Compression", "101f7afc"],
[$Command, "-dump h -compress -compressionmethod bytepair", "camera1_test.exe", "", 0, , "Compression", "102822aa"],
[$Command, "-dump h -compress -compressionmethod deflate", "camera1_test.exe", "", 0, , "Compression", "101f7afc"],
[$Command, "-dump h -compress -compressionmethod none", "camera1_test.exe", "", 0, , "Compression", "00000000"],
[$Command, "-dump h -nocompress -compressionmethod deflate", "camera1_test.exe", "", 0, , "Compression", "00000000"],
[$Command, "-dump h -nocompress -compressionmethod none", "camera1_test.exe", "", 0, , "Compression", "00000000"],
[$Command, "-dump h -nocompress -compressionmethod bytepair", "camera1_test.exe", "", 0, , "Compression", "00000000"],
);
#
# Do test for each elements of TestItems array
#
my $loop = 1;
for my $Test ( @TestItems ) {
WriteLog( sprintf "Loop:%3d\n", $loop++);
my $command = sprintf "%s%s %s %s %s", $Path, $Test->[0], $Test->[1], $Test->[2], $Test->[3];
my $logLine = "Command: '$command'\n";
WriteLog($logLine);
RunCommand($command, $Test->[4], $Test->[5], $Test->[6]);
}
#
# 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 );