[@--# 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:

# Template processed by GenDiamondsXml.pm

# 

#--@]

<?xml version="1.0" encoding="utf-8"?>

<diamonds-build>

  <schema>[@--$ENV{DiamondsSchemaNum}--@]</schema>

[@--

  use myutils;  

  use GenAutoSmokeTestResult;

  our $Gtotal = 0;

  our $Gexecuted = 0 ;

  our $Gsuccessful =0;

  our $Gnot_tested = 0 ;

  our $Gfailed  = 0 ;

  our $Gtestcases;

  our $Gtitle = "";

  my $iDir = &myutils::getiDir();

  my $iSnapshot = &myutils::getiSnapshot();

  my $iProduct = &myutils::getiProduct();

  my $iLinkPath = &myutils::getiLinkPath();

 {

	#my $str = PlanTxtAutoSmokeTestResult('.\\', "MSF00290", "tb92sf", '.\\');

	my $str = PlanTxtAutoSmokeTestResult($iDir, $iSnapshot, $iProduct, $iLinkPath);

	if ($str ne undef) #not empty

	{

		$Gtestcases = resultTestCasesXMLbody($str);

		$Gtotal = $Gsuccessful+ $Gnot_tested+ $Gfailed;	# total number of testcases

	}	

}

$OUT = '';#return value

#  _html2text HTML formate convert to plan text string.

#  input a html string

#  ouput smiplified text

sub _html2text {

	my ($str) = shift(@_);

	$str =~ s/\n//sg;	# Remove all obsolete newlines.

	# Link:

	$str =~ s/<a[ ]+.*?>(.+)<\/a>/$1/ig;

	# Table:

	$str =~ s/<\/?table[ ]*.*?>/\n/ig;

	$str =~ s/<td[ ]*.*?>/\t/ig;

	$str =~ s/<tr[ ]*.*?>/\n/ig;

	$str =~ s/<th[ ]*.*?>/\t/ig;

	# Cleaning up:

	$str =~ s/<.*?>//sg;		# Remove all tags.

	$str =~ s/\n[ ]+\n/\n\n/sg;	# Remove all obsolete spaces.

	$str =~ s/\n[ ]+/\n/sg;

	$str =~ s/\n{2,}/\n\n/sg;	# Remove all obsolete newlines.

	$str =~ s/^[ ]*//g;		# Remove all leading spaces (again).

	$str =~ s/[ ]+/ /g;		# Remove all duplicate spaces (again).

	$str =~ s/[\t\t]+/\t/g;

	return $str;

}

sub PlanTxtAutoSmokeTestResult

{

	my ($iLogsPublishLocation, $iSnapshot, $iProduct, $iLinkPathLocation) = @_;

	my $str;

	$str =  GenAutoSmokeTestResult::generateSTHTMLSummary($iLogsPublishLocation."AutoSmokeTest", $iSnapshot, $iProduct, $iLinkPathLocation."AutoSmokeTest");

	$str =~ s/[\t]+//g; # Remove extra \t. the \t was gen by GenSmokeTestResult.pm

	$str = _html2text($str);

	$str =~ s/&nbsp//g; #remove &nbsp

	$str =~ s/\n\t/\n/g;#remove \t at head

	$str =~ s/\n\n/\n/g;

	$str=~ s/^\n//g;#remove first empy line

	return $str;

}

sub resultTestCasesXMLbody

{

	my ($str) = shift (@_);

	my @lines = split(/\n/,$str);

	#print Dumper(\@lines);

	$Gtitle =  $lines[0];#Auto Smoke Test

	@results = @lines[2..$#lines];

	#print Dumper(\@results);

	my $ret ="<testcases>\n";

	my @testTitle = split (/\t/, $lines[1]);

	foreach my $APlatform (@results)

	{

		my @result = split (/\t/, $APlatform);	

		$plat = $result[0];# platform name;

		$result[1];# Summary

		$result[2];# Time World

		$result[3];# Contacts

		$result[4];# Messaging

		$result[5];# Agenda

		$result[6];# Defects

		for (my $i =2;$i<6;++$i)

		{

			$ret .= "<testcase>\n<name>".$plat.$testTitle[$i]."</name>\n";

			$ret .= "<status>".$result[$i]."</status>\n";		

			$ret .= "</testcase>\n";

			if ($result[$i] =~/FAILURES/)

			{$Gexecuted++;

			$Gfailed++;}	#FAILURES

			elsif( $result[$i] =~/Unexecuted/) 

			{$Gnot_tested++;}#Unexecuted

			elsif ( $result[$i] =~/OK/)

			{$Gexecuted++;

			$Gsuccessful++;}#OK

		}

	}

	$ret .="</testcases>\n";

	return $ret;

}

--@]

	<tests>

		<test_results>

			<test type="[@--$Gtitle--@]">

			<total>[@--$Gtotal--@]</total>

			<executed>[@--$Gexecuted--@]</executed>

			<successful>[@--$Gsuccessful--@]</successful>

			<failed>[@--$Gfailed--@]</failed>

			<not_tested>[@--$Gnot_tested--@]</not_tested>			

			[@--$Gtestcases--@]

			</test>

		</test_results>

	</tests>

</diamonds-build>