// Copyright (c) 2004-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:

//

// Framework includes

#if !defined(__HTTPTESTUTILS_H__)

#include "httptestutils.h"

#endif

#if !defined(__HTTPTESTCORE_H__)

#include "HttpTestCore.h"

#endif

#if !defined(__TESTSCRIPTS_H__)

#include "TestScripts.h"

#endif

#include "SingleTrans.h"

// Individual test class includes

#include "t_CLE-4Y5LC9.h"

#include "t_KHN-4Z7DT7.h"

#include "t_INC035621.h"

#include "T_INC053172.h"

// Constants used in this file

enum TPanic

	{

	EFailedToCreateEngine,

	EFailedToReadIniFile

	};

// Name of test harness

_LIT(KHttpRegressionTestTitle,		"HTTP Regression Tests");

// Location of INI file that defines the test cases to be run

_LIT(KHttpRegressionTestCompName,	"regression");

_LIT(KHttpregressionTestscriptName, "RegressionTests.ini");

_LIT(KSettingsIniCompName,			"settings");

_LIT(KSettingsIniName,				"settings.ini");

// Labels for resources in the INI file

_LIT(KRunTestItemName,				"RunTest");

_LIT(KDefaultSection,				"Defaults");

_LIT(KSilenceItemName,				"Silent");

_LIT(KLeakTestCount,				"LeakTestCount");

_LIT(KFirstLeakIteration,			"FirstLeakIteration");

_LIT(KSectionSingleTrans,			"SINGLE_TRANS");

_LIT(KZero,							"0");

// Test names, used as section headings in the .ini file, and any resource 

// names associated with the test

_LIT(KTestKHN4Z7DT7,				"KHN-4Z7DT7");

_LIT(KTestCLE4Y5LC9_1,				"CLE-4Y5LC9_1");

_LIT(KTestCLE4Y5LC9_2,				"CLE-4Y5LC9_2");

_LIT(KTestINC035621,				"INC035621");

_LIT(KTestINC053172, "INC053172");

const TInt KMaxHeapSize = 0x100000;

const TInt KMaxIntDesLen = 10;				// Des length required for displaying max 32 bit int

_LIT(KTestThreadName,						"TestThread");

_LIT(KRtestFailureLabel, 					"RTEST: FAILED due to a %S %d Panic ");

void DoTestsL()

	{	

	TBool runTestDefault = EFalse;

	CTestScheduler* as = new(ELeave) CTestScheduler;

	CleanupStack::PushL(as);

	if (!as)

		User::Panic(_L("Failed to create active scheduler"),KErrNoMemory);

	CActiveScheduler::Install(as); // Install active scheduler

	// Initialise Comms, required in a minimal console environment

	CHTTPTestUtils::InitCommsL();

	// Force a connection to be held open keep NT RAS connected...

	CHTTPTestUtils::HoldOpenConnectionL();

	// Create the test engine

	CHttpTestEngine* engine=NULL;

	TRAPD(err,engine = CHttpTestEngine::NewL(KHttpRegressionTestTitle(), EFalse));

	if (err != KErrNone)

		User::Panic(_L("T_HTTPREGRES"),EFailedToCreateEngine);

	CleanupStack::PushL(engine);

	engine->Utils().LogIt(_L("@SYMTestCaseID IWS-APPPROTOCOLS-HTTP-FRAMEWORK-T_HTTPREGRESSION-0001  "));

	// Open the INI file to initialise the tests we're going to run

	CScriptFile* iniFile = NULL;

	TRAP(err, iniFile = CScriptFile::NewL(engine->Utils(), KHttpRegressionTestCompName, KHttpregressionTestscriptName()));

	if (err != KErrNone)

		User::Panic(_L("T_HTTPREGRES"),EFailedToReadIniFile);

	CleanupStack::PushL(iniFile);

	// Open the settings.ini file which has the server IP/Name that would

	// be used by the tests.

	CScriptFile* iniSettingsFile = NULL;

	TRAP(err, iniSettingsFile = CScriptFile::NewL(engine->Utils(), KSettingsIniCompName, KSettingsIniName()));

	if (err != KErrNone)

		{

		User::Panic(KHttpRegressionTestCompName(),err);

		}

	CleanupStack::PushL(iniSettingsFile);

	// Read the default silent setting for the tests

	engine->Utils().SetSilent(iniFile->ItemValue(KDefaultSection, KSilenceItemName, EFalse));

	// Create the tests we're going to run.  Ownership is transferred to the test engine

	RPointerArray<CHttpTestBase> regressionTests;

	CleanupClosePushL(regressionTests);

// READ DEFAULTS

	CArrayPtrFlat<CScriptSection>& sections=iniFile->Sections();

	TInt sectionsCount = sections.Count();

	CScriptSection* section = NULL;

	for (TInt ii=0;ii<sectionsCount;++ii)

		{

		section = sections[ii];

		// DEFAULTS

		if (section->SectionName().CompareF(KDefaultSection) == 0)

			{

			if (iniFile->Section(ii).ItemL(KSilenceItemName).Value().CompareF(KZero) == 0)

   				engine->SetSilent(EFalse);

 			else  	

				engine->SetSilent(ETrue);

 			if (iniFile->Section(ii).ItemL(KRunTestItemName).Value().CompareF(KZero) != 0)

				runTestDefault = ETrue;

			}

		// SCRIPTED SINGLE_TRANS TESTS - These are purely done by a single transaction

		if (section->SectionName().CompareF(KSectionSingleTrans) == 0)

			{

			TBool runTest = runTestDefault;

   			TPtrC itemPtr(iniFile->Section(ii).Item(0).Item());

 			if (itemPtr.CompareF(KRunTestItemName)==0)

 				runTest = !(iniFile->Section(ii).Item(0).Value().CompareF(KZero) == 0);

 			if (runTest)

   				{

   				CHttpTestBase* singleTrans = CHttpTestSingleTrans::NewL(*iniFile,iniSettingsFile,ii);

				CleanupStack::PushL(singleTrans);

   				regressionTests.Append(singleTrans);

   				}

			}

		}

// NON SCRIPTED TESTS - These are done by separate classes

	// Post body rewind tests

	if (iniFile->ItemValue(KTestCLE4Y5LC9_1(), KRunTestItemName(), ETrue))

		{

		CTestFixCLE4Y5LC9_1* CLE4Y5LC9_1 = CTestFixCLE4Y5LC9_1::NewLC(iniSettingsFile);

		regressionTests.Append(CLE4Y5LC9_1);

		TInt numLeakTests = iniFile->ItemValue(KTestCLE4Y5LC9_1(), KLeakTestCount(), 0);

		TInt firstLeakIter = iniFile->ItemValue(KTestCLE4Y5LC9_1(), KFirstLeakIteration(), 0);

		CLE4Y5LC9_1->SetLeakTests(numLeakTests, firstLeakIter);

		}

	if (iniFile->ItemValue(KTestCLE4Y5LC9_2(), KRunTestItemName(), ETrue))

		{

		CTestFixCLE4Y5LC9_2* CLE4Y5LC9_2 = CTestFixCLE4Y5LC9_2::NewLC(iniSettingsFile);

		regressionTests.Append(CLE4Y5LC9_2);

		TInt numLeakTests = iniFile->ItemValue(KTestCLE4Y5LC9_2(), KLeakTestCount(), 0);

		TInt firstLeakIter = iniFile->ItemValue(KTestCLE4Y5LC9_2(), KFirstLeakIteration(), 0);

		CLE4Y5LC9_2->SetLeakTests(numLeakTests, firstLeakIter);

		}

	if (iniFile->ItemValue(KTestKHN4Z7DT7(), KRunTestItemName(), ETrue))

		{

		CTestFixKHN4Z7DT7* KHN4Z7DT7 = CTestFixKHN4Z7DT7::NewLC(iniSettingsFile);

		regressionTests.Append(KHN4Z7DT7);

		TInt numLeakTests = iniFile->ItemValue(KTestKHN4Z7DT7(), KLeakTestCount(), 0);

		TInt firstLeakIter = iniFile->ItemValue(KTestKHN4Z7DT7(), KFirstLeakIteration(), 0);

		KHN4Z7DT7->SetLeakTests(numLeakTests, firstLeakIter);

		}

	if (iniFile->ItemValue(KTestINC035621(), KRunTestItemName(), ETrue))

		{

		CTestFixINC035621* INC035621 = CTestFixINC035621::NewLC(iniSettingsFile);

		regressionTests.Append(INC035621);

		TInt numLeakTests = iniFile->ItemValue(KTestINC035621(), KLeakTestCount(), 0);

		TInt firstLeakIter = iniFile->ItemValue(KTestINC035621(), KFirstLeakIteration(), 0);

		INC035621->SetLeakTests(numLeakTests, firstLeakIter);

		}

	if (iniFile->ItemValue(KTestINC053172(), KRunTestItemName(), ETrue))

		{

		CTestFixINC053172* INC053172 = CTestFixINC053172::NewLC();

		regressionTests.Append(INC053172);

		TInt numLeakTests = iniFile->ItemValue(KTestINC053172(), KLeakTestCount(), 0);

		TInt firstLeakIter = iniFile->ItemValue(KTestINC053172(), KFirstLeakIteration(), 0);

		INC053172->SetLeakTests(numLeakTests, firstLeakIter);

		}

	// Set the test set based on the menu choices

	engine->ConfigureTestSet(regressionTests);

	// Pop the tests which are now owned by the test engine

	TInt numTestsToPop = regressionTests.Count();

	CleanupStack::Pop(numTestsToPop); // multiCancelTest

	CleanupStack::Pop(); // regressionTests, the array itself

	// All the action happens within the main event loop.

	CActiveScheduler::Start();

	// Returned from start so shutdown. Turn off test engine silence to get a summary report.

	engine->Utils().SetSilent(EFalse);

	engine->Utils().LogIt(_L("\nEnd of tests"));

	TInt pass, fail;

	engine->TestSummary(pass, fail);

	engine->Utils().LogIt(_L("\nTest Summary: %d passed, %d failed.\n"), pass, fail);

	//engine->PressAnyKey();

	// Release the held open connection

	CHTTPTestUtils::ReleaseConnectionL();	

	CleanupStack::PopAndDestroy(4, as);// inifile, engine, iniSettingsFile

	}

TInt TestEntryPoint(TAny* /*aParam*/)

    {

__UHEAP_MARK;

	// Install exception handler

	CTrapCleanup* theCleanup = CTrapCleanup::New(); 

	TRAP_IGNORE(DoTestsL());

	delete theCleanup;

__UHEAP_MARKEND;

	User::Heap().Check();

    return(KErrNone);

	}

void LogOnPanicL(RThread& aTestThread)	

	{

	CActiveScheduler* as = new(ELeave) CActiveScheduler;

	CleanupStack::PushL(as);

	if (!as)

		{

		User::Panic(_L("Failed to create active scheduler"),KErrNoMemory);

		}

	CActiveScheduler::Install(as); // Install active scheduler

	// Initialise Comms, required in a minimal console environment

	CHTTPTestUtils::InitCommsL();

	// Force a connection to be held open keep NT RAS connected...

	CHTTPTestUtils::HoldOpenConnectionL();

	// Create the test engine

	CHttpTestEngine* engine=NULL;

	TRAPD(err,engine = CHttpTestEngine::NewL(KHttpRegressionTestTitle(), EFalse));

	if (err != KErrNone)

		{

		User::Panic(_L("T_PIPELINING"),err);

		}

	CleanupStack::PushL(engine);

	// Create log message

	TExitCategoryName panicName = aTestThread.ExitCategory();

	TInt panicNumber = aTestThread.ExitReason();

	HBufC* logMessage = HBufC::NewLC(KRtestFailureLabel().Length() + 

								   panicName.Length() +	

								   KMaxIntDesLen);

	TPtr logMessagePtr = logMessage->Des();

	logMessagePtr.Format(KRtestFailureLabel, &panicName, panicNumber);

	engine->Utils().LogIt(logMessagePtr);

	// Panic here so that nothing else is written to the log file

	User::Panic(panicName, panicNumber);

	// The code below provided for completenes, but should never be reached

	// Release the held open connection

	CHTTPTestUtils::ReleaseConnectionL();	

	CleanupStack::PopAndDestroy(3, as); //as, engine, logMessage

	}

// main loop

//

GLDEF_C TInt E32Main()

    {  

	__UHEAP_MARK;  

	CTrapCleanup* theCleanup = CTrapCleanup::New(); // Install exception handler  

	// Create a new thread for running tests in

	RThread testThread;

	TInt err = testThread.Create(KTestThreadName, TestEntryPoint, KDefaultStackSize,  

							 KMinHeapSize, KMaxHeapSize, NULL);

	if(err == KErrNone)

		{

		testThread.Resume();	

		}

	else

		{

		return err;

		}

	// Kick off test thread and wait for it to exit

	TRequestStatus tStat;

	testThread.Logon(tStat);

	User::WaitForRequest(tStat);

	// Log if paniced

	if(testThread.ExitType() == EExitPanic)

		{

		TRAP_IGNORE(LogOnPanicL(testThread));	

		}

	testThread.Close();

	delete theCleanup;		

	__UHEAP_MARKEND;		

	return KErrNone;

	}