// 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 "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:

//

/**

 * @file

 * Copyright (c) 2003 Symbian Ltd.  All rights reserved. 

 * 

 * Name of test harness: T_BIO_S

 * 

 * Owner: GKL

 * 

 */

#include <e32base.h>

#include <e32test.h>

#include <f32file.h>

#include <bacline.h>

#include "biotestutils.h"

#include "testframeutils.h"

#include "harness.h"

#include "parsers.h"

#include "msvtestutilsbase.h"

#ifdef SYMBIAN_BOOKMARK_DATABASE

#include <bookmarkdatabase.h>

#include <bookmark.h>

#endif // SYMBIAN_BOOKMARK_DATABASE

// Name of test harness.

_LIT(KBioTestName, "BIO Msg Tests");

_LIT(KBioTestExeName, "T_BIOMSG");

// Name of the main script file.

_LIT(KScriptFileName, "c:\\msgtest\\biomsg\\scripts\\script.txt");

// Where the test harness places the log file.

_LIT(KMsvMsgLogsSrcPath, "c:\\MsgLogs\\");

RFs g_rfs; 

void MoveLogsL(const TDesC& aTestScript)

	{

	//	Move the test log directory and file.

	//

	//	For example: test script "c:\msgtest\biomsg\Wapp\wapp0001.txt",

	//	under a WINS UDEB build, test harness name T_BIOMSG.

	//

	//	dir src = c:\MsgLogs\T_BIOMSG

	//	dir dst = c:\MsgLogs\T_BIOMSG_wapp001

	//

	//	file src = c:\MsgLogs\T_BIOMSG.WINS.DEB.LOG

	//	file dst = c:\MsgLogs\T_BIOMSG_wapp001.WINS.DEB.LOG

	CFileMan*	fileMan = CFileMan::NewL(g_rfs);

	CleanupStack::PushL(fileMan);

	//

	// Determine dir name for src.

	TFileName	msgLogsSrc;

	msgLogsSrc.Append(KMsvMsgLogsSrcPath);	// Add "c:\MsgLogs\".

	msgLogsSrc.Append(KBioTestExeName);		// Add "T_BIOMSG".

	//

	// Determine dir name for dst.

	TFileName	msgLogsDst;

	TInt		fileErr;

	TInt		loc;

	TInt		len;

	msgLogsDst = msgLogsSrc;	// Add "c:\MsgLogs\T_BIOMSG".

	msgLogsDst.Append('_');		// Add "_".

	// Add test name.

	len = aTestScript.Length();

	loc = aTestScript.LocateReverse('\\');

	msgLogsDst.Append(aTestScript.Right(len - loc - 1));

	// Remove the ".ext".

	msgLogsDst = msgLogsDst.Left(msgLogsDst.Locate('.'));

	//

	// Move the dir.

	fileErr = fileMan->Move(msgLogsSrc, msgLogsDst);

	// Move will not delete existing directories, so we have to do it ourself.

	// The documentation says it will delete directories !!!!

	if (fileErr == KErrAlreadyExists)

		{

		msgLogsDst.Append('\\');								// To ensure we delete the correct directory.

		fileErr = fileMan->RmDir(msgLogsDst);

		msgLogsDst = msgLogsDst.Left(msgLogsDst.Length() - 1);	// Remove '\' again.

		if (fileErr == KErrNone)

			fileErr = fileMan->Move(msgLogsSrc, msgLogsDst);

		}

	//

	// Now move the file. Append ".WINS.DEB.LOG" to src and dst.

	CBioTestUtils::DoAppendVariantName(msgLogsSrc);

	CBioTestUtils::DoAppendVariantName(msgLogsDst);

	fileErr = fileMan->Move(msgLogsSrc, msgLogsDst);

	CleanupStack::PopAndDestroy(fileMan);

	}

TInt RunTestL(RTest& aTest, const TDesC& aTestScript)

	{

	TInt err = KErrNone;

#ifdef SYMBIAN_BOOKMARK_DATABASE

	// Reset the bookmark database by deleting all bookmarks in root...

	RBkDatabase bookmarkDb;

	bookmarkDb.OpenL();

	CleanupClosePushL(bookmarkDb);

	RBkFolder rootFolder = bookmarkDb.OpenRootL();

	CleanupClosePushL(rootFolder);

	RBkNode bookmark;

	const TInt bookmarkCount = rootFolder.Count();

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

		{

		bookmark = rootFolder.OpenItemL(0);

		CleanupClosePushL(bookmark);

		if( bookmark.Type() == Bookmark::ETypeBookmark )

			{

			Bookmark::TItemId bookmarkId = bookmark.Id();

			CleanupStack::PopAndDestroy(&bookmark);

			TRAP_IGNORE(bookmarkDb.DeleteItemL(bookmarkId)); // ignore errors

			}

		else

			{

			CleanupStack::PopAndDestroy(&bookmark);

			}

		}

	bookmarkDb.CommitL();

	CleanupStack::PopAndDestroy(2, &bookmarkDb);	// rootFolder, bookmarkDb

#endif // SYMBIAN_BOOKMARK_DATABASE

	// Create the test script object, which will use the test script

	CTestScript* script = CTestScript::NewL(g_rfs);

	CleanupStack::PushL(script);

	script->LoadFileL(aTestScript);

	// Create the main test harness, to which all test states will

	// be appended.

	CMainTestHarness* mainTest = CMainTestHarness::NewL(aTest);

	CleanupStack::PushL(mainTest);

	TTestDebugInfo debugInfo(*script, 0, 0);

	mainTest->SetDebugInfo(debugInfo);

	// Create a new section parser.

	CBioMainSectionParser* mainSectionParser = CBioMainSectionParser::NewL(*mainTest, *script);

	CleanupStack::PushL(mainSectionParser);

	// Attempt to parse the script

	TRAP(err, mainSectionParser->ParseL());

	if (err == KErrNone)

		{

		// If we've parsed the script OK, attempt to run the test.

		// The "waiter" object is provided just in case we don't

		// want to start and stop the active scheduler.

		CTestActive* waiter = new (ELeave) CTestActive;

		CleanupStack::PushL(waiter);

		waiter->StartL();

		mainTest->StartL(waiter->iStatus);

		CActiveScheduler::Start();

		err = waiter->iStatus.Int();

		CleanupStack::PopAndDestroy(waiter);

		}

	CleanupStack::PopAndDestroy(mainSectionParser);

	CleanupStack::PopAndDestroy(mainTest);

	CleanupStack::PopAndDestroy(script);

	return err;

	}

#ifndef CENREP_SOLID_AS_A_ROCK

void doCleanEnvironmentL(RTest& aTest)

	{

	// central repository cleanup

	CFileMan* fman = CFileMan::NewL(g_rfs);

	CleanupStack::PushL(fman);

	fman->Delete(_L("c:\\private\\10202be9\\*.*"));

	CleanupStack::PopAndDestroy(fman);

	// clean message store

	CBioTestUtils* utils = CBioTestUtils::NewL(aTest);

	CleanupStack::PushL(utils);

	TRAPD(ignor, utils->CleanMessageFolderL());

	CleanupStack::PopAndDestroy(utils);

	}

#endif

TInt doMainL()

	{

	TInt err = KErrNone;

	// Create the test object which we'll use for output etc.

	RTest test(KBioTestName);

	g_rfs.Connect();

	// Start a new active scheduler.

	CActiveScheduler* scheduler = new (ELeave) CActiveScheduler;

	CActiveScheduler::Install(scheduler);

	CleanupStack::PushL(scheduler);

	// Name of the actual script being executed.

	HBufC*	scriptFileName = HBufC::NewLC(KMaxFileName);

	TPtr	strPtr = scriptFileName->Des();

	_LIT(KInputScriptParameterId, "-i");

	_LIT(KScriptNotFoundErr, "%S not found!\n\n");

	// Handle command line arguments

	CCommandLineArguments*	args = CCommandLineArguments::NewLC();

	TInt					argCount = args->Count();

	TInt					currArg = 0;

	// Search for "-i" parameter.

	while ((currArg < argCount) && args->Arg(currArg).Compare(KInputScriptParameterId))

		{

		currArg++;

		}

	// Input script filename argument NOT present

	//

	// Run multiple test scripts, held in KScriptFileName.

	if ((currArg == argCount) || (currArg == (argCount - 1)))

		{

		CleanupStack::PopAndDestroy(args); // Done with arguments.

		// Load the main script file, used to determine which actual test scripts are run.

		CTestScript*	mainScript = CTestScript::NewL(g_rfs);

		CleanupStack::PushL(mainScript);

		if (mainScript->LoadFileL(KScriptFileName))

			{

			CTestScript::TTestScriptString		line;

			TBool								lineGot = false;

			TInt								linePos = 0;

			// For each valid line in the main script file, run the test.

			lineGot = mainScript->GetLineL(line, linePos);

			while (lineGot)

				{

#ifndef CENREP_SOLID_AS_A_ROCK

				// MLM added to handle KErrCorrupts from CenRep !!!

				doCleanEnvironmentL(test);

#endif

				if (line.Length() > 0)

					{

					TInt	fileErr;

					TBool	dummy = TRUE;

					// Determine the test script file name and path.

					strPtr.Copy(line);

					strPtr.Insert(0, KScriptFileName().Left(KScriptFileName().LocateReverse('\\') + 1)); // inserts path

					// Ensure file exsits.

					fileErr = g_rfs.IsFileOpen(scriptFileName->Des(), dummy);

					if (fileErr == KErrNone)

						{

						// Start the test.

						err = RunTestL(test, scriptFileName->Des());

						// Move the output log.

						MoveLogsL(scriptFileName->Des());

						}

					}

				else

					{

					test.Printf(KScriptNotFoundErr, scriptFileName);

					}

				linePos += line.Length() + 2;	// 2 for cr/lf pair.

				lineGot = mainScript->GetLineL(line, linePos);

				}

			}

		else

			{

			test.Printf(KScriptNotFoundErr, &KScriptFileName);

			User::After(5000000);

			}

		CleanupStack::PopAndDestroy(mainScript);

		}

	// Run single test script.

	else

		{

#ifndef CENREP_SOLID_AS_A_ROCK

		// MLM added to handle KErrCorrupts from CenRep !!!

		doCleanEnvironmentL(test);

#endif

		TInt	fileErr;

		TBool	dummy = TRUE;

		// Determine the test script file name and path.

		strPtr.Copy(args->Arg(currArg + 1));

		strPtr.Insert(0, KScriptFileName().Left(KScriptFileName().LocateReverse('\\') + 1)); // inserts path

		CleanupStack::PopAndDestroy(args);	// Done with arguments.

		// Ensure file exsits.

		fileErr = g_rfs.IsFileOpen(scriptFileName->Des(), dummy);

		if (fileErr == KErrNone)

			{

			// Start the test.

			err = RunTestL(test, scriptFileName->Des());

			// Move the output log.

			MoveLogsL(scriptFileName->Des());

			}

		else

			{

			test.Printf(KScriptNotFoundErr, scriptFileName);

			User::After(5000000);

			}

		}

	CleanupStack::PopAndDestroy(scriptFileName);

	CleanupStack::PopAndDestroy(scheduler);

	g_rfs.Close();

	test.Close();

	return err;

	}

LOCAL_D CTrapCleanup* theCleanup;

GLDEF_C TInt E32Main()

	{	

	__UHEAP_MARK;

	theCleanup=CTrapCleanup::New();

	TInt status = KErrNone;

	TRAPD(ret, status = doMainL());		

	delete theCleanup;	

	__UHEAP_MARKEND;

	User::Heap().Check();

	return status;

	}