/*

* Copyright (c) 1998-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: 

*

*/

#include "tscripttests.h"

#include "t_testhandler.h"

#include "t_certstoretests.h"

#include "t_certstoreactions.h"

#include <e32std.h>

#include <f32file.h>

#include <ecom/ecom.h>

///////////////

#include "t_testsetup.h"

#include "t_testactionspec.h"

#include "t_input.h"

#include "t_certstoreactionmemfail.h"

#include "tcancel.h"

#include "t_message.h"

#include "tScriptSetup.h"

#include "tHardcodedSetup.h"

#include "t_testhandler.h"

#include "t_output.h"

#include "tTestSpec.h"

#include "Ttesthandlersettings.h"

/**

*	--------------------------------------

*	How this test works:

*	--------------------------------------

*

*	RUN THIS TEST IN CONFIGURATION 1 (FILECERTSTORE.DLL SHOULD BE THE ONLY 

*	ECOM PLUGIN IN Z:\SYSTEM\LIBS\PLUGINS).  IF WAPCERTSTORE.DLL IS PRESENT

*	THIS TEST WILL HANG!!!

*

*	This test is designed to stress concurrent access to the filecertstore

*	by multiple threads, and to check that the integrity of the store is

*	retained.

*

*	The test consists of 3 scripts (certstoreconcurrent1-3.txt) which test various

*	possible accesses to the filebased store (cert add, delete, set trust, applications

*	and certificate retreival.  There are 27 possible ways to combine the 3 scripts.

*	For each of these combinations, 3 threads are started and each is assigned a

*	separate test handler and one of the scripts for that combination.  The threads

*	then run together, accessing the store concurrently. 

*	

*	BECAUSE THE THREADS ARE RUNNING CONCURRENTLY, IT IS NOT POSSIBLE TO PREDICT

*	THE RESULTS OF EACH TEST, EG IT IS NOT POSSIBLE TO DETERMINE WHETHER THE 

*	CERTIFICATE THAT ONE THREAD WISHES TO DELETE IS ACTUALLY PRESENT IN THE STORE

*	AT THAT TIME, SINCE ANOTHER THREAD MAY HAVE REMOVED IT.  BECAUSE OF THIS 

*	THE SCRIPTS ARE MARKED WITH A testconcurrent FLAG TO INDICATE THAT THE FAIL

*	RESULTS SHOULD BE DISREGARDED.  The results for each script are written to a

*	separate file in EPOC directory \tcertstoreconcurrent\ on system drive thus by the end of the

*	the test there are 81 such log files in the directory.

*

*	Following the 27 combinations of 3 threads, the test then runs a standard

*	tcertstore test using one of the scripts used in general certstore testing

*	(the script is determined by the command line for the entire test).  This

*	runs in a single thread so results can be predicted.  Thus we check that 

*	filecertstore integrity is maintained.  The log file for these tests are

*	placed in EPOC system drive and should be inspected for errors as part of the

*	testing procedure.

*

*	Thus to run these tests, the following command line should be used:

*	tcertstoreconcurrent \tcertstore\scripts\unifiedcertstore2-conf1.txt \tcertstoreconcurrent1.log

*	,the script and log file being on system drive.This runs script unifiedcertstore2-conf1 after the 

*	threaded tests and logs	the test results to tcertstoreconcurrent1.log

*/

//	3 scripts available, switch between them

const static TText* scripts[] = {	_S("dummy for zero element"),

									_S("\\tcertstoreconcurrent\\scripts\\certstoreconcurrent1.txt"), 

									_S("\\tcertstoreconcurrent\\scripts\\certstoreconcurrent2.txt"),

									_S("\\tcertstoreconcurrent\\scripts\\certstoreconcurrent3.txt")};

const TInt KMaxIterations = 27;

const TInt scriptCombinations[] = {	1,1,1,	1,1,2,	1,1,3,

									1,2,1,	1,2,2,	1,2,3,

									1,3,1,	1,3,2,	1,3,3,

									2,1,1,	2,1,2,	2,1,3,

									2,2,1,	2,2,2,	2,2,3,

									2,3,1,	2,3,2,	2,3,3,

									3,1,1,	3,1,2,	3,1,3,

									3,2,1,	3,2,2,	3,2,3,

									3,3,1,	3,3,2,	3,3,3};

class TThreadData

	{

public:

	void InitialiseL(TInt aIteration, TInt aScriptNum);

public:	

	TPtrC iScriptFile;

	TFileName iLogFile;

	};

void TThreadData::InitialiseL(TInt aIteration, TInt aThreadNum)

	{

	ASSERT(aIteration >= 0 && aIteration < KMaxIterations);

	ASSERT(aThreadNum >= 1 && aThreadNum <= 3);

	TInt script = scriptCombinations[aIteration * 3 + aThreadNum - 1];		

	// Set script file

	TDriveUnit sysDrive (RFs::GetSystemDrive());

	TDriveName sysdriveName (sysDrive.Name());

	TBuf <60> scriptFile (sysdriveName);

	scriptFile.Append(scripts[script]);

	iScriptFile.Set(scriptFile);

	// Set log file

	iLogFile.Zero();

	TBuf<80> scriptName (sysdriveName);

	scriptName.Append(_L("\\tcertstoreconcurrent\\iteration%02d_thread%d_script%d.txt"));

	TBuf<80> buf ;

	buf.Format(scriptName,aIteration, aThreadNum, script); 

	iLogFile.Append(buf);

	}

LOCAL_C TInt ThreadEntryPoint(TAny* aArg)

{

	__UHEAP_MARK;

	CTrapCleanup* cleanup=CTrapCleanup::New();

	TThreadData* data = static_cast<TThreadData*>(aArg);

	ASSERT(data);

	TRAPD(r, DoTests(data->iScriptFile, data->iLogFile, ETrue));

	//TRAPD(r, PerformTests(TestTypes(), data->iScriptFile, data->iLogFile));

	ASSERT( (r==KErrNone) || (r==KErrInUse) );

	delete cleanup;

	__UHEAP_MARKEND;

	return (r);

}

/** Start a thread. */

LOCAL_D void StartThreadL(RThread& aThread, TThreadData& aData, TInt aIteration, TInt aThreadNum, TRequestStatus& aStatus)

	{

	aData.InitialiseL(aIteration, aThreadNum);

	TBuf<32> threadName;

	threadName.Format(_L("iteration%02d_thread%d"), aIteration, aThreadNum);

	RHeap* heap = User::ChunkHeap(NULL, KMinHeapSize, 0x100000);

	User::LeaveIfNull(heap);

	User::LeaveIfError(aThread.Create(threadName, ThreadEntryPoint, KDefaultStackSize, heap, (TAny*)&aData));	

	aStatus = KRequestPending;

	aThread.Logon(aStatus);

	aThread.Resume();

	}

//	Kicks off each thread for multiple concurrent certstore access

LOCAL_D TBool DoThreadedTestsL(CConsoleBase* console, HBufC* logFileName, TBool wait)

{

 	RFs myfs;

 	CleanupClosePushL(myfs);

 	RFile logfile;

 	CleanupClosePushL(logfile);

 	Output* out;

 	User::LeaveIfError(myfs.Connect());

 	User::LeaveIfError(logfile.Replace(myfs, *logFileName, EFileWrite));

 	out = new (ELeave) FileOutput(logfile);

 	CleanupStack::PushL(out);

	TInt failureCount = 0;

	for (TInt i = 0 ; i < KMaxIterations; ++i)

		{

		console->Printf(_L("Iteration %d \n"), i);

		out->writeNewLine();

		out->writeString(_L("Iteration "));

		out->writeNum(i);

		out->writeNewLine();

		RThread thread1;

		TThreadData data1;

		TRequestStatus status1;

		StartThreadL(thread1, data1, i, 1, status1);

		RThread thread2;

		TThreadData data2;

		TRequestStatus status2;

		StartThreadL(thread2, data2, i, 2, status2);

		RThread thread3;

		TThreadData data3;

		TRequestStatus status3;

		StartThreadL(thread3, data3, i, 3, status3);

		User::WaitForRequest(status1);

		User::WaitForRequest(status2);

		User::WaitForRequest(status3);

		TExitType exit1 = thread1.ExitType();

		TExitType exit2 = thread2.ExitType();

		TExitType exit3 = thread3.ExitType();

		if (exit1 != EExitKill) 

			{

			console->Printf(_L("ERROR: Thread 1 exited with exit type: %d \n"), exit1);

 			out->writeString(_L("ERROR: Thread 1 exited with exit type: "));

			out->writeNum(exit1);

	 		out->writeNewLine();

			failureCount++;

			}

		if (exit2 != EExitKill) 		

			{

			console->Printf(_L("ERROR: Thread 2 exited with exit type: %d \n"), exit2);

 			out->writeString(_L("ERROR: Thread 2 exited with exit type: "));

			out->writeNum(exit2);

	 		out->writeNewLine();			

			failureCount++;

			}

		if (exit3 != EExitKill) 

			{

			console->Printf(_L("ERROR: Thread 3 exited with exit type: %d \n"), exit3);

 			out->writeString(_L("ERROR: Thread 2 exited with exit type: "));

			out->writeNum(exit3);

	 		out->writeNewLine();			

			failureCount++;

			}

		thread1.Heap()->Close();

		thread2.Heap()->Close();

		thread3.Heap()->Close();

		thread1.Close();

		thread2.Close();

		thread3.Close(); 

		User::LeaveIfError(status1.Int());

		User::LeaveIfError(status2.Int());

		User::LeaveIfError(status3.Int());		

	}

	if (failureCount > 0) 

 		{

 		out->writeNewLine();

		console->Printf(_L("\n %d tests failed out of %d \n"), failureCount, (KMaxIterations*3));

 		out->writeNewLine();

 		out->writeNum(failureCount);

 		out->writeString(_L(" tests failed out of "));

 		out->writeNum(KMaxIterations*3);

 		out->writeNewLine();		

 		}

 	if (wait) 

 		{

		console->Printf(_L("\n Press any key to continue \n"));		

		console->Getch();

 		}

 	CleanupStack::PopAndDestroy(out);

 	CleanupStack::PopAndDestroy(&logfile);

 	CleanupStack::PopAndDestroy(&myfs); 	

 	if (failureCount>0) 

 		{

 		return EFalse;

 		}

 	return ETrue;

}

/**

 * Extracts the nPos command line argument.

 */

LOCAL_D HBufC* GetArgument(TInt nPos)

	{

	HBufC *argv = HBufC::NewLC(User::CommandLineLength());

	TPtr cmd(argv->Des());

	User::CommandLine(cmd);

	TLex arguments(cmd);

	// finds nth parameter 

	while(nPos && !arguments.Eos())

		{

		TPtrC token = arguments.NextToken();

		if(token.Length() > 0)		

			nPos--;

		}

	HBufC* result = NULL;

	if(!arguments.Eos())

		{

		TPtrC testfile(arguments.NextToken());

		if(testfile.Length() > 0)

			result = testfile.AllocL();

		};

	// no parameter found, but must return something so..

	if(!result)

		result = HBufC::NewL(0);

	CleanupStack::PopAndDestroy(argv);

	return result;

	}

/**

 * This function sets up a console, a log file and checks

 * whether we need to wait for a key pressed after test 

 * completion.

 * First DoThreadedTestsL is called, if everything is ok

 * it return ETrue and we move on to the standard tests.

 * If something went amiss (return EFalse) we skip 

 * the standard test and return. 

 */

LOCAL_D void SetupAndRunTests() 

{

	CConsoleBase* console = Console::NewL(_L("Test code"), TSize(KConsFullScreen, KConsFullScreen));

	HBufC* logFile = GetArgument(1);

	if (logFile->Length()==0) 

		{

		_LIT(defaultLog, "\\tcertstore.log");

		TDriveUnit sysDrive (RFs::GetSystemDrive());

		TDriveName sysdriveName (sysDrive.Name());

		TBuf <18> fileName (sysdriveName);

		fileName.Append(defaultLog);

		logFile->ReAlloc(18);

		TPtr16 plog = logFile->Des();

		plog.Append(fileName);

		}

	HBufC* wait = GetArgument(2);

	TBool waitAfterCompletion = EFalse;

	if (wait->Find(_L("-w")) != KErrNotFound) 

		{

		waitAfterCompletion = ETrue;

		}

	TBool res = EFalse;	

	TRAPD(err, res = DoThreadedTestsL(console, logFile, waitAfterCompletion));

	if (res) 

		{

		// Now run a normal tcertstore test to check store integrity

		TRAP(err, DoTests());

		}

	delete console;

	delete wait;

	delete logFile;

}

GLDEF_C TInt E32Main()

{

	__UHEAP_MARK;

	CTrapCleanup* cleanup=CTrapCleanup::New();

	TRAPD(err, SetupAndRunTests());

	REComSession::FinalClose();

	delete cleanup;

	__UHEAP_MARKEND;

	return 0;

}