// Copyright (c) 2000-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:
// Name of test harness: T_EMAIL
// Owner: EH
// Brief description of test harness:
// Sends mail via SMTP and retrieves mail via POP3.
// Detailed description of test harness:
// As above
// Input files required to run test harness:
// None
// Intermediate files produced while running test harness:
// None
// Output files produced by running test harness:
// <DRIVE>:\msglogs\T_EMAIL.<PLATFORM>.<VARIANT>.LOG.txt
// Description of how to build test harness:
// cd \msg\test\smoke\email
// bldmake bldfiles
// abld build
// Description of how to run test harness:
// The following instructions are the same for all platforms:
// 1. Build T_DB test harness from COMMDB component:
// cd \commdb\group
// bldmake bldfiles
// abld test build t_db
// 2. Build the test utilities:
// cd \msg\testutils\group\
// bldmake bldfiles
// abld build
// WINS running instructions:
// 1. \epoc32\release\wins\<VARIANT>\T_EMAIL.exe can be used at the command prompt
// or executable can be run from Windows Explorer.
// All other platform running instructions:
// 1. Copy \epoc32\release\<PLATFORM>\<VARIANT>\T_EMAIL.exe onto the other platform
// 2. Copy \epoc32\release\<PLATFORM>\<VARIANT>\MSVTESTUTILS.DLL into 
// <DRIVE>:\system\libs on the other platform
// 3. Copy \epoc32\release\<PLATFORM>\<VARIANT>\EMAILTESTUTILS.DLL into 
// <DRIVE>:\system\libs on the other platform
// 4. Run T_EMAIL.exe on the other platform
// 
//


#include "emailsmoke.h"
#include "emailsmokeparse.h"
#include <bacline.h>


// For loading the serial comms device drivers 
#if defined (__WINS__)
	#define PDD_NAME		_L("ECDRV")
	#define LDD_NAME		_L("ECOMM")
#else
	#define PDD_NAME		_L("EUART1")
	#define LDD_NAME		_L("ECOMM")
#endif

_LIT(KTestParams,"-testparams");
_LIT(KNewLogFile,"newlog");
enum TCmdLineArgs
	{
	EArgProgramName,
	EArgTestParams,
	EArgScriptFile,
	EArgNewLogFile,
	EArgEnd
	};

// this is used if we can't find MsgLogs anywhere
_LIT(KMsvPathSep,"\\");
_LIT(KMsvTestFileInputBase,"MsgTest");

TInt ResolveFile(RFs& aFs, const TDesC& aComponent, const TDesC& aFileName, TParse& aParseOut)
	{
	TFileName* savedPath = new TFileName;
	TFileName* fileName = new TFileName;
	if ((savedPath == NULL) || (fileName == NULL))
		return KErrNoMemory;

	fileName->Append(KMsvPathSep);
	fileName->Append(KMsvTestFileInputBase);
	fileName->Append(KMsvPathSep);
	fileName->Append(aComponent);
	fileName->Append(KMsvPathSep);
	fileName->Append(aFileName);
	
	// file finder will look in the session drive first, then Y->A,Z
	// so set session drive to Y (save old and restore it afterwards)
	aFs.SessionPath(*savedPath);
	_LIT(KTopDrive,"Y:\\");
	aFs.SetSessionPath(KTopDrive);
    TFindFile file_finder(aFs);
    TInt err = file_finder.FindByDir(*fileName,KNullDesC);
	if(err==KErrNone)
		aParseOut.Set(file_finder.File(),NULL,NULL);
	aFs.SetSessionPath(*savedPath);
	delete savedPath;
	delete fileName;
	return(err);
	}

//
//
// Main Test Harness
//

LOCAL_D CTrapCleanup* theCleanup;

void doMainL()
	{
	RTest test(_L("Email smoke tests"));
	RFs fs;
	fs.Connect();

	// Load the serial comms device drivers.  If this is not done,
	// connecting via NT-RAS returns KErrNotFound (-1).
	TInt driverErr;
	driverErr=User::LoadPhysicalDevice(PDD_NAME);
	if (driverErr!=KErrNone && driverErr!=KErrAlreadyExists)
		User::Leave(driverErr);
	driverErr=User::LoadLogicalDevice(LDD_NAME);
	if (driverErr!=KErrNone && driverErr!=KErrAlreadyExists)
		User::Leave(driverErr);


	CActiveScheduler* scheduler = new (ELeave) CActiveScheduler;
	CActiveScheduler::Install(scheduler);
	CleanupStack::PushL(scheduler);

	// Handle command line arguments
	CCommandLineArguments* cmdLineArg=CCommandLineArguments::NewLC();
	TInt count = cmdLineArg->Count();
	TBool isCmdLine=FALSE;
	TBool keepLogFile=TRUE;
	if (count>2)	// Command line arguments?
		{
		if ((!(cmdLineArg->Arg(EArgTestParams).Compare(KTestParams))) && (count==EArgNewLogFile || count==EArgEnd))
			{
			isCmdLine=TRUE;
			if (count==EArgEnd)
				if (!(cmdLineArg->Arg(EArgNewLogFile).Compare(KNewLogFile)))
					keepLogFile=FALSE;
			}
		}	
	CTestScript* script = CTestScript::NewL(fs);
	CleanupStack::PushL(script);
	TParse scriptFileName;

	TInt err;
	TBuf<100> buf;
	if (isCmdLine)
		{
		TLex lex(cmdLineArg->Arg(EArgScriptFile));
		buf=lex.NextToken();
		test.Printf(_L("Script file: %S\n"),&buf);
		}
	else
		buf=_L("script.txt");

	CEmailTestUtils* testUtils = CEmailTestUtils::NewL(test,keepLogFile? ETuKeepLogFile:0);
	CleanupStack::PushL(testUtils);
	
	err = ResolveFile(fs, _L("emailsmoke"), buf, scriptFileName);
	if (err != KErrNone)
		{
		if (keepLogFile)
			testUtils->WriteComment(KTestHeader);
		testUtils->Printf(_L("Could not find script file:%S"),&buf);
		}
	script->LoadFileL(scriptFileName.FullName());

	CMainTestHarness* mainTest = CMainTestHarness::NewL(test);
	CleanupStack::PushL(mainTest);
	TTestDebugInfo debugInfo(*script, 0, 0);
	mainTest->SetDebugInfo(debugInfo);

	CMainSectionParser* mainSectionParser = CMainSectionParser::NewL(*mainTest, *script, keepLogFile);
	CleanupStack::PushL(mainSectionParser);

	if (err == KErrNone)
		{
		TRAP(err, mainSectionParser->ParseL());
		}

	if (err == KErrNone)
		{
		TInt pos=0;
		CTestActive* waiter = new (ELeave) CTestActive;
		CleanupStack::PushL(waiter);
		waiter->StartL();
		mainTest->StartL(waiter->iStatus);
		CActiveScheduler::Start();
		TInt status = waiter->iStatus.Int();
		CleanupStack::PopAndDestroy(waiter);
		testUtils->SeekLogFile(ESeekEnd,pos);
		testUtils->Printf(_L("SCRIPT FILE:%S"),&buf);
		if (status==KErrNone)
			testUtils->TestHarnessCompleted();
		else
			testUtils->TestHarnessFailed(status);
		}

	CleanupStack::PopAndDestroy(4,script);
	CleanupStack::PopAndDestroy();	// cmdLineArg
	CleanupStack::PopAndDestroy(scheduler);

	fs.Close();
	test.Close();
	}

GLDEF_C TInt E32Main()
	{	
	__UHEAP_MARK;
	theCleanup=CTrapCleanup::New();

	TRAPD(ret,doMainL());		

	delete theCleanup;	
//	test.End();
//	test.Close();
	__UHEAP_MARKEND;
	User::Heap().Check();
	return(KErrNone);
	}