--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mmtestenv/mmtesttools/Scripts/TestResultsComparisonTool/TestScriptResults.pm	Fri Jun 11 15:13:33 2010 +0300
@@ -0,0 +1,217 @@
+# Copyright (c) 2010 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:
+#
+
+package TestScriptResults;
+use strict;
+use Exporter;
+use base 'Exporter'; 
+
+# Crashing enums
+my $KTestDidNotCrash = 0;
+my $KTestCrashed = 1;
+
+# Test Harness enums
+our $KCoreConfTest = "CoreConf";
+our $KTEFTest = "TEF";
+our $KTEFNoTestcasesTest = "TEFNoTestcases";	# Some of the older MM TEF tests were implemented without using testcases, in these cases we use the test steps in their place
+our $KTestFrameworkTest = "TF";
+
+our @EXPORT = qw($KCoreConfTest, $KTEFTest, $KTEFNoTestcasesTest, $KTestFrameworkTest);
+
+# Constructor
+sub TestScriptResults
+	{
+	my $this = {};
+	$this->{ScriptName} = undef;
+	$this->{FilePath} = undef;
+	$this->{DidItCrash} = $KTestDidNotCrash;
+	$this->{TotalNumberTestCases} = undef;
+	$this->{Inconclusives} = [1];	# First entry gives the next free index
+	$this->{Fails} = [1];	# First entry gives the next free index
+	$this->{TestHarness} = undef;
+	bless($this);
+	return $this;
+	}
+
+sub SetScriptName
+	{
+	my $this = shift;
+	$this->{ScriptName} = shift;
+	}
+
+sub ScriptName
+	{
+	my $this = shift;
+	return $this->{ScriptName};
+	}
+	
+sub SetFilePath
+	{
+	my $this = shift;
+	$this->{FilePath} = shift;
+	}
+
+sub FilePath
+	{
+	my $this = shift;
+	return $this->{FilePath};
+	}
+
+sub CoreConfTest
+	{
+	my $this = shift;
+	$this->{TestHarness} = $KCoreConfTest;	
+	}
+
+sub TEFTest
+	{
+	my $this = shift;
+	$this->{TestHarness} = $KTEFTest;
+	}
+		
+sub TEFNoTestcasesTest
+	{
+	my $this = shift;
+	$this->{TestHarness} = $KTEFNoTestcasesTest;
+	}
+	
+sub TestFrameworkTest
+	{
+	my $this = shift;
+	$this->{TestHarness} = $KTestFrameworkTest;
+	}
+
+sub TestHarness
+	{
+	my $this = shift;
+	return $this->{TestHarness};	
+	}
+	
+sub AddInconclusiveResult
+	{
+	my $this = shift;
+	my $currentFreeIndex = $this->{Inconclusives}[0];
+	$this->{Inconclusives}[$currentFreeIndex] = shift;
+	$currentFreeIndex++;
+	$this->{Inconclusives}[0] = $currentFreeIndex;
+	}
+
+sub ResetInconclusives
+	{
+	my $this = shift;
+	$this->{Inconclusives}[0] = 1;	
+	}
+	
+sub Inconclusives
+	{
+	my $this = shift;
+	my @inconList = @{$this->{Inconclusives}};	
+	my $finalIndex = $inconList[0] - 1;
+	return @inconList[1 .. $finalIndex];	
+	}
+	
+sub AddFailureResult
+	{
+	my $this = shift;
+	my $currentFreeIndex = $this->{Fails}[0];
+	$this->{Fails}[$currentFreeIndex] = shift;
+	$currentFreeIndex++;
+	$this->{Fails}[0] = $currentFreeIndex;
+	}
+
+sub ResetFailures
+	{
+	my $this = shift;
+	$this->{Fails}[0] = 1;	
+	}	
+	
+sub Failures
+	{
+	my $this = shift;
+	my @failureList = @{$this->{Fails}};	
+	my $finalIndex = $failureList[0] - 1;
+	return @failureList[1 .. $finalIndex];
+	}	
+	
+sub SetTotalTestCount
+	{
+	my $this = shift;
+	$this->{TotalNumberTestCases} = shift;
+	}
+
+sub TotalTestCount
+	{
+	my $this = shift;
+	return $this->{TotalNumberTestCases};
+	}
+
+sub TestCrashed
+	{
+	my $this = shift;
+	$this->{DidItCrash} = $KTestCrashed;
+	}
+
+sub ResetCrashed
+	{
+	my $this = shift;
+	$this->{DidItCrash} = $KTestDidNotCrash;
+	}
+	
+sub DidItCrash
+	{
+	my $this = shift;
+	return $this->{DidItCrash};
+	}
+	
+sub AnyFailures
+	{
+	my $this = shift;
+	if (($this->{Fails}[0] > 1) || ($this->{Inconclusives}[0] > 1) || ($this->DidItCrash()))
+		{
+		return 1;
+		}
+	return 0;	
+	}
+	
+sub DebugPrint
+	{
+	my $this = shift;
+	print "\nTest script: $this->{ScriptName}\n$this->{FilePath}\n";
+	if ($this->{DidItCrash} == $KTestCrashed)
+		{
+		print "It CRASHED\n";
+		}
+	print "Test cases run: $this->{TotalNumberTestCases}\n";
+	
+	my $lastIndex = $this->{Inconclusives}[0] - 1;
+	if ($lastIndex > 0)
+		{
+		print "INCONCLUSIVES:\n";
+		foreach my $inconclusiveResult (@{$this->{Inconclusives}}[1 .. $lastIndex])
+			{
+			print "$inconclusiveResult\n";
+			}
+		}
+		
+	$lastIndex = $this->{Fails}[0] - 1;
+	if ($lastIndex > 0)
+		{
+		print "FAILS:\n";
+		foreach my $failResult (@{$this->{Fails}}[1 .. $lastIndex])
+			{
+			print "$failResult\n";
+			}
+		}
+	}
\ No newline at end of file