// 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_IMCM02B1

// Component: IMCM

// Owner: KP

// Brief description of test harness:

// Tests CImEmailOperation - reply to plaintext message including/excluding 

// attachments; reply to plaintext message as HTML including/excluding 

// attachments; reply to HTML message including/excluding attachments; reply 

// to HTML message without text alternative including/excluding attachments; 

// 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_IMCM02B1_Entry_Structure.txt	<DRIVE>:\msgtest\IMCM\T_IMCM02B1_Entry_Structure.txt

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

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

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

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

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

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

// Intermediate files produced while running test harness:

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

// Output files produced by running test harness:

// <DRIVE>:\msglogs\T_IMCM02B1.<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_IMCM02B1.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_IMCM02B1.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_IMCM02B1.exe on the other platform

// 

//

#include "emailtestutils.h"

#include <miutmsg.h>

#include <apfrec.h>

#include <apgicnfl.h>

#include <ecom/ecom.h>

#include <mmsvattachmentmanager.h>

#include <cemailaccounts.h>

#include <cntdb.h>

// local variables etc //

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

RTest test(KImcm02Test);

LOCAL_D CTrapCleanup* theCleanup;

LOCAL_D TMsvId pop3Service;

LOCAL_D TMsvId smtpService;

LOCAL_D CEmailTestUtils* testUtils;

LOCAL_D CMsvEntrySelection* messageSelection;

LOCAL_D TInt testNo = 1;

LOCAL_D TBool testFailed=EFalse;

#define KComponent				_L("IMCM")

#define KTestMessageDir			_L("")

#define KOkFileNameEntryStructure _L("T_IMCM02B1_Entry_Structure.txt")

LOCAL_D TBool StartTimeSet=EFalse;

LOCAL_D TTime StartTime;

LOCAL_D TInt  KnownDateTimeIndex=0;

LOCAL_C void SetKnownDateAndTime()

	{

	TDateTime aDateTimes[]={

				TDateTime(2002,EJune,18,10,30,0,0),

				TDateTime(2003,EJanuary,1,21,0,0,0),

				TDateTime(2001,EDecember,18,2,15,0,0),

				TDateTime(2004,EMay,18,17,50,0,0)

				};

	if (!StartTimeSet)

		{

		StartTime.UniversalTime();

		StartTimeSet=ETrue;

		}

	TTime aFakeTime(aDateTimes[KnownDateTimeIndex++]);

	KnownDateTimeIndex&=3;

	User::SetHomeTime(aFakeTime);

	}

LOCAL_C void RestoreDateAndTime()

	{

	if (StartTimeSet)

		{

		TTime aCurrentTime;

		aCurrentTime.UniversalTime();

		TTimeIntervalSeconds aDuration;

		if (!aCurrentTime.SecondsFrom(StartTime,aDuration))

			StartTime+=aDuration;

		User::SetHomeTime(StartTime);

		StartTimeSet=EFalse;

		}

	}

LOCAL_C void InitL()

	{

	CActiveScheduler* scheduler = new (ELeave) CActiveScheduler;

	CActiveScheduler::Install(scheduler);

	CleanupStack::PushL(scheduler);

	testUtils = CEmailTestUtils::NewLC(test);

	testUtils->CreateAllTestDirectories();

	CContactDatabase* contacts(NULL);

	TRAPD(err, contacts = CContactDatabase::OpenL());

	delete contacts;

	if (err==KErrNotFound)

		{

		testUtils->WriteComment(_L("contacts file is missing from system data"));		

		testFailed=ETrue;

		return;

		}

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

	testUtils->ClearEmailAccountsL();

	testUtils->CleanMessageFolderL();

	testUtils->GoServerSideL();

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

	}

LOCAL_C void Closedown()

	{

	CleanupStack::PopAndDestroy(2);  //testUtils, scheduler

	User::After(5000000);

	}

LOCAL_C void CreateReplyL(TMsvId aMessageId, TMsvPartList aPartList, TMsvEmailTypeList aMsvEmailTypeList, TInt aTestNo)

	{

	testUtils->TestStart(aTestNo);

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

	CleanupStack::PushL(testActive);

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

	CleanupStack::PushL(emailOperation);

	testActive->StartL();

	CActiveScheduler::Start();

	testUtils->TestFinish(aTestNo,testActive->iStatus.Int());

	CleanupStack::PopAndDestroy(2); // testActive, emailOperation

	}

LOCAL_C void SetAddVCardToEmailL(TBool addVCard, TMsvId serviceId)

	{

	CImSmtpSettings* smtpSettings = new (ELeave) CImSmtpSettings;

	CleanupStack::PushL(smtpSettings);

	CEmailAccounts* accounts = CEmailAccounts::NewLC();

	TSmtpAccount account;

	accounts->GetSmtpAccountL(serviceId, account);

	accounts->LoadSmtpSettingsL(account,*smtpSettings);

	smtpSettings->SetAddVCardToEmail(addVCard);

	accounts->SaveSmtpSettingsL(account, *smtpSettings);

	CleanupStack::PopAndDestroy(2); // smtpSettings, msvStore/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)

	{

	CImSmtpSettings* smtpSettings = new (ELeave) CImSmtpSettings;

	CleanupStack::PushL(smtpSettings);

	CEmailAccounts* accounts = CEmailAccounts::NewLC();

    TSmtpAccount account;

	accounts->GetSmtpAccountL(serviceId, account);

	accounts->LoadSmtpSettingsL(account,*smtpSettings);

	smtpSettings->SetAddSignatureToEmail(addSignature);

	accounts->SaveSmtpSettingsL(account, *smtpSettings);

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

	if (addSignature)

		testUtils->WriteComment(_L("\tAdd VCard"));

	}

LOCAL_C void SetDefaultServiceL(TMsvId smtpService)

	{

	CEmailAccounts* accounts = CEmailAccounts::NewLC();

	TSmtpAccount account;

	accounts->GetSmtpAccountL(smtpService, account);

	accounts->SetDefaultSmtpAccountL(account);

	// is default service ??

	TSmtpAccount defaultAccount;

	accounts->DefaultSmtpAccountL(defaultAccount);

	if (account.iSmtpAccountId != defaultAccount.iSmtpAccountId)

		{

		User::Leave(KErrNotFound);

		}

	CleanupStack::PopAndDestroy(accounts);

	}

LOCAL_C TMsvId CreateNewPlaintextMessageWithIncompleteAttachmentL()

	{

	TMsvEmailTypeList msvEmailTypeList = 0;

	TMsvPartList partList = 0;

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

	CleanupStack::PushL(testActive);

	partList = (KMsvMessagePartBody | KMsvMessagePartAttachments);

	CImEmailOperation* emailOperation = CImEmailOperation::CreateNewL(testActive->iStatus, *(testUtils->iMsvSession), KMsvGlobalInBoxIndexEntryId, partList, msvEmailTypeList, KUidMsgTypeSMTP);

	CleanupStack::PushL(emailOperation);

	testActive->StartL();

	CActiveScheduler::Start();

	if (testActive->iStatus.Int())

		{

		testUtils->WriteComment(_L("CreateNewPlaintextMessageWithIncompleteAttachmentL failed"));

		testUtils->TestHarnessFailed(testActive->iStatus.Int());

		}

	//check progress

	TMsvId temp;	

	TPckgC<TMsvId> paramPack(temp);

	const TDesC8& progBuf1 = emailOperation->ProgressL();	

	paramPack.Set(progBuf1);

	TMsvId messageId = paramPack();	

	CleanupStack::PopAndDestroy(2); // testActive, emailOperation

	//

	// Add an attachment

	//

	testActive = new (ELeave) CTestActive();

	CleanupStack::PushL(testActive);

	_LIT(KAttachment1, "C:\\mailtest\\IMCM\\rfc82201.txt");

	_LIT(KAttachment2, "C:\\mailtest\\IMCM\\rfc82202.txt");

	_LIT(KAttachmentFileName1, "rfc82201.txt");

	_LIT(KAttachmentFileName2, "rfc82202.txt");

	CImEmailMessage* imEmailMessage = CImEmailMessage::NewLC(*(testUtils->iMsvEntry));

	// Make sure you are set on the Message Id

	testUtils->iMsvEntry->SetEntryL(messageId);

	CMsvAttachment* attachmentInfo = CMsvAttachment::NewL(CMsvAttachment::EMsvFile);

	CleanupStack::PushL(attachmentInfo);

	attachmentInfo->SetAttachmentNameL(KAttachmentFileName1());

	CleanupStack::Pop(attachmentInfo);	 // ownership passed to attachment manager

	imEmailMessage->AttachmentManager().AddAttachmentL(KAttachment1, attachmentInfo, testActive->iStatus);

	testActive->StartL();

	CActiveScheduler::Start();	// wait for the asynch operation to complete

	if (testActive->iStatus.Int())

		{

		testUtils->WriteComment(_L("CreateNewPlaintextMessageWithIncompleteAttachmentL failed"));

		testUtils->TestHarnessFailed(testActive->iStatus.Int());

		}

	// Make sure you are set on the Message Id

	testUtils->iMsvEntry->SetEntryL(messageId);

	attachmentInfo = CMsvAttachment::NewL(CMsvAttachment::EMsvFile);

	CleanupStack::PushL(attachmentInfo);

	attachmentInfo->SetAttachmentNameL(KAttachmentFileName2());

	CleanupStack::Pop(attachmentInfo);	 // ownership passed to attachment manager

	imEmailMessage->AttachmentManager().AddAttachmentL(KAttachment2, attachmentInfo, testActive->iStatus);

	testActive->StartL();

	CActiveScheduler::Start();	// wait for the asynch operation to complete

	if (testActive->iStatus.Int())

		{

		testUtils->WriteComment(_L("CreateNewPlaintextMessageWithIncompleteAttachmentL failed"));

		testUtils->TestHarnessFailed(testActive->iStatus.Int());

		}

	const TDesC8& progBuf2 = imEmailMessage->ProgressL();	

	paramPack.Set(progBuf2);

	TMsvId attachmentId = paramPack();	

	CleanupStack::PopAndDestroy(2); // imEmailMessage, testActive

	//

	// Set the attachment to be not complete

	//

	testUtils->iMsvEntry->SetEntryL(attachmentId);

	TMsvEmailEntry attachmentEntry = testUtils->iMsvEntry->Entry();

	attachmentEntry.SetComplete(EFalse);

	testUtils->iMsvEntry->ChangeL(attachmentEntry);

	return messageId;

	}

LOCAL_C void DoPlaintextCreateReplyTestsL(TMsvId aMessageId)

	{

	TMsvPartList partList = 0;

	TMsvEmailTypeList emailTypeList = 0;

	//

	// Plaintext messages

	//

	testUtils->WriteComment(_L("\tPlaintext Create Reply Message Tests"));

	// basic new message with nothing!

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body

	partList = KMsvMessagePartBody;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only attachment

	partList = KMsvMessagePartAttachments;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body and attachment

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// basic new message with subject

	partList = KMsvMessagePartDescription;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body and subject

	partList = KMsvMessagePartBody | KMsvMessagePartDescription;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only attachment and subject

	partList = KMsvMessagePartAttachments | KMsvMessagePartDescription;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, attachment and subject 

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartDescription;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// basic new message with originator

	partList = KMsvMessagePartOriginator;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body and originator

	partList = KMsvMessagePartBody | KMsvMessagePartOriginator;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only attachment and originator

	partList = KMsvMessagePartAttachments | KMsvMessagePartOriginator;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, attachment and originator

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartOriginator;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// basic new message with subject and originator

	partList = KMsvMessagePartDescription | KMsvMessagePartOriginator;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, subject and originator

	partList = KMsvMessagePartBody | KMsvMessagePartDescription | KMsvMessagePartOriginator;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only attachment, subject and originator

	partList = KMsvMessagePartAttachments | KMsvMessagePartDescription | KMsvMessagePartOriginator;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, attachment, subject and originator

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartDescription | KMsvMessagePartOriginator;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// basic new message with recipients

	partList = KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only attachment and recipients

	partList = KMsvMessagePartAttachments | KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, attachment and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// basic new message with subject and recipients

	partList = KMsvMessagePartDescription | KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, subject and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartDescription | KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only attachment, subject and recipients

	partList = KMsvMessagePartAttachments | KMsvMessagePartDescription | KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, attachment, subject and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartDescription | KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// basic new message with originator and recipients

	partList = KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, originator and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only attachment, originator and recipients

	partList = KMsvMessagePartAttachments | KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, attachment, originator and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// basic new message with subject, originator and recipients

	partList = KMsvMessagePartDescription | KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, subject, originator and recipients

	partList = KMsvMessagePartBody | KMsvMessagePartDescription | KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only attachment, subject, originator and recipients

	partList = KMsvMessagePartAttachments | KMsvMessagePartDescription | KMsvMessagePartOriginator | KMsvMessagePartRecipient;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

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

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

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// Create a VCard and store in the SMTP settings

	SetAddVCardToEmailL(ETrue, smtpService);

	testUtils->WriteComment(_L("\tPlaintext Create Reply Message with VCard Tests"));

	// basic new message with VCard

	partList = 0;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body and VCard

	partList = KMsvMessagePartBody;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only attachment and VCard

	partList = KMsvMessagePartAttachments;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, attachment and VCard

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// basic new message with subject and VCard

	partList = KMsvMessagePartDescription;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, subject and VCard

	partList = KMsvMessagePartBody | KMsvMessagePartDescription;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only attachment, subject and VCard

	partList = KMsvMessagePartAttachments | KMsvMessagePartDescription;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, attachment, subject and VCard

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartDescription;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// basic new message with originator and VCard

	partList = KMsvMessagePartOriginator;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, originator and VCard

	partList = KMsvMessagePartBody | KMsvMessagePartOriginator;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only attachment, originator and VCard

	partList = KMsvMessagePartAttachments | KMsvMessagePartOriginator;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);

	// only body, attachment, originator and VCard

	partList = KMsvMessagePartBody | KMsvMessagePartAttachments | KMsvMessagePartOriginator;

	CreateReplyL(aMessageId, partList, emailTypeList, testNo++);