--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tsrc/unittestrunner/unittest_ctc.pl	Fri Jun 11 13:36:18 2010 +0300
@@ -0,0 +1,316 @@
+#
+# 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 File::Copy;
+use Cwd;
+use Getopt::Long;
+use XML::Parser::Expat;
+
+#---------------------------------------Initialization------------------------------------------------------#
+
+$projectrootname = "/"; #is set to correct at run-time 
+$projectdrive = "z:"; #is set to correct at run-time 
+
+$eunitUnitTestRunner = "eunittest_ctc.pl";
+$scriptLocation = "mmsharinguis/tsrc/unittestrunner";
+$coverageResultsDirDefault = "mmsharinguis/tsrc/unittestrunner/results/";
+$buildResults = "BuildResults.txt";
+$coverageDat = "MON.dat";
+$coverageSymbols = "MON.sym";
+$coverageProfile = "profile.txt";
+
+$eunitResultsFile = "EUnitLog.xml";
+$coverageResultsFile = "CTCHTML/index.html";
+$finalResultsFile = "AllResults.html";
+$cssFile = "CTCHTML/ctc.css";
+$cssLink = "<link rel=\"stylesheet\"";
+
+$xmlDllLine = "dll";
+$xmlResultLine = "result";
+$xmlCaseFailed = "FAIL";
+$xmlCasePassed = "OK";
+$outputString = "";
+$outputFileBodyStart = "<body";
+
+$totalCount = 0;
+$passedCount = 0;
+$failedCount = 0;
+
+# from command line
+my ($param_noclean,
+		$eunitDlls,
+		$allocFailure,
+		$coverageResultsDir);
+
+#---------------------------------------Main Start----------------------------------------------------------#
+
+# read command line parameters
+my $result = GetOptions("noclean" 			  => \$param_noclean,
+												"eunitdlls:s"	    => \$eunitDlls,
+												"allocfailure:i"  => \$allocFailure,
+												"results:s"       => \$coverageResultsDir,
+												"help"						=> \$help);
+												
+$startdir = cwd;
+
+if (defined $help)
+{
+	print_help();
+	exit;
+}
+
+# find project root
+findProjectDriveAndRoot();
+
+# create directory for results
+if ( defined $coverageResultsDir )
+{
+    if ($coverageResultsDir =~ /^(.:)/)
+    {
+        print("Drive name given in results dir arg\n");
+    }
+    else
+    {  
+        $coverageResultsDir = "$projectdrive" . "/" . "$coverageResultsDir";
+    }
+}
+else
+{
+    $coverageResultsDir = "$projectdrive$projectrootname$coverageResultsDirDefault";
+}
+print ("Writing results to $coverageResultsDir \n\n");
+if (mkdir("$coverageResultsDir", 0755))
+{
+    print("The results directory was created successfully! \n");
+} 
+else 
+{
+    print("The results directory already exists. \n");
+} 
+
+# set target for intrumentation result
+$ENV{'CTC_DATA_PATH'}= "$coverageResultsDir";	
+
+my $eunit_command = "$eunitUnitTestRunner -drive=$projectdrive -root=$projectrootname -results=$coverageResultsDir -eunitdlls=$eunitDlls -allocfailure=$allocFailure";
+if (!defined $param_noclean)
+{
+	# clear previous results
+	print("Cleaning previous results. \n");
+	unlink("$coverageResultsDir$buildResults");
+	unlink("$coverageResultsDir$coverageDat");
+	unlink("$coverageResultsDir$coverageSymbols");
+	unlink("$coverageResultsDir$coverageProfile");
+	unlink("$coverageResultsDir$finalResultsFile");
+}
+else
+{ 	
+	$eunit_command .= " -noclean";
+}
+
+
+# run eunit tests
+system("$eunit_command");
+chdir($startdir);
+	
+
+# create textual output
+chdir("$coverageResultsDir");
+doSystemCall("ctcpost $coverageSymbols $coverageDat -p $coverageProfile -T 70");
+doSystemCall("ctc2html -i $coverageProfile -t 70");
+
+
+# clear target for intrumentation result
+$ENV{'CTC_DATA_PATH'}= "";	
+
+# combine all results
+#
+open(COVERAGE, "$coverageResultsDir$coverageResultsFile") or die("file $coverageResultsFile not found!\n");
+@coverageFileContent = <COVERAGE>;
+
+# eunit
+
+$eunitOutputString = "<span class=\"head1\">EUnit Results</span><br><br>\n";
+
+if ( -e "$coverageResultsDir$eunitResultsFile" )
+{
+	open(EUNITRESULTS,  "$coverageResultsDir$eunitResultsFile") or die ("Couldn't open $projectdrive$projectrootname$coverageResultsDir$eunitResultsFile!\n");
+	$parser = new XML::Parser::Expat;
+	$parser->setHandlers('Start' => \&sh,
+                     'End'   => \&eh,
+                     'Char'  => \&ch);
+	$totalCount = 0;
+	$passedCount = 0;
+	$failedCount = 0;
+		
+	$parser->parse(*EUNITRESULTS);
+		
+	close(EUNITRESULTS);
+}
+else
+{
+	print ("file $eunitResultsFile not found!\n");
+}
+
+
+# append coverage information after eunit results
+
+for ($j = 0; $j <= $#coverageFileContent; $j++)
+	{
+		$currentLine = @coverageFileContent[$j];
+		
+		if ($currentLine =~ /$cssLink/)
+		{
+			if ( open(CSSFILE,  "$coverageResultsDir$cssFile") )
+			{
+				# append css styles to results html
+				$outputString .= "<style type=\"text/css\"> body {";
+				@cssFileContent = <CSSFILE>;
+				my($line);
+				foreach $line (@cssFileContent)
+				{ 
+					$outputString .= $line;
+				}
+				$outputString .= "}</style>\n";
+				close(CSSFILE);
+			}
+		}
+		else
+		{
+			$outputString .= $currentLine;
+
+			if ($currentLine =~ /$outputFileBodyStart/)
+			{
+				$outputString .= $eunitOutputString;
+			}
+		}
+		
+	}
+	
+open(NEWRESULTSFILE, "> $coverageResultsDir$finalResultsFile") or die "Cannot open final results file\n";
+print NEWRESULTSFILE "$outputString";
+close(NEWRESULTSFILE);
+close(OUTPUT);
+close(COVERAGE);
+
+chdir($startdir);
+
+#---------------------------------------Main Ends-------------------------------------------------------------#
+
+sub findProjectDriveAndRoot()
+{
+		$tempStartDir = $startdir;
+		if ($tempStartDir =~ m/$scriptLocation/)
+		{
+			# extract project root
+			for ($tempStartDir) {
+				 s/$scriptLocation+$//;
+    	}
+    	# divide it to drive and root
+    	if ($tempStartDir =~ /^(.:)(.*)/)
+    	{
+    		$projectdrive = $1;
+    		$projectrootname = $2;
+			}
+			print "project drive: $projectdrive \n";
+			print "project root: $projectrootname \n";
+		}
+		else
+		{
+			print "cannot determine project drive and root, use defaults!\n";
+		}
+}
+
+sub sh
+{
+  my ($p, $el, %atts) = @_;
+	if ( $el eq $xmlDllLine )
+	{
+		$eunitOutputString .= "<span class=\"head3\">";
+		$dllName = %atts->{name};
+		@dllNameParts = split m!(\\)!, $dllName;
+		$dllName = $dllNameParts[$#dllNameParts];
+		$eunitOutputString .= "$dllName => </span>";
+		$totalCount = %atts->{size};
+	}
+	
+	if ( $el eq $xmlResultLine )
+	{
+		$status = %atts->{status};
+		if ( $status eq $xmlCasePassed )
+		{
+			$passedCount++;
+		}
+		else
+		{
+			$failedCount++;
+		}
+	}
+}
+
+sub eh
+{
+	my ($p, $el) = @_;
+	if ( $el eq $xmlDllLine )
+	{
+		$totalCount = $passedCount + $failedCount;
+		if ( $failedCount > 0 || $totalCount == 0 )
+		{
+			$eunitOutputString .= "<span class=\"red\">Testcases passed/run: $passedCount/$totalCount </span><br>\n";
+		}
+		else
+		{
+			$eunitOutputString .= "<span class=\"blue\">Testcases passed/run: $passedCount/$totalCount </span><br>\n";
+		}
+		$passedCount = 0;	
+		$failedCount = 0;
+	}
+}
+
+sub ch
+{
+	my ($p, $el) = @_;
+	#print ("$el\n");
+}
+
+sub doSystemCall
+{
+	#print("\nDoing system call: $_[0]\n");
+	#system($_[0]);
+	system("echo Doing system call: $_[0] >> $coverageResultsDir$buildResults");
+	system("$_[0] >> $coverageResultsDir$buildResults 2>&1");
+}
+
+sub print_help
+{
+	print("\n*************************************************************\n\n");
+	print("Script runs by default all multimediasharing eunit tests\n");
+	print("and creates build, test and coverage results to:\n\n");
+	print("    $coverageResultsDirDefault\n\n");
+	print("Own configuration file (list of components to be processed)\n");
+	print("can be used as well:\n\n");
+	print("    >unittest_ctc.pl -eunitdlls=myowneunitcomponents.txt\n\n");
+	print("The text file should follow the syntax of default configuration file\n");
+	print("$scriptLocation/eunitdlls_ctc.txt\n\n");
+	print("Alloc failure simulation can be turned on with following command:\n\n");
+	print("    >unittest_ctc.pl -allocfailure=2\n\n");
+	print("Any number will turn eunit alloc on.\n");
+	print("When running just some set of components you might want to \"merge\" the results");
+	print("with existing coverage results.\n");
+	print("That is possible with command:\n\n");
+	print("    >unittest_ctc.pl -eunitdlls=myowneunitcomponents.txt -noclean\n");
+	print("\n*************************************************************\n");
+}