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

// Component: IMCM

// Owner: KP

// Brief description of test harness:

// Tests CImEmailOperation - creates new plaintext and html messages; Also 

// tests adding VCard and signature from the SMTP settings.

// Detailed description of test harness:

// As above

// Input files required to run test harness:

// \MSG\IMCMTSRC\contacts.cdb					<DRIVE>:\system\data\contacts.cdb

// \MSG\IMCMTSRC\T_IMCM02A_Entry_Structure.txt	<DRIVE>:\msgtest\IMCM\T_IMCM02a_Entry_Structure.txt

// Intermediate files produced while running test harness:

// <DRIVE>:\msglogs\T_IMCM02A\T_IMCM.log

// <DRIVE>:\msglogs\T_IMCM02A\Entry_Structure.txt

// Output files produced by running test harness:

// <DRIVE>:\msglogs\T_IMCM02A.<PLATFORM>.<VARIANT>.LOG.txt

// Description of how to build test harness:

// cd \msg\imcm\

// bldmake bldfiles

// abld test 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_IMCM02A.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_IMCM02A.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_IMCM02A.exe on the other platform

// 

//

#include "emailtestutils.h"

#include <miutlog.h>

#include <miutmsg.h>

#include <apfrec.h>

#include <apgicnfl.h>

#include <ecom/ecom.h>

#include <cemailaccounts.h>

#include <iapprefs.h>

/*

// These headers are required when generating the contacts.cdb file

#include <cntdb.h>

#include <cntfldst.h>

#include <cntitem.h>

*/

// local variables etc //

#define KPeriod					10000	// period of timer

_LIT(KImcm02Test, "T_IMCM02a - CImEmailOperation Tests");

_LIT(KMsvServerPattern, "!MsvServer*");

RTest test(KImcm02Test);

LOCAL_D CTrapCleanup* theCleanup;

LOCAL_D CImLog* log;

LOCAL_D TMsvId messageId;

LOCAL_D TMsvId smtpService;

LOCAL_D TMsvId smtpService2;

LOCAL_D CEmailTestUtils* testUtils;

LOCAL_D CMsvEntrySelection* messageSelection;

LOCAL_D TInt testNo = 1;

#define KComponent				_L("IMCM")

#define KTestMessageDir			_L("")

#define KOkFileNameEntryStructure _L("T_IMCM02a_Entry_Structure.txt")

class TestUiTimer : public CTimer

	{

public:

	static TestUiTimer* NewLC(CConsoleBase* aConsole, CImEmailOperation* aEmailOperation);

	void RunL();

	void DoCancel();

	void ConstructL();

	void IssueRequest();

	CConsoleBase*				iConsole;

	CImEmailOperation*			iEmailOperation;

	TTimeIntervalMicroSeconds32 period;

protected:

	TInt iCount;

	TBool iClosing;

	TestUiTimer(CConsoleBase* aConsole, CImEmailOperation* aEmailOperation);

	};

//

// Progress timer

//	  

TestUiTimer* TestUiTimer::NewLC(CConsoleBase* aConsole, CImEmailOperation* aEmailOperation)

	{

	TestUiTimer* self = new(ELeave) TestUiTimer(aConsole, aEmailOperation);

	CleanupStack::PushL(self);

	self->ConstructL();

	return self;

	}

TestUiTimer::TestUiTimer(CConsoleBase* aConsole, CImEmailOperation* aEmailOperation)

	: CTimer(EPriorityStandard+3), iEmailOperation(aEmailOperation)

	{

	iConsole = aConsole;

	period = KPeriod;

	iClosing = EFalse;

	iCount = 0;

	}

void TestUiTimer::ConstructL()

	{

	CTimer::ConstructL();

	CActiveScheduler::Add(this);

	}

void TestUiTimer::IssueRequest()

	{

	After(period);

	}

void TestUiTimer::DoCancel()

	{

	CTimer::DoCancel();

	}

void TestUiTimer::RunL()

	{

	// display the current progress

	TMsvId temp;	

	TPckgC<TMsvId> paramPack(temp);

	const TDesC8& progBuf = iEmailOperation->ProgressL();	

	paramPack.Set(progBuf);

	TMsvId progress=paramPack();	

	test.Console()->SetPos(0, 10);

	test.Printf(_L("   MessageId %d		\n"),progress);

	IssueRequest();

	};

//

/*

// Do not delete this function as it may be required to regenerate the contacts.cdb file

// if there are any source/binary incompatible changes!

LOCAL_C void CreateVCardL()

  	{

  	// create own card file.

  	CContactDatabase* db = CContactDatabase::ReplaceL();

 	CleanupStack::PushL(db);

  	CContactItemField* field=CContactItemField::NewLC(KStorageTypeText,KUidContactFieldFamilyName);

  	field->TextStorage()->SetTextL(_L("Symbian"));

  	CContactItem* item = CContactCard::NewLC();

  	item->AddFieldL(*field);

  	TContactItemId id;

  	id=db->AddNewContactL(*item);

  	db->SetOwnCardL(*item);

  	CleanupStack::PopAndDestroy(); // item

  	CleanupStack::Pop(); // field

  	CleanupStack::PopAndDestroy(); // db

	}

*/

LOCAL_C void InitL()

	{

	CActiveScheduler* scheduler = new (ELeave) CActiveScheduler;

	CActiveScheduler::Install(scheduler);

	CleanupStack::PushL(scheduler);

	testUtils = CEmailTestUtils::NewLC(test);

	testUtils->CreateAllTestDirectories();

	testUtils->FileSession().SetSessionPath(_L("C:\\"));

	testUtils->ClearEmailAccountsL();

	testUtils->CleanMessageFolderL();

	testUtils->WriteComment(_L("CImEmailOperation Tests"));

	log = CImLog::NewL(_L("c:\\logs\\email\\T_IMCM.log"), EAppend);

	CleanupStack::PushL(log);

	log->AppendComment(_L8("********* T_IMCM02a Test CImEmailOperation *********"));

	TBuf8<80> buf;

#if defined(__WINS__)	

	buf.Append(_L8("WINS "));

#else

	buf.Append(_L8("MARM "));

#endif

#if defined(_UNICODE)

	buf.Append(_L8("U"));

#endif

#if defined(_DEBUG)

	buf.Append(_L8("DEB"));

#else

	buf.Append(_L8("REL"));

#endif

	log->AppendComment(buf);

	}

LOCAL_C void Closedown()

	{

	log->AppendComment(_L8("**********    T_IMCM02a Tests Complete    **********"));

	log->AppendComment(_L8(""));

	CleanupStack::PopAndDestroy(3);  //testUtils, log, scheduler

	User::After(5000000);

	}

LOCAL_C void TestMessageProgressL(CImEmailOperation& aEmailOperation, TMsvPartList aPartList, TMsvEmailTypeList aMsvEmailTypeList, TInt aTestNo, TMsvId aSmtpServiceId)

	{

	test.Console()->SetPos(26, 7);

	TInt tempCount = aTestNo%4;

	if (tempCount == 0)

		test.Printf(_L("|"));

	else if (tempCount == 1)

		test.Printf(_L("/"));

	else if (tempCount == 2)

		test.Printf(_L("-"));

	else if (tempCount == 3)

		test.Printf(_L("\\"));

	//check progress

	TMsvId temp;	

	TPckgC<TMsvId> paramPack(temp);

	const TDesC8& progBuf = aEmailOperation.ProgressL();

	paramPack.Set(progBuf);

	messageId=paramPack();

	TInt error = aEmailOperation.iStatus.Int();

	TMsvEmailEntry entry;

	TMsvId serviceId;

	testUtils->iMsvSession->GetEntry(messageId, serviceId, entry);

	if (aSmtpServiceId != KMsvNullIndexEntryId)

		test(entry.iServiceId == aSmtpServiceId);

	_LIT8(KPassed, "\t\tPASSED Test: %d");

	_LIT8(KFailed, "\t\tFAILED Test: %d - Tried to Create message:");

	TBuf8<80> buf;

	if (messageId!=NULL)

		{

		buf.Format(KPassed, aTestNo, messageId);

		log->AppendComment(buf);

		testUtils->TestFinish(aTestNo);

		}

	else

		{

		buf.Format(KFailed, aTestNo, messageId);

		log->AppendError(buf, error);

		if (aMsvEmailTypeList & KMsvEmailTypeListMHTMLMessage)

			log->AppendError(_L8("\t\t\tHTML message"), error);

		if (aPartList & KMsvMessagePartBody)

			log->AppendError(_L8("\t\t\t- With Body"), error);

		if (aPartList & KMsvMessagePartAttachments)

			log->AppendError(_L8("\t\t\t- With Attachments"), error);

		if (aPartList & KMsvMessagePartDescription)

			log->AppendError(_L8("\t\t\t- With Subject"), error);

		if (aPartList & KMsvMessagePartOriginator)

			log->AppendError(_L8("\t\t\t- With Originator"), error);

		if (aPartList & KMsvMessagePartRecipient)

			log->AppendError(_L8("\t\t\t- With Recipient"), error);

		}

	}

LOCAL_C void CreateNewL(TMsvPartList aPartList, TMsvEmailTypeList aMsvEmailTypeList, TInt aTestNo, TMsvId aSmtpServiceId = KMsvNullIndexEntryId)

	{

	testUtils->TestStart(aTestNo);

	CTestActive* testActive = new (ELeave) CTestActive();

	CleanupStack::PushL(testActive);

	CImEmailOperation* emailOperation;

	if (aSmtpServiceId == KMsvNullIndexEntryId)

		emailOperation = CImEmailOperation::CreateNewL(testActive->iStatus, *(testUtils->iMsvSession), KMsvGlobalOutBoxIndexEntryId, aPartList, aMsvEmailTypeList, KUidMsgTypeSMTP);

	else

		emailOperation = CImEmailOperation::CreateNewL(testActive->iStatus, *(testUtils->iMsvSession), KMsvGlobalOutBoxIndexEntryId, aSmtpServiceId, aPartList, aMsvEmailTypeList, KUidMsgTypeSMTP);

	CleanupStack::PushL(emailOperation);

	TestUiTimer* testUiTimer = TestUiTimer::NewLC(test.Console(), emailOperation);

	testActive->StartL();

	testUiTimer->IssueRequest();

	CActiveScheduler::Start();

	TestMessageProgressL(*emailOperation, aPartList, aMsvEmailTypeList, aTestNo, aSmtpServiceId);

	CleanupStack::PopAndDestroy(3); // testActive, emailOperation, testUiTimer

	}

LOCAL_C void SetAddVCardToEmailL(TBool addVCard, TMsvId serviceId)

	{

	CEmailAccounts* accounts = CEmailAccounts::NewLC();

	CImSmtpSettings* smtpSettings = new (ELeave) CImSmtpSettings;

	CleanupStack::PushL(smtpSettings);

	TSmtpAccount smtpAccount;

 	accounts->GetSmtpAccountL(serviceId, smtpAccount);

 	accounts->LoadSmtpSettingsL(smtpAccount, *smtpSettings);

	smtpSettings->SetAddVCardToEmail(addVCard);

	accounts->SaveSmtpSettingsL(smtpAccount, *smtpSettings);

	CleanupStack::PopAndDestroy(2, accounts); // smtpSettings, accounts

	}

LOCAL_C void CreateSignatureL(TMsvId serviceId)

	{

	testUtils->iMsvEntry->SetEntryL(serviceId);

	CParaFormatLayer* paraFormatLayer=CParaFormatLayer::NewL();

	CleanupStack::PushL(paraFormatLayer);

	CCharFormatLayer* charFormatLayer=CCharFormatLayer::NewL(); 

	CleanupStack::PushL(charFormatLayer);

	CRichText* signature=CRichText::NewL(paraFormatLayer, charFormatLayer, CEditableText::EFlatStorage, 256);

	CleanupStack::PushL(signature);

	TBuf<100> bodyContents = _L("(Signature:) Symbian Ltd.");

	signature->InsertL(0, bodyContents);

	CMsvStore* msvStore = testUtils->iMsvEntry->EditStoreL();

	CleanupStack::PushL(msvStore);

	msvStore->StoreBodyTextL(*signature);

	msvStore->Commit();

	CleanupStack::PopAndDestroy(4); // msvStore, signature, charFormatLayer, paraFormatLayer

	}

LOCAL_C void SetSignatureToEmailL(TBool addSignature, TMsvId serviceId)

	{

	CEmailAccounts* accounts = CEmailAccounts::NewLC();

	CImSmtpSettings* smtpSettings = new (ELeave) CImSmtpSettings;

	CleanupStack::PushL(smtpSettings);

  	TSmtpAccount smtpAccount;

 	accounts->GetSmtpAccountL(serviceId, smtpAccount);

 	accounts->LoadSmtpSettingsL(smtpAccount, *smtpSettings);

	smtpSettings->SetAddSignatureToEmail(addSignature);

	accounts->SaveSmtpSettingsL(smtpAccount, *smtpSettings);

	CleanupStack::PopAndDestroy(2, accounts); // smtpSettings, accounts

	if (addSignature)

		log->AppendComment(_L8("\tAdd VCard"));

	}

LOCAL_C void SetDefaultServiceL(TMsvId smtpService)

	{

	CEmailAccounts* accounts = CEmailAccounts::NewLC();

	TSmtpAccount smtpAccount;

	accounts->GetSmtpAccountL(smtpService, smtpAccount);

	accounts->SetDefaultSmtpAccountL(smtpAccount);

	CleanupStack::PopAndDestroy(accounts);

	}

LOCAL_C void DoPlaintextCreateNewTestsL()

	{

	TMsvPartList partList = 0;

	TMsvEmailTypeList emailTypeList = 0;

	//

	// Plaintext messages

	//

	log->AppendComment(_L8("\tPlaintext Create New Message Tests"));

	// basic new message with nothing!

	CreateNewL(partList, emailTypeList, testNo++);

	// only body

	partList = KMsvMessagePartBody;

	CreateNewL(partList, emailTypeList, testNo++);

	// only attachment

	partList = KMsvMessagePartAttachments;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body and attachment

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments;

	CreateNewL(partList, emailTypeList, testNo++);

	// basic new message with subject

	partList = KMsvMessagePartDescription;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body and subject

	partList = KMsvMessagePartBody | KMsvMessagePartDescription;

	CreateNewL(partList, emailTypeList, testNo++);

	// only attachment and subject

	partList = KMsvMessagePartAttachments | KMsvMessagePartDescription;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body, attachment and subject 

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartDescription;

	CreateNewL(partList, emailTypeList, testNo++);

	// basic new message with originator

	partList = KMsvMessagePartOriginator;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body and originator

	partList = KMsvMessagePartBody | KMsvMessagePartOriginator;

	CreateNewL(partList, emailTypeList, testNo++);

	// only attachment and originator

	partList = KMsvMessagePartAttachments | KMsvMessagePartOriginator;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body, attachment and originator

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartOriginator;

	CreateNewL(partList, emailTypeList, testNo++);

	// basic new message with subject and originator

	partList = KMsvMessagePartDescription | KMsvMessagePartOriginator;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body, subject and originator

	partList = KMsvMessagePartBody | KMsvMessagePartDescription | KMsvMessagePartOriginator;

	CreateNewL(partList, emailTypeList, testNo++);

	// only attachment, subject and originator

	partList = KMsvMessagePartAttachments | KMsvMessagePartDescription | KMsvMessagePartOriginator;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body, attachment, subject and originator

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartDescription | KMsvMessagePartOriginator;

	CreateNewL(partList, emailTypeList, testNo++);

	// basic new message with recipients

	partList = KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// only attachment and recipients

	partList = KMsvMessagePartAttachments | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body, attachment and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// basic new message with subject and recipients

	partList = KMsvMessagePartDescription | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body, subject and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartDescription | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// only attachment, subject and recipients

	partList = KMsvMessagePartAttachments | KMsvMessagePartDescription | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body, attachment, subject and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartDescription | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// basic new message with originator and recipients

	partList = KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body, originator and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// only attachment, originator and recipients

	partList = KMsvMessagePartAttachments | KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body, attachment, originator and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// basic new message with subject, originator and recipients

	partList = KMsvMessagePartDescription | KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body, subject, originator and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartDescription | KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// only attachment, subject, originator and recipients

	partList = KMsvMessagePartAttachments | KMsvMessagePartDescription | KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// only body, attachment, subject, originator and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartDescription | KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateNewL(partList, emailTypeList, testNo++);

	// Create a VCard and store in the SMTP settings

	SetAddVCardToEmailL(ETrue, smtpService);

	log->AppendComment(_L8("\tPlaintext Create New Message with VCard Tests"));