--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/installationservices/switestfw/test/autotesting/newdigest.pl	Thu Dec 17 08:51:10 2009 +0200
@@ -0,0 +1,240 @@
+#
+# Copyright (c) 2005-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: 
+#
+
+
+use strict;
+use Getopt::Long;
+use IO::Handle;
+use IO::Seekable;
+use File::Basename;
+
+main();
+exit(0);
+
+sub main {
+	if ($#ARGV != 0)
+	{
+		print "usage: newdigest.pl <logfile>\n";
+		exit;
+	}
+	
+	my ($log_file) = $ARGV[0];
+	
+	if (-f $log_file)
+	{
+		system ("del $log_file");
+	}
+	
+	opendir( DIR, "." ) or die("Unable to open directory");
+	my @dirs = readdir DIR;
+	my $entry;
+	
+	my $nTotalTestCase = 0;
+	my $nTotalPassedCase = 0;
+	my $nTotalFailedCase = 0;
+	my $nTotalPassedStep = 0;
+	my $nTotalFailedStep = 0;
+	my $scriptsRun = 0;
+	open (SUMMARY, ">$log_file") || die "couldn't open digest file: $!";
+	
+	foreach $entry ( sort @dirs )
+	{
+		next if ( $entry eq ".." or $entry eq "." );
+		next if ( -d $entry );
+
+		my $failed = 0;
+		my $passed = 0;
+		my $ntestcasepassed = 0;
+		my $ntestcasefailed = 0;
+
+		if ( $entry =~ /\.log/ || $entry =~ /\.txt/)
+		{
+			parseLog($entry, \$failed, \$passed);
+			#printf SUMMARY (" %45s: %d tests failed out of %d\r\n", $entry, $failed, $failed+$passed);			
+		}
+		elsif ($entry =~ /\.htm/) 
+		{
+			parseHtm($entry, \$failed, \$passed, \$ntestcasefailed, \$ntestcasepassed);
+			#printf SUMMARY (" %45s: %d tests failed out of %d\r\n", $entry, $ntestcasefailed, $ntestcasepassed+$ntestcasefailed);
+		}
+		if ( $passed > 0 or $failed > 0)
+		{
+			$scriptsRun++;
+			$nTotalPassedStep += $passed;
+			$nTotalFailedStep += $failed;
+
+			if ( $ntestcasepassed > 0 || $ntestcasefailed > 0 )
+			{
+			$nTotalPassedCase += $ntestcasepassed;
+			$nTotalFailedCase += $ntestcasefailed;
+			}
+			else
+			{
+			if ( $failed > 0 )
+			{
+			$nTotalFailedCase++;
+			}
+			else
+			{
+			$nTotalPassedCase++;
+			}
+			}
+		}
+	}
+	my $ntestScripts = " Test Scripts Run \t";
+	print SUMMARY "\n";	
+	print SUMMARY ($scriptsRun, $ntestScripts);
+	
+	my $nTotalTestCases = $nTotalFailedCase+$nTotalPassedCase;	
+	print SUMMARY "\n";	
+	print SUMMARY "\r\nTest Cases\tPassed\tFailed\tTotal\r\n";
+	printf SUMMARY ("\t\t%d\t%d\t%d\n", $nTotalPassedCase, $nTotalFailedCase, $nTotalTestCases);
+	if ($nTotalTestCases > 0)
+	{
+	print SUMMARY "\r\n\t\t%Passed\t\t%Failed\r\n";	
+	printf SUMMARY ("\t\t%.2f\t\t%.2f\r\n", $nTotalPassedCase/$nTotalTestCases*100, $nTotalFailedCase/$nTotalTestCases*100);	
+	}
+	my $nTotalTestSteps = $nTotalPassedStep+$nTotalFailedStep;
+	print SUMMARY "\n";
+	print SUMMARY "\r\nTest Steps\tPassed\tFailed\tTotal\r\n";
+	printf SUMMARY ("\t\t%d\t%d\t%d\n", $nTotalPassedStep, $nTotalFailedStep, $nTotalTestSteps);
+	if ($nTotalTestSteps > 0)
+	{
+	print SUMMARY "\r\n\t\t%Passed\t\t%Failed\r\n";
+	printf SUMMARY ("\t\t%.2f\t\t%.2f\r\n", $nTotalPassedStep/$nTotalTestSteps*100, $nTotalFailedStep/$nTotalTestSteps*100);
+	}
+}
+
+
+sub parseLog($$$) {
+	my ($entry, $failed, $passed) = @_;
+
+    open (LOG, "$entry" ) or die("open failed");
+    my $found = "false";
+	my $notests = 0;
+    while(<LOG>)
+    {
+	chomp;
+	
+	my $line  = $_;
+	$line =~ s/\x0//g;
+	if ($line =~ /tests failed/)
+	{
+	    $line =~ /(\d+) tests failed out of (\d+)/;
+	    printf SUMMARY (" %45s: %s\r\n", $entry, $&);
+	    $found = "true";
+	    $$failed = $1;
+	    $notests = $2;
+	}
+    }
+    close LOG;
+
+    if ( $found eq "false" && $entry ne "buildid.txt")
+    {
+	printf SUMMARY ("WARNING: Could not parse file %s\r\n", $entry);
+    }
+	$$passed = $notests - $$failed;
+}
+
+sub parseHtm($$$$$) {
+	my ($entry, $nfailed, $npassed, $nCasesFailed, $nCasesPassed) = @_;
+    my ($textfile);
+    $textfile = $entry;
+    $textfile =~ s/\.htm/\.log/;
+    next if ( -f $textfile);
+	
+    my $ncasestotal = 0;
+	my $nstepstotal = 0;
+	my $passed = 0;
+	my $failed = 0;
+	my $casepassed = 0;
+	my $casefailed = 0;
+	my $TEST_STEP_SECTION = 0;
+	my $TEST_CASE_SECTION = 0;
+	my $noTestCase = 0;
+	
+	
+    open (LOG, $entry) || die "couldn't open $entry: $!";
+    while (<LOG>)
+    {
+		my ($sLine) = $_;
+	
+		if ( $sLine =~ /TEST STEP SUMMARY:<\/font>/i) 
+		{
+			$TEST_STEP_SECTION = 1;
+			$TEST_CASE_SECTION = 0;
+		}
+		elsif ( $sLine =~ /RUN PROGRAM SUMMARY:<\/font>/i) 
+		{
+			$TEST_STEP_SECTION = 0;
+		}
+	        elsif( $sLine =~ /TEST CASE SUMMARY:<\/font>/i)
+		{
+			$TEST_CASE_SECTION = 1;
+			$TEST_STEP_SECTION = 0;
+		}		
+		elsif ( $sLine =~ /SUMMARY:<\/font>/i ) # To Keep Last
+		{
+			$TEST_STEP_SECTION = 1;
+			$noTestCase = 1;
+		}
+	
+		if ( $TEST_STEP_SECTION )
+		{
+			$passed += $1 if( $sLine =~ /<font.*color=00AF00> PASS = (\d+)<\/font>/i);
+			$passed += $1 if( $sLine =~ /<font.*color=00AF00>PASS = (\d+)<\/font>/i);
+			$failed += $1 if( $sLine =~ /<font.*color=FF0000>FAIL = (\d+)<\/font>/i);
+			$failed += $1 if( $sLine =~ /<font.*color=0000FF>ABORT = (\d+)<\/font>/i);
+			$failed += $1 if( $sLine =~ /<font.*color=0000FF>PANIC = (\d+)<\/font>/i);
+			$failed += $1 if( $sLine =~ /<font.*color=0000FF>INCONCLUSIVE = (\d+)<\/font>/i);
+			$failed += $1 if( $sLine =~ /<font.*color=0000FF>UNKNOWN = (\d+)<\/font>/i);
+			$failed += $1 if( $sLine =~ /<font.*color=0000FF>UNEXECUTED = (\d+)<\/font>/i);
+		}
+		if ( $TEST_CASE_SECTION )
+		{
+			$casepassed += $1 if( $sLine =~ /<font.*color=00AF00> PASS = (\d+)<\/font>/i);
+			$casepassed += $1 if( $sLine =~ /<font.*color=00AF00>PASS = (\d+)<\/font>/i);
+			$casefailed += $1 if( $sLine =~ /<font.*color=FF0000>FAIL = (\d+)<\/font>/i);
+			$casefailed += $1 if( $sLine =~ /<font.*color=0000FF>ABORT = (\d+)<\/font>/i);
+			$casefailed += $1 if( $sLine =~ /<font.*color=0000FF>PANIC = (\d+)<\/font>/i);
+			$casefailed += $1 if( $sLine =~ /<font.*color=0000FF>INCONCLUSIVE = (\d+)<\/font>/i);
+			$casefailed += $1 if( $sLine =~ /<font.*color=0000FF>UNKNOWN = (\d+)<\/font>/i);
+			$casefailed += $1 if( $sLine =~ /<font.*color=0000FF>UNEXECUTED = (\d+)<\/font>/i);
+		}
+    }
+	$ncasestotal = $casefailed + $casepassed;
+	$nstepstotal = $passed + $failed;
+	
+    close LOG;
+	if($ncasestotal != 0 or $noTestCase == 1) 
+	{
+	  printf SUMMARY (" %45s: %d tests failed out of %d\r\n", $entry, $failed, $nstepstotal);
+	}
+	else
+	{
+	  printf SUMMARY ("WARNING: %45s: %d tests failed out of %d\r\n", $entry, $failed, $nstepstotal);
+	}
+	$$npassed = $passed;
+	$$nfailed = $failed;
+	$$nCasesPassed = $casepassed;
+	$$nCasesFailed = $casefailed;
+}
+
+
+
+
+
+