# 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;