bldsystemtools/commonbldutils/GenResult/smoketest.tmpl
changeset 37 be14ecca790f
parent 25 85578ba0aa08
child 38 86a1ec9fa7ba
child 42 f532653c45c0
--- a/bldsystemtools/commonbldutils/GenResult/smoketest.tmpl	Fri Apr 16 16:10:01 2010 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,149 +0,0 @@
-[@--# 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>
-