/*

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

*

*/

#include <e32test.h>

#include <f32file.h>

#include <s32file.h>

#include <s32mem.h>

#include <cntdb.h>

#include <cntitem.h>

#include <cntfldst.h>

#include <e32def.h>

#include "t_vers.h"

#include "t_utils.h"

#include <coreappstest/testserver.h>

enum ImpExpTestFlags

	{

	EImpExpTestMultipleEntries=0x1,

	EImpExpTestModifyEntries=0x2,

	EImpExpTestExportExtraEntry=0x4,

	};

CCntTest* CntTest=NULL;

LOCAL_D RTest test(_L("T_VERS"));

LOCAL_D CContactIdArray* TheIds;

LOCAL_D CArrayPtr<CContactItem>* TheItems;

LOCAL_D CArrayPtr<CContactItem>* TheItems2;

LOCAL_D CArrayPtr<CContactItem>* TheItems3;

LOCAL_D CArrayPtr<CContactItem>* TheItems4;

const TPtrC KDatabaseFileName=_L("C:T_VERS");

_LIT(KVCardFileToImport,"c:\\t_vers.vcf");

//

// CVersitTest

//

CVersitTest::CVersitTest()

	{}

CVersitTest::~CVersitTest()

	{

	delete iParser;

	delete iStore;

	}

void CVersitTest::StreamInL()

//Convert the iVersit into stream format, save it as "VersitIn"

//and internalize it as a CVersitParser

	{

	CFileStore* store = CDirectFileStore::ReplaceLC(CntTest->Fs(),_L("c:\\Versit2"),EFileWrite);

	store->SetTypeL(KDirectFileStoreLayoutUid);

	RStoreWriteStream outstream;

	TStreamId id = outstream.CreateLC(*store);

	TInt length=iVersit.Length();

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

		outstream.WriteInt8L(iVersit[ii]);

	outstream.CommitL();

	CleanupStack::PopAndDestroy();

	store->SetRootL(id);

	store->CommitL();

	CleanupStack::PopAndDestroy();

	store = CDirectFileStore::OpenLC(CntTest->Fs(),_L("c:\\Versit2"),EFileRead); //retrieve stream

	RStoreReadStream instream;

	instream.OpenLC(*store,store->Root());

	iParser->InternalizeL(instream);

	CleanupStack::PopAndDestroy(2); //store + stream

	}

void CVersitTest::StreamLCC(RReadStream& aStream, TInt aMode, TInt aContactId)

	{

	switch(aMode)

		{

		case 1:

			GetSampleVersitL();

			break;

		case 2:

			GetSampleVersit2L(aContactId);

			break;

		case 3:

			GetSampleVersit3L();

			break;

		}

	TFileName versitIn;

	versitIn.Format(_L("c:\\VersitIn%d"),aMode);

	CFileStore* store = CDirectFileStore::ReplaceLC(CntTest->Fs(),versitIn,EFileWrite);

	store->SetTypeL(KDirectFileStoreLayoutUid);

	RStoreWriteStream outstream;

	TStreamId id = outstream.CreateLC(*store);

	TInt length=iVersit.Length();

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

		outstream.WriteInt8L(iVersit[ii]);

	outstream.CommitL();

	CleanupStack::PopAndDestroy();

	store->SetRootL(id);

	store->CommitL();

 	CleanupStack::PopAndDestroy();	// store

	store = CDirectFileStore::OpenLC(CntTest->Fs(),versitIn,EFileRead); //retrieve stream

	RStoreReadStream instream;

	instream.OpenLC(*store,store->Root());

	CleanupStack::Pop();	// instream

	aStream=RReadStream(instream);

	}

void CVersitTest::StreamOutL()

	{

	}

void CVersitTest::SaveFileVersitL()

// Save iParser into VersitFile	

	{

	if (iParser)

		{

		User::LeaveIfError(CntTest->Fs().Connect());

		RFile file;

		if (file.Replace(CntTest->Fs(),_L("C:\\VersitFile"),EFileWrite)==KErrNone)

			iParser->ExternalizeL(file);

		}

	}

//

// CVCardTest

//

void CVCardTest::LoadFileVersitL()

// Read VCard.vcf into iVersit	

	{

	iParser=CParserVCard::NewL();

	User::LeaveIfError(CntTest->Fs().Connect());

	RFile file;

	if (file.Open(CntTest->Fs(),_L("C:\\VCard.vcf"),EFileRead)==KErrNone)

		{		

		TInt start=0;

		iParser->InternalizeL(file,start);

		}

	}

LOCAL_C void DisplayField(TInt aFieldNumber, const CContentType &aContentType, const TDesC &aDes)

	{

	TBuf<128> out;

	out.Format(_L("Field %d mapped to %x {"),aFieldNumber,aContentType.Mapping());

	for(TInt loop=0;loop<aContentType.FieldTypeCount();loop++)

		{

		if (loop>0)

			out.Append(TChar(','));

		out.AppendFormat(_L("%x"),aContentType.FieldType(loop));

		}

	out.AppendFormat(_L("} is %S store type"),&aDes);

	test.Printf(out);

	}

LOCAL_C void DisplayDatabase()

	{

	TContactItemId theid;

	CContactItem* contactItem=NULL;

	TContactIter iter(*CntTest->Db());

	theid=iter.FirstL();

	while(theid!=KNullContactId )

		{

		test.Printf(_L("\n========================ROW ID %d"),theid);

		contactItem=CntTest->Db()->ReadContactLC(theid);

		CContactItemFieldSet& fieldSet=contactItem->CardFields();

		TInt fieldcount=fieldSet.Count();

		test.Printf(_L(" %d fields"),fieldcount);

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

			{

	 		const CContentType &content=fieldSet[ii].ContentType();

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

			test.Printf(fieldSet[ii].Label());

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

			switch(fieldSet[ii].StorageType())

				{

			case KStorageTypeText: 

				{

				DisplayField(ii, content, _L("Text"));

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

				TPtrC fieldText=fieldSet[ii].TextStorage()->Text();

//				test.Printf(fieldText);

				test.Printf(_L("\tLength = %d"),fieldText.Length());

				}

				break;

			case KStorageTypeStore:

				DisplayField(ii, content, _L("Store"));

				break;

			case KStorageTypeDateTime:

				DisplayField(ii, content, _L("DateTime"));

				break;

			case KStorageTypeContactItemId:

				DisplayField(ii, content, _L("ContactItemId"));

				break;

			default:

				DisplayField(ii, content, _L("unknown"));

				break;

				}

//			test.Getch();

			}

	 	theid=iter.NextL();

		CleanupStack::PopAndDestroy(); // contactItem

		}

	test.Printf(_L("\nEnd of the database\n"));

	}

LOCAL_C void AddLocalLabels()

	{

	TContactItemId theid;

	TContactIter iter(*CntTest->Db());

	theid=iter.FirstL();

	while(theid!=KNullContactId )

		{

		CContactItem* contactItem=CntTest->Db()->OpenContactL(theid);

		CleanupStack::PushL(contactItem);

		CContactItemFieldSet& fieldSet=contactItem->CardFields();

		TInt fieldcount=fieldSet.Count();

		for (TInt ii=0;ii<fieldcount;ii=ii+2)

			{

	 		TPtrC labelName(_L("aTestLabelName"));

			fieldSet[ii].SetLabelL(labelName);

			}

	 	theid=iter.NextL();

		CntTest->Db()->CommitContactL(*contactItem);

		CleanupStack::PopAndDestroy();	// contactitem

		}				

	}

LOCAL_C void DecAccessCount()

	{

	TContactItemId theid;

	TContactIter iter(*CntTest->Db());

	theid=iter.FirstL();

	while(theid!=KNullContactId )

		{

		CContactItem* contactItem=CntTest->Db()->OpenContactL(theid);

		CleanupStack::PushL(contactItem);

		contactItem->DecAccessCount();

		CntTest->Db()->CommitContactL(*contactItem);

		theid=iter.NextL();

		CleanupStack::PopAndDestroy();	// contactitem

		}				

	}

/*

LOCAL_C void RemoveBlankFields(CContactItem &aItem)

	{

	CContactItemFieldSet& fieldSet=aItem.CardFields();

	for(TInt loop1=0;loop1<fieldSet.Count();)

		{

		if (fieldSet[loop1].Storage()->IsFull())

			loop1++;

		else

			fieldSet.Remove(loop1);

		}

	}

LOCAL_C void TestExportCard(CContactItem &aItem, const CContactItem &aOriginal)

	{

	CContactItemFieldSet& fieldSet=aItem.CardFields();

	CContactCard *origCopy=CContactCard::NewLC(&aOriginal);

//

	RemoveBlankFields(*origCopy);

	RemoveBlankFields(aItem);

	CContactItemFieldSet& origFieldSet=origCopy->CardFields();

//

	test(fieldSet.Count()==origFieldSet.Count());

	for(TInt loop=0;loop<fieldSet.Count();loop++)

		{

		CContactItemField& field=fieldSet[loop];

		CContactItemField& origField=origFieldSet[loop];

		switch(field.StorageType())

			{

			case KStorageTypeText:

				{

				TPtrC fieldTxt(field.TextStorage()->Text());

				TPtrC origFieldTxt(origField.TextStorage()->Text());

				test(fieldTxt==origFieldTxt);

				}

				break;

			case KStorageTypeDateTime:

				{

				const TDateTime dt1(field.DateTimeStorage()->Time().DateTime());

				const TDateTime dt2(origField.DateTimeStorage()->Time().DateTime());

				test(dt1.Year()==dt2.Year());

				test(dt1.Month()==dt2.Month());

				test(dt1.Day()==dt2.Day());

				}				

				break;

			case KStorageTypeStore:

			case KStorageTypeContactItemId:

				break;

			}

		CntTest->CompareFields(field,origField);

		}

	CleanupStack::PopAndDestroy();	// origCopy

	}

LOCAL_C void SetTestField(CContactItemFieldSet &aFieldSet,TInt aIndex, TBool aIsModifiedVersion)

	{

	CContactItemField& field=aFieldSet[aIndex];

	switch(field.StorageType())

		{

		case KStorageTypeText:

			{

			TBuf<16> buf;

			if (aIsModifiedVersion)

				buf.Format(_L("TxtMod[%d]"),aIndex);

			else

				buf.Format(_L("Txt[%d]"),aIndex);

			field.TextStorage()->SetTextL(buf);

			}

			break;

		case KStorageTypeDateTime:

			if (aIsModifiedVersion)

				field.DateTimeStorage()->SetTime(TTime(aIndex*1000000));

			else

				field.DateTimeStorage()->SetTime(TTime(aIndex*2000000));

			break;

		case KStorageTypeStore:

		case KStorageTypeContactItemId:

			break;

		}

	}

LOCAL_C void DuplicateTestField(CContactItemFieldSet &aFieldSet,TInt aIndex)

	{

	CContactItemField *field=CContactItemField::NewLC(aFieldSet[aIndex]);

	aFieldSet.InsertL(aIndex+1,*field);

	CleanupStack::Pop();	// field

	}

LOCAL_C void SetTestFields(CContactItem &aContact, TInt aTestNum, TUint aTestFlags, TBool aIsModifiedVersion)

	{

	if (aTestFlags&EImpExpTestMultipleEntries)

		{

		for(TInt loop=aTestNum;loop<aContact.CardFields().Count();loop+=(aTestNum+1))

			SetTestField(aContact.CardFields(),loop,aIsModifiedVersion);

		}

	else

		SetTestField(aContact.CardFields(),aTestNum,aIsModifiedVersion);

	}

LOCAL_C CContactItem* ReadContactIncHiddenFieldsLC(CContactDatabase* aDb, TContactItemId aContactId)

	{

	CContactItemViewDef *viewDef=CContactItemViewDef::NewLC(CContactItemViewDef::EMaskFields,CContactItemViewDef::EIncludeHiddenFields);

	CContactItem *contact=aDb->ReadContactL(aContactId,*viewDef);

	CleanupStack::PopAndDestroy();	// viewDef

	CleanupStack::PushL(contact);

	return(contact);

	}

LOCAL_C void doTestExportImportContactL(CContactItem *aTemplateItem, TInt aTestNum, TUint aTestFlags)

	{

	CContactItem *originalContact=CContactCard::NewLC(aTemplateItem);

	SetTestFields(*originalContact,aTestNum,aTestFlags,EFalse);

	TContactItemId addId=CntTest->Db()->AddNewContactL(*originalContact);

	CContactIdArray *ids=CContactIdArray::NewLC();

	ids->AddL(addId);

	const TInt KMaxFormats=8;

	for(TInt format=0;format<KMaxFormats;format++)

		{

		TUint formatFlags=0;

		if (format&0x1)

			formatFlags|=CContactDatabase::EIncludeX;

		if (format&0x2)

			formatFlags|=CContactDatabase::ETTFormat;

		if (format&0x4)

			{

			if (aTestFlags&EImpExpTestModifyEntries)

				continue;

			formatFlags|=CContactDatabase::EExcludeUid;

			}

		else if (!(formatFlags&CContactDatabase::ETTFormat))

			continue;

		CVCardTestStore* store=CntTest->ExportContactsLC(ids,formatFlags);

//

		if (aTestFlags&EImpExpTestModifyEntries)

			{

			CContactItem* modifyItem=CntTest->Db()->OpenContactLX(originalContact->Id());

			CleanupStack::PushL(modifyItem);

			SetTestFields(*modifyItem,aTestNum,aTestFlags,ETrue);

			CntTest->Db()->CommitContactL(*modifyItem);

			CleanupStack::PopAndDestroy(2);	// modifyItem,modifyItem->Close()

			}

		if (aTestFlags&EImpExpTestExportExtraEntry)

			{

			CContactItem* modifyItem=CntTest->Db()->OpenContactLX(originalContact->Id());

			CleanupStack::PushL(modifyItem);

			SetTestFields(*modifyItem,(aTestNum+5)%10,0,EFalse);

			SetTestFields(*modifyItem,(aTestNum+1)%10,0,EFalse);

			CntTest->Db()->CommitContactL(*modifyItem);

			CleanupStack::PopAndDestroy(2);	// modifyItem,modifyItem->Close()

			}

//

		CArrayPtr<CContactItem>* items=CntTest->ImportContactsLC(store,formatFlags);

		test(items->Count()==1);

		if (!(formatFlags&CContactDatabase::EExcludeUid))

			TestExportCard(*(*items)[0],*originalContact);

		TContactItemId addedId=(*items)[0]->Id();

		CleanupStack::PopAndDestroy();	// items->ResetAndDestroy()

		CContactItem *reloadedItem=ReadContactIncHiddenFieldsLC(CntTest->Db(),addedId);

		TestExportCard(*reloadedItem,*originalContact);

		CleanupStack::PopAndDestroy();	// reloadedItem

		CleanupStack::PopAndDestroy();	// store

		}

	CleanupStack::PopAndDestroy();	// ids

	CleanupStack::PopAndDestroy();	// originalContact

//

	CContactIdArray *deleteIds=CContactIdArray::NewLC(CntTest->Db()->SortedItemsL());

	CntTest->Db()->DeleteContactsL(*deleteIds);

	CleanupStack::PopAndDestroy();	// deleteIds

//

	if (CntTest->Db()->CompressRequired())

		CntTest->Db()->CompressL();

	test.Printf(_L("."));	// Just to show some life

	}

*/

/**

LOCAL_C void TestExportImportContactL()

	{

	test.Next(_L("Export/Import test"));

	CContactDatabase *db=CntTest->CreateDatabaseL();

	CContactItem *templateItem=ReadContactIncHiddenFieldsLC(db,db->TemplateId());

	TInt templateFieldCount=templateItem->CardFields().Count();

//	Create an contact with all template entries doubled up

	CContactItem *templateItem2=ReadContactIncHiddenFieldsLC(db,db->TemplateId());

const TInt KNonDuplicateFields=5;	// Names can not be duplicated

	for(TInt dblLoop=KNonDuplicateFields;dblLoop<templateFieldCount;dblLoop++)

		DuplicateTestField(templateItem2->CardFields(),dblLoop*2-KNonDuplicateFields);

//	Create an contact with just the fourth template entry doubled up

	CContactItem *templateItem3=ReadContactIncHiddenFieldsLC(db,db->TemplateId());

	DuplicateTestField(templateItem3->CardFields(),7);

// Test all the fields 1 at a time

	for(TInt loop1=0;loop1<templateFieldCount;loop1++)

		{

		doTestExportImportContactL(templateItem,loop1,0);

		doTestExportImportContactL(templateItem2,loop1,0);

		doTestExportImportContactL(templateItem3,loop1,0);

//		doTestExportImportContactL(templateItem,loop1,EImpExpTestExportExtraEntry);

//		doTestExportImportContactL(templateItem,loop1,EImpExpTestModifyEntries);

//		doTestExportImportContactL(templateItem2,loop1,EImpExpTestModifyEntries);

//		doTestExportImportContactL(templateItem3,loop1,EImpExpTestModifyEntries);

		}

// Test various combinations of fields being set

// (Mode 0 will test a card with all fields set)

	doTestExportImportContactL(templateItem2,0,EImpExpTestMultipleEntries|EImpExpTestModifyEntries);

	for(TInt testNum=0;testNum<templateFieldCount;testNum++)

		{

		doTestExportImportContactL(templateItem,testNum,EImpExpTestMultipleEntries);

		doTestExportImportContactL(templateItem2,testNum,EImpExpTestMultipleEntries);

		doTestExportImportContactL(templateItem3,testNum,EImpExpTestMultipleEntries);

		doTestExportImportContactL(templateItem,testNum,EImpExpTestMultipleEntries|EImpExpTestModifyEntries);

//		doTestExportImportContactL(templateItem2,testNum,EImpExpTestMultipleEntries|EImpExpTestModifyEntries);

//		doTestExportImportContactL(templateItem3,testNum,EImpExpTestMultipleEntries|EImpExpTestModifyEntries);

//		doTestExportImportContactL(templateItem,testNum,EImpExpTestMultipleEntries|EImpExpTestExportExtraEntry);

		}

//

	CleanupStack::PopAndDestroy(3);	// templateItem,templateItem2,templateItem3

	CntTest->CloseDatabase();

	}

*/

// modified since vCards which don't exist in the database are now added rather than leaving

// this is necessary so that vcards of contacts with deleted uids are added.

LOCAL_C void SynchWithNonExistentRecordL()

	{

	CntTest->CreateDatabaseL();

	TContactItemId addId1=AddContactL(CntTest->Db(),KUidContactFieldFamilyName,KUidContactFieldVCardMapUnusedN,_L("Add1"));

//

	CVCardTestStore* store=CntTest->ExportContactLC(addId1,CContactDatabase::ETTFormat);

	CntTest->DeleteContact(addId1);

	CArrayPtr<CContactItem>* items=NULL;

	TRAPD(err,	items=CntTest->ImportContactsL(store,CContactDatabase::ETTFormat));

	test(err==KErrNone);

	items->ResetAndDestroy();

	delete items;

//

	CleanupStack::PopAndDestroy();	// store

	CntTest->CloseDatabase();

	}

/*

LOCAL_C void MergeBlankVCardL(TContactItemId aId)

	{

	CVCardTest *vtest=new(ELeave) CVCardTest;

	CleanupStack::PushL(vtest);

	RReadStream stream;

	vtest->StreamLCC(stream,2,aId);

	stream.PushL();

	TBool success;

	CArrayPtr<CContactItem>* items=CntTest->Db()->ImportContactsL(TUid::Uid(KUidVCardConvDefaultImpl),stream,success,0);

	CleanupStack::PushL(TCleanupItem(CleanUpResetAndDestroy,items));

	test(success);

	CleanupStack::PopAndDestroy(4);	// stream,store,vtest,items

	}

*/

// This test doesn't do anything useful anymore - since vCalendar import to 

// change deleted contacts creates new contacts rather than updating them.

//

#if defined(_DEBUG)

LOCAL_C void BlankImportL()

	{

	CntTest->CreateDatabaseL();

	CntTest->Db()->OverrideMachineUniqueId(0); //testcode assumes that HAL would return 0 

	TContactItemId addId1=AddContactL(CntTest->Db(),KUidContactFieldFamilyName,KUidContactFieldVCardMapUnusedN,_L("Add1"));

	TContactItemId addId2=AddContactL(CntTest->Db(),KUidContactFieldFamilyName,KUidContactFieldVCardMapUnusedN,_L("Add2"));

	CntTest->AdjustContactAccessCountL(addId1,1);

	CntTest->AdjustContactAccessCountL(addId2,1);