#

# Copyright (c) 2009 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: 

#

#!/usr/bin/perl

use XML::Twig;

my $twig= new XML::Twig();

$logpath = "\\epoc32\\winscw\\c\\shared\\EUnit\\Logs\\EUnit_log.xml";

$twig->parsefile( $logpath);

my $root= $twig->root;

my $elt = $twig->root;

my $failCount = 0;

my $okCount = 0;

while ($elt = $elt->next_elt('result')){

    if( $elt->att('status') eq "FAIL")

    	{

    	$failCount++;	

  		}

    elsif( $elt->att('status') eq "OK")

    	{

    	$okCount++;	

  		}

}

my $allCount = $failCount + $okCount;

print "\nUnit testing results:\n\n";

print $allCount;

print " unit tests run.\n";

print $okCount;

print " unit tests passed.\n";

print $failCount;

print " unit tests failed.\n";

print "\n";

if( $failCount > 0)

	{

	#system("explorer $logpath");	

	}