Merge RCL_3 fixes with latest delivery.
#
# 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:
#
#!C:\Perl\bin
#run this from a same drive as your epoc.
# set EPOCROOT=\ before you run
#$infile_exe="Q:\epoc32\release\winscw\udeb\z\phexe_list.bat";
#open (EXELIST, "$infile_exe");
#@exelist=<EXELIST>;
#$execount = 0;
$logfile="\\epoc32\\winscw\\c\\PH.log";
open(INFILED, $logfile);
@lines=<INFILED>;
#print "lines = @lines[0]\n";
$outfile="PH_report.txt";
open(OUTFILE, ">$outfile");
$successful = 0;
$errors = 0;
$skipped = 0;
#@results;
foreach $line (@lines)
{
#print "comparing..\n";
#if ($line =~ /individual/)
#{
#no need to write this
#print OUTFILE $line;
#}
if ($line =~ /successful test cases/)
{
#starting of a result
print OUTFILE $line;
@success = split(/ /, $line);
$successful += @success[1];
#print OUTFILE "@success[1]\n";
}
if ($line =~ /errors/)
{
#starting of a result
print OUTFILE $line;
@failures = split(/ /, $line);
$errors += @failures[1];
}
if ($line =~ /skipped/)
{
#starting of a result
print OUTFILE $line;
@skippedline = split(/ /, $line);
$skipped += @skippedline[1];
}
}
print OUTFILE "************************ Final Summary ************************\n";
print OUTFILE "Total successful = $successful\n";
print OUTFILE "Total errors = $errors\n";
print OUTFILE "Total skipped = $skipped\n";
$totalcases = $successful+ $errors + $skipped;
print OUTFILE "Total test cases = $totalcases\n";
$passpercentage = $successful/$totalcases * 100;
print OUTFILE "Pass percentage = $passpercentage\n";
print "\n\n************************ Final Summary ************************\n";
print "Total successful = $successful\n";
print "Total errors = $errors\n";
print "Total skipped = $skipped\n";
print "Total test cases = $totalcases\n";
print "Pass percentage = $passpercentage\n";
print "***************************************************************\n";
#close (EXELIST);
close (INFILED);
close (OUTFILE);