// Copyright (c) 1999-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:

// Versit tests

// 

//

// System includes

#include <bautils.h>

#include <e32test.h>

#include <s32file.h>

#include <e32math.h>

#include <versit.h>

#include <vprop.h>

#include <vuid.h>

#include <vcard.h>

#include <vcal.h>

// User includes

#include "thelpers.h"

//

// STRUCTS

//

struct TPropertyDef

	{

	HBufC8*				iPropertyName;

	TInt				iNumberOfValuesExpected;		// only used by array items

	TUint32				iType;

	};

struct TPropertyParameterDef

	{

	HBufC8*				iParameterName;

	HBufC8*				iParameterValue;

	};

//

// GLOBAL DATA

//

LOCAL_D RTest									gTest(_L("TVERSIT2"));

LOCAL_D CTrapCleanup*							gCleanup;

LOCAL_D RFs										gFsSession;

LOCAL_D CArrayFixFlat<TPropertyParameterDef>*	gParameterDefinitions;

LOCAL_D CArrayFixFlat<TPropertyDef>*			gPropertyDefinitions;

LOCAL_D CArrayFixFlat<TDateTime>*				gDateTimeArray;

LOCAL_D CDesCArrayFlat*							gTextArray;

LOCAL_D TInt64									gSeed;

//

// vCard files & directories needed for this test code

//

// Source vCards that are randomly generated by this code - they are written in this directory

// for reference (this is the output exactly as it was generated)

_LIT(KDirRandomlyGeneratedOut,			"C:\\vCards\\RandomlyGenerated\\Original\\");

// This is the the vCard ouput that has been read in from the directory above and then

// written back out to file without any modifications. They should theoretically be identical

// (except any CHARSET parameters are removed, as this means that the original and newly created

// vCard may potentially be encoded in different ways making comparison difficult).

_LIT(KDirRandomlyGeneratedIn,			"C:\\vCards\\RandomlyGenerated\\ReadInAndThenWrittenOut\\");

// This is the name of the vCard generated to be unique in the directory.

_LIT(KNameGeneratedVCardName,			"vCard_for_test_%d");

_LIT(KNameGeneratedVCardExtension,		".vcf");

_LIT(KNameDeleteFileSpec,				"*.vcf");

// This is the name of the log file generated for errors 

_LIT(KNameErrorLogfile,"c:\\tvgen.log");

//

// Other contants

//

_LIT(KFailureDescription,		"Failed on %S tag\n");

_LIT(KTestIndicator,			"Test [%d] about to commence\n");

_LIT(KTestIndicatorSeparator,	"=================================\n\n");

const TInt KMinNumberOfTestsToPerform = 100;

const TInt KMaxNumberOfTestsToPerform = 100;

//****************************************************************************************

LOCAL_C void CreateArraysL()

	{

	gParameterDefinitions	= new(ELeave) CArrayFixFlat<TPropertyParameterDef>(10);

	gPropertyDefinitions	= new(ELeave) CArrayFixFlat<TPropertyDef>(10);

	gTextArray				= new(ELeave) CDesCArrayFlat(10);

	gDateTimeArray			= new(ELeave) CArrayFixFlat<TDateTime>(10);

	}

//****************************************************************************************

LOCAL_C void DestroyArraysL()

	{

	TInt count = gParameterDefinitions->Count();

	for(TInt i=0; i<count; i++)

		{

		TPropertyParameterDef& def = gParameterDefinitions->At(i);

		delete def.iParameterName;	def.iParameterName = NULL;

		delete def.iParameterValue;	def.iParameterValue= NULL;

		}

	count = gPropertyDefinitions->Count();

	for(TInt j=0; j<count; j++)

		{

		TPropertyDef& def = gPropertyDefinitions->At(j);

		delete def.iPropertyName;	def.iPropertyName = NULL;

		}

	delete gPropertyDefinitions;

	delete gParameterDefinitions;

	delete gTextArray;

	delete gDateTimeArray;

	}

//****************************************************************************************

LOCAL_C void CreatePropertyParamL(const TDesC8& aParamName, const TDesC8& aParamValue)

	{

	TInt amountToPop = 1;

	TPropertyParameterDef def;

	def.iParameterName			= aParamName.AllocL();

	CleanupStack::PushL(def.iParameterName);

	if	(aParamValue.Length())

		{

		def.iParameterValue		= aParamValue.AllocL();

		CleanupStack::PushL(def.iParameterValue);

		amountToPop = 2;

		}

	else

		def.iParameterValue = NULL;

	gParameterDefinitions->AppendL(def);

	CleanupStack::Pop(amountToPop);

	}

//****************************************************************************************

LOCAL_C void CreatePropertyDefinitionL(const TDesC8& aName, TUint32 aExpectedType, TInt aValueCount)

	{

	TPropertyDef def;

	def.iNumberOfValuesExpected	= aValueCount;

	def.iType					= aExpectedType;

	def.iPropertyName			= aName.AllocL();

	CleanupStack::PushL(def.iPropertyName);

	gPropertyDefinitions->AppendL(def);

	CleanupStack::Pop();

	}

//****************************************************************************************

LOCAL_C TBool CheckWhetherPropertyAlreadyExistsL(CVersitParser* aParser, const TDesC8& aPropertyName)

	{

	CArrayPtr<CParserProperty>* propertyArray = aParser->ArrayOfProperties(EFalse); // don't take ownership

	if	(!propertyArray)

		return EFalse;

	const TInt count = propertyArray->Count();

	for(TInt i=0; i<count; i++)

		{

		if	(propertyArray->At(i)->Name() == aPropertyName)

			return ETrue;

		}

	return EFalse;

	}

//****************************************************************************************

LOCAL_C void CreatePropertyValuesL()

	{

	// Simple text items

	gTextArray->AppendL(_L("symbian.foundation@exp.example.test"));

	gTextArray->AppendL(_L("me@here.com"));

	gTextArray->AppendL(_L("this@there.com"));

	gTextArray->AppendL(_L("1 Example Road Example Town ZZ99 EXP"));

	gTextArray->AppendL(_L("Somewhere Road Example Town ZZ99 EXP"));

	gTextArray->AppendL(_L("wibble"));

	gTextArray->AppendL(_L("@@me@@here@@.com"));

	gTextArray->AppendL(_L("01632 575 24211 10"));

	gTextArray->AppendL(_L("5757847=====d98==y"));

	gTextArray->AppendL(_L("@@me@@here@@.com"));

	gTextArray->AppendL(_L("01632 575==24211"));

	gTextArray->AppendL(_L("557895789æ?øö!¦µØ"));

	gTextArray->AppendL(_L("item1"));

	gTextArray->AppendL(_L("item2"));

	gTextArray->AppendL(_L("item3"));

	gTextArray->AppendL(_L("item4"));

	gTextArray->AppendL(_L("item5"));

	gTextArray->AppendL(_L("Some house"));

	gTextArray->AppendL(_L("called some name"));

	gTextArray->AppendL(_L("at some address"));

	gTextArray->AppendL(_L("in this place"));

	gTextArray->AppendL(_L("UK"));

	gTextArray->AppendL(_L("testing multi"));

	gTextArray->AppendL(_L("lines of text"));

	gTextArray->AppendL(_L("addresses"));

	gTextArray->AppendL(_L("with post;code"));

	gTextArray->AppendL(_L("Firstname"));

	gTextArray->AppendL(_L("Lastname"));

	gTextArray->AppendL(_L("namefirst"));

	gTextArray->AppendL(_L("namelast"));

	gTextArray->AppendL(_L("246256265"));

	gTextArray->AppendL(_L("/3/3/3/3"));

	gTextArray->AppendL(_L("+=+=+==="));

	gTextArray->AppendL(_L("+1+1=244=]1/2234"));

	// Date items

	TDateTime time(1999, EOctober, 15, 12, 53, 0, 0);

	gDateTimeArray->AppendL(time);

	time.SetYear(2000); time.SetMonth(EJanuary); time.SetDay(2);

	gDateTimeArray->AppendL(time);

	time.SetYear(1); time.SetMonth(EAugust); time.SetDay(10);

	gDateTimeArray->AppendL(time);

	time.SetYear(9999); time.SetMonth(EDecember); time.SetDay(20);

	gDateTimeArray->AppendL(time);

	// Date Time

	TDateTime time2(1999, EOctober, 15, 12, 53, 0, 0);

	gDateTimeArray->AppendL(time2);

	time2.SetYear(2000); time2.SetHour(18); time2.SetMonth(EJanuary);

	gDateTimeArray->AppendL(time2);

	time2.SetYear(1); time2.SetHour(0); time2.SetMonth(EJanuary); time2.SetMinute(1);

	gDateTimeArray->AppendL(time2);

	time2.SetYear(9999); time2.SetHour(23); time2.SetMinute(59); time2.SetSecond(59);

	gDateTimeArray->AppendL(time2);

	}

//****************************************************************************************

LOCAL_C void CreatePropertyParametersL()

	{

	// Misc params

	CreatePropertyParamL(_L8("WORK"), _L8(""));

	CreatePropertyParamL(_L8("HOME"), _L8(""));

	CreatePropertyParamL(_L8("INTERNET"), _L8(""));

	CreatePropertyParamL(_L8("DEFAULT"), _L8(""));

	CreatePropertyParamL(_L8("FAX"), _L8(""));

	CreatePropertyParamL(_L8("CELL"), _L8(""));

	CreatePropertyParamL(_L8("VOICE"), _L8(""));

	CreatePropertyParamL(_L8("MOBILE"), _L8(""));

	CreatePropertyParamL(_L8("PARCEL"), _L8(""));

	CreatePropertyParamL(_L8("AVI"), _L8(""));

	CreatePropertyParamL(_L8("MPEG"), _L8(""));

	CreatePropertyParamL(_L8("GIF"), _L8(""));

	/*

	CreatePropertyParamL(_L("ENCODING"), _L("8-BIT"));

	CreatePropertyParamL(_L("ENCODING"), _L("BASE64"));

	CreatePropertyParamL(_L("ENCODING"), _L("QUOTED-PRINTABLE"));

	CreatePropertyParamL(_L("CHARSET"), _L("UTF-8"));

	CreatePropertyParamL(_L("CHARSET"), _L("UTF-7"));

	CreatePropertyParamL(_L("CHARSET"), _L("ISO-8859-1"));

	CreatePropertyParamL(_L("CHARSET"), _L("ISO-8859-2"));

	CreatePropertyParamL(_L("CHARSET"), _L("ISO-8859-5"));

	CreatePropertyParamL(_L("CHARSET"), _L("ISO-8859-9"));

	*/

	CreatePropertyParamL(_L8("CHARSET"), _L8("ASCII"));

	CreatePropertyParamL(_L8("LANGUAGE"), _L8("en"));

	CreatePropertyParamL(_L8("LANGUAGE"), _L8("fr-CA"));

	// Epoc extended labels

	CreatePropertyParamL(_L8("X-EPOCCNTMODELFIELDLABEL"), _L8("Misc"));

	CreatePropertyParamL(_L8("X-EPOCCNTMODELFIELDLABEL"), _L8("Wibble"));

	CreatePropertyParamL(_L8("X-EPOCCNTMODELFIELDLABEL"), _L8("Wobble"));

	CreatePropertyParamL(_L8("X-EPOCCNTMODELFIELDLABEL"), _L8("This"));

	CreatePropertyParamL(_L8("X-EPOCCNTMODELFIELDLABEL"), _L8("That"));

	CreatePropertyParamL(_L8("X-EPOCCNTMODELFIELDLABEL"), _L8("Work address"));

	CreatePropertyParamL(_L8("X-EPOCCNTMODELFIELDLABEL"), _L8("Home address"));

	CreatePropertyParamL(_L8("X-EPOCCNTMODELFIELDLABEL"), _L8("Moble phone"));

	CreatePropertyParamL(_L8("X-EPOCCNTMODELFIELDLABEL"), _L8("Epoc"));

	CreatePropertyParamL(_L8("X-EPOCCNTMODELFIELDLABEL"), _L8("Symbian"));

	CreatePropertyParamL(_L8("X-EPOCCNTMODELFIELDLABEL"), _L8("Psion"));

	CreatePropertyParamL(_L8("X-EPOCCNTMODELFIELDLABEL"), _L8("Palm"));

	CreatePropertyParamL(_L8("X-EPOCCNTMODELFIELDLABEL"), _L8("App Engines"));

	}

//****************************************************************************************

LOCAL_C void CreatePropertyDefinitionsL()

	{	

	CreatePropertyDefinitionL(_L8("FN"),			KVersitPropertyHBufCUid,		1);

	CreatePropertyDefinitionL(_L8("N"),			KVersitPropertyCDesCArrayUid,	2);

	CreatePropertyDefinitionL(_L8("ADR"),		KVersitPropertyCDesCArrayUid,	5);

	CreatePropertyDefinitionL(_L8("TITLE"),		KVersitPropertyHBufCUid,		1);

	CreatePropertyDefinitionL(_L8("TEL"),		KVersitPropertyHBufCUid,		1);

	CreatePropertyDefinitionL(_L8("EMAIL"),		KVersitPropertyHBufCUid,		1);

	CreatePropertyDefinitionL(_L8("ROLE"),		KVersitPropertyHBufCUid,		1);

	CreatePropertyDefinitionL(_L8("LABEL"),		KVersitPropertyHBufCUid,		1);

	CreatePropertyDefinitionL(_L8("URL"),		KVersitPropertyHBufCUid,		1);

	CreatePropertyDefinitionL(_L8("ORG"),		KVersitPropertyCDesCArrayUid,	1);

	CreatePropertyDefinitionL(_L8("BDAY"),		KVersitPropertyDateUid,			1);

	CreatePropertyDefinitionL(_L8("NOTE"),		KVersitPropertyHBufCUid,		1);

	CreatePropertyDefinitionL(_L8("VERSION"),	KVersitPropertyHBufCUid,		1);

	CreatePropertyDefinitionL(_L8("REV"),		KVersitPropertyDateTimeUid,		1);

	}

//****************************************************************************************

LOCAL_C void CreateUserDefinedPropertyDefinitionsL()

	{	

	CreatePropertyDefinitionL(_L8("X-WVID"),			KVersitPropertyHBufCUid,		1);

	CreatePropertyDefinitionL(_L8("X-MYPROP"),			KVersitPropertyHBufCUid,		1);	

	}

//****************************************************************************************

LOCAL_C CParserPropertyValue* GetRandomPropertyValueL(TUint32 aType, TInt aNumberOfValues /*for array parameters*/)

	{

	TInt randomIndex = KErrNotFound;

	switch (aType)

		{

		case KVersitPropertyHBufCUid:

			{

			randomIndex = VTestHelpers::MakeRandomNumber(0, gTextArray->Count()-1, gSeed);

			return VTestHelpers::CreateTextPropertyValueL((*gTextArray)[randomIndex]);

			}

		case KVersitPropertyDateTimeUid:

			{

			randomIndex = VTestHelpers::MakeRandomNumber(0, gDateTimeArray->Count()-1, gSeed);

			return VTestHelpers::CreateDateTimePropertyValueL((*gDateTimeArray)[randomIndex]);

			}

		case KVersitPropertyDateUid:

			{

			randomIndex = VTestHelpers::MakeRandomNumber(0, gDateTimeArray->Count()-1, gSeed);

			return VTestHelpers::CreateDatePropertyValueL((*gDateTimeArray)[randomIndex]);

			}

		case KVersitPropertyCDesCArrayUid:

			{

			CDesCArray* array = NULL;

			if (aNumberOfValues>0)

				array = new(ELeave) CDesCArrayFlat(5);

			TInt length=0;

			TBool addSpace;

			for(TInt i=0; i<aNumberOfValues; i++)

				{

				randomIndex = VTestHelpers::MakeRandomNumber(0, gTextArray->Count()-1, gSeed);

				length+=(*gTextArray)[randomIndex].Length();

				addSpace=(length>15);

				if (addSpace)

					length=0;

				VTestHelpers::CreateDescriptorArrayL((*gTextArray)[randomIndex], array, addSpace);

				}

			CParserPropertyValueCDesCArray* propertyValue = VTestHelpers::CreateArrayPropertyValueL(array);

			return propertyValue;

			}

		default:

			User::Panic(_L("TVGen"), 0);

			return NULL; // never reached

		}

	}

//****************************************************************************************

LOCAL_C CVersitParser* CreateVCardObjectLC()

	{

	// Crete vCard object

	CVersitParser* parser = CParserVCard::NewL();

	CleanupStack::PushL(parser);

	const TInt KRandomNumberOfProperties = VTestHelpers::MakeRandomNumber(4, gPropertyDefinitions->Count()-1, gSeed);

	const TInt maxLineLength=KMaxExternalizedTokenLength/3+1;

	const TInt maxLineLength2=KMaxExternalizedTokenLength/2;

	TInt lineLength=0;		//To stop a warning

	for(TInt i=0; i<KRandomNumberOfProperties; i++)

		{

		// First of all pick a random property name from the property name array...

		TInt randomNameIndex = -1;

		TBool propertyIsValid = EFalse;

		for(TInt j=0; j<gPropertyDefinitions->Count(); j++)

			{

			randomNameIndex = VTestHelpers::MakeRandomNumber(0, gPropertyDefinitions->Count()-1, gSeed); 

			TPtrC8 name(*gPropertyDefinitions->At(randomNameIndex).iPropertyName);

			if	(!CheckWhetherPropertyAlreadyExistsL(parser, name))

				{

				propertyIsValid = ETrue;

				lineLength=name.Length()+1;

				break;

				}

			}

		if	(!propertyIsValid)

			return parser; // no more unique properties to be added

		// We've now established that "name" is unique in the current list of properties, so the 

		// next step is to populate this property with random parameter data...

		TInt randomNumberOfParametersToAdd = VTestHelpers::MakeRandomNumber(0, gParameterDefinitions->Count()-1, gSeed);

		CArrayPtr<CParserParam>* arrayOfParams = NULL;

		if	(randomNumberOfParametersToAdd)

			{

			arrayOfParams = new(ELeave) CArrayPtrFlat<CParserParam>(randomNumberOfParametersToAdd);

			CleanupStack::PushL(arrayOfParams);

			}

		TInt oldLineLength;

		for(TInt k=0; k<randomNumberOfParametersToAdd && lineLength<maxLineLength; k++)

			{

			// Get a random property

			TPropertyParameterDef def = gParameterDefinitions->At(VTestHelpers::MakeRandomNumber(0, gParameterDefinitions->Count()-1, gSeed));

			// Check whether this property has already been added

			if	(VTestHelpers::DoesParameterAlreadyExist(arrayOfParams, *def.iParameterName))

				continue; // get another param as this one is already been added to the array

			//CParserParam* param = CParserParam::NewL(*def.iParameterName,def.iParameterValue);

			TPtr8 value(NULL,0);

			oldLineLength=lineLength;

			lineLength+=def.iParameterName->Length()+1;

			if (def.iParameterValue)

				{

				value.Set(def.iParameterValue->Des());

				lineLength+=def.iParameterValue->Length()+1;

				}

			if (lineLength>maxLineLength2)

				{

				lineLength=oldLineLength;

				continue;

				}

			CParserParam* param = CParserParam::NewL(*def.iParameterName,value);

			CleanupStack::PushL(param);

			arrayOfParams->AppendL(param);

			CleanupStack::Pop();

			}

		// Now generate a suitable property name & value pair for this property

		TPropertyDef def			= gPropertyDefinitions->At(randomNameIndex);

		CParserPropertyValue* value	= GetRandomPropertyValueL(def.iType, def.iNumberOfValuesExpected);

		CParserProperty* property	= CParserProperty::NewL(*value, *def.iPropertyName, arrayOfParams);

		parser->AddPropertyL(property); // will push on the cleanupstack and then pop off if no problem... odd, but thats the way it was written!

		if	(randomNumberOfParametersToAdd)

			CleanupStack::Pop(); // arrayOfParams

		}

	return parser;

	}

void DoWriteVCardToFileL(CVersitParser* aParserObject, const TDesC& aFileName)

	{

	RFile outputFile;

	User::LeaveIfError(outputFile.Replace(gFsSession, aFileName, EFileShareExclusive | EFileStream | EFileWrite));

	aParserObject->ExternalizeL(outputFile);

	outputFile.Close();

	}

void WriteVCardToFile(CVersitParser* aParserObject, TInt aTestNumber, TDes& aFileName)

	{

	const TUint KAppendChar = '_';

	// Generate the first bit of a unique filename

	TInt repetitions = 0;

	TFileName out;

	do

		{

		aFileName.Format(KNameGeneratedVCardName, aTestNumber);

		aFileName.AppendFill(KAppendChar, repetitions++);

		aFileName += KNameGeneratedVCardExtension;

		out += KDirRandomlyGeneratedOut;

		out += aFileName;

		} while(BaflUtils::FileExists(gFsSession, out));

	DoWriteVCardToFileL(aParserObject, out);

	// At this point we need to remove all ocurrances of the CHARSET tag as this messes

	// up the comparison when the text is written to file and then streamed in again later.

	CArrayPtr<CParserProperty>* properties = aParserObject->ArrayOfProperties(EFalse);

	TInt propCount = properties->Count();

	for(TInt i=0; i<propCount; i++)

		{

		STATIC_CAST(CParserPropertyWithoutCharsetTags*, properties->At(i))->RemoveAllCharsetTagsFromParametersL();

		}

	DoWriteVCardToFileL(aParserObject, _L("C:\\Test.vcf"));

	}

CVersitParser* ReadVCardFromFileLC(const TDesC& aFileName)

	{

	// Read in the written out file and then write it out straight away so that a comparison

	// may be made manually if required.

	// Then read in the 

	TFileName file(KDirRandomlyGeneratedOut);

	file += aFileName;

	TInt bytesThroughFile = 0;

	RFile inputFile;

	User::LeaveIfError(inputFile.Open(gFsSession, file, EFileShareReadersOnly | EFileStream | EFileRead));

	CVersitParser* readParser = CParserVCard::NewL();

	CleanupStack::PushL(readParser);

	readParser->InternalizeL(inputFile, bytesThroughFile);

	inputFile.Close();

	file  = KDirRandomlyGeneratedIn;

	file += aFileName;

	DoWriteVCardToFileL(readParser, file);

	return readParser;

	}

TBool CreateVCardL(TInt aTestNumber, TFileText& aLogFile)

	{