--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/releasing/makecbr/test/CTestScore.pm	Wed Jun 30 11:35:58 2010 +0800
@@ -0,0 +1,88 @@
+# Copyright (c) 2003-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:
+# \bin\perl
+# CTestScore
+# 
+#
+
+package CTestScore;
+
+use lib qw(../);
+use lib qw(../stages);
+
+use strict;
+
+sub New()
+	{
+	my $proto = shift;
+	my $class = ref($proto) || $proto;
+
+	my $self = {};
+	bless($self, $class);
+
+	$self->Reset();
+
+	return $self;
+	}
+
+sub Reset()
+	{
+	my $self = shift;
+
+	$self->{tested} = 0;
+	$self->{passed} = 0;
+	}
+
+sub Test($$)
+	{
+	my $self = shift;
+	my ($passed, $testname) = @_;
+
+	if ($passed < 0)
+		{
+		$passed = 1;
+		}
+
+	$self->{tested} = $self->{tested}+1;
+	$self->{passed} = $self->{passed}+$passed;
+
+	if ($passed > 0)
+		{
+		print "-- $testname...OK\n";
+		}
+	else
+		{
+		print "*#*#* $testname...FAILED\n";
+		}
+	}
+
+sub Print()
+	{
+	my $self = shift;
+
+	my $tested = $self->{tested};
+	my $passed = $self->{passed};
+	my $score;
+	if ($tested == 0)
+		{
+		$score = "undefined";
+		}
+	else
+		{
+		$score = int($passed/$tested*100);
+		}
+
+	print $score."% pass rate; of $tested tests run, $passed passed, ".($tested-$passed)." failed.\n";
+	}
+1;