1 #

     2 # Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).

     3 # All rights reserved.

     4 # This component and the accompanying materials are made available

     5 # under the terms of "Eclipse Public License v1.0"

     6 # which accompanies this distribution, and is available

     7 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     8 #

     9 # Initial Contributors:

    10 # Nokia Corporation - initial contribution.

    11 #

    12 # Contributors:

    13 #

    14 # Description:

    15 #

    16 #!C:\Perl\bin

    17 

    18 #run this from a same drive as your epoc.

    19 # set EPOCROOT=\ before you run

    20 

    21 

    22 #$infile_exe="Q:\epoc32\release\winscw\udeb\z\phexe_list.bat";

    23 #open (EXELIST, "$infile_exe");

    24 #@exelist=<EXELIST>;

    25 #$execount = 0;

    26 

    27 $logfile="\\epoc32\\winscw\\c\\PH.log";

    28 open(INFILED, $logfile);	

    29 @lines=<INFILED>;

    30 #print "lines = @lines[0]\n";

    31 

    32 $outfile="PH_report.txt";

    33 open(OUTFILE, ">$outfile");

    34 

    35 $successful = 0;

    36 $errors = 0;

    37 $skipped = 0;

    38 

    39 

    40 #@results;

    41 foreach $line (@lines)	

    42 {

    43    #print "comparing..\n";

    44    #if ($line =~ /individual/)

    45    #{

    46       #no need to write this

    47       #print OUTFILE $line;      

    48    #}

    49    if ($line =~ /successful test cases/)

    50    {

    51       #starting of a result

    52       print OUTFILE $line;            

    53       @success = split(/ /, $line);

    54       $successful += @success[1];

    55       #print OUTFILE "@success[1]\n";

    56    }

    57    if ($line =~ /errors/)

    58    {

    59       #starting of a result

    60       print OUTFILE $line;      

    61       @failures = split(/ /, $line);

    62       $errors += @failures[1];

    63    }

    64    if ($line =~ /skipped/)

    65    {

    66       #starting of a result

    67       print OUTFILE $line;    

    68       @skippedline = split(/ /, $line);

    69       $skipped += @skippedline[1];      

    70    }

    71    

    72 }

    73 print OUTFILE "************************ Final Summary ************************\n";

    74 print OUTFILE "Total successful = $successful\n";

    75 print OUTFILE "Total errors     = $errors\n";

    76 print OUTFILE "Total skipped    = $skipped\n";

    77 $totalcases = $successful+ $errors + $skipped;

    78 print OUTFILE "Total test cases = $totalcases\n";

    79 $passpercentage = $successful/$totalcases * 100;

    80 print OUTFILE "Pass percentage  = $passpercentage\n";

    81 

    82 print "\n\n************************ Final Summary ************************\n";

    83 print "Total successful = $successful\n";

    84 print "Total errors     = $errors\n";

    85 print "Total skipped    = $skipped\n";

    86 print "Total test cases = $totalcases\n";

    87 print "Pass percentage  = $passpercentage\n";

    88 print "***************************************************************\n";

    89 #close (EXELIST);

    90 close (INFILED);	

    91 close (OUTFILE);