// Copyright (c) 2005-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 "tcal_BadRRule.h"

_LIT(KTestName,"tcal_BadRRule");

_LIT8(KGUID, "A_Global_UID");

_LIT8(KGUID1, "A_TODO_ENTRY");

static RTest test(KTestName);

static void CleanupCCalEntryArray(TAny* aPointer)

	{

	RPointerArray<CCalEntry>* calEntryArray = static_cast<RPointerArray<CCalEntry>*>(aPointer); 

	if (calEntryArray)

		{

		calEntryArray->ResetAndDestroy();

		}

	}

CBadRRule* CBadRRule::NewL(CCalTestLibrary* aTestLib)

	{

	CBadRRule* self = new (ELeave) CBadRRule();

	CleanupStack::PushL(self);

	self->iTestLib = aTestLib ;

	self->ConstructL();

	CleanupStack::Pop(self);

	return self;

	}

void CBadRRule::ConstructL()

	{

	iTestLib->ReplaceFileL(KTestName);

	iTestLib->OpenFileL(KTestName);		

	}

CBadRRule::~CBadRRule()	

	{

	test.Close();

	}

void CBadRRule::CreateToDoEntryL()

{

	RPointerArray<CCalEntry> entryarr ;	

	CleanupResetAndDestroyPushL(entryarr);	

	TInt num ;

	HBufC8* guid = KGUID1().AllocLC(); // ownership of guid gets transferred

	CCalEntry *entry = CCalEntry::NewL(CCalEntry::ETodo, guid, CCalEntry::EMethodNone, 0) ;

	CleanupStack::Pop(guid);	

	CleanupStack::PushL(entry) ;

	TCalTime startTime ;

	TCalTime endTime ;	

	startTime.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 8, 10, 30, 0, 0))) ;

	endTime.SetTimeUtcL(startTime.TimeUtcL() + TTimeIntervalDays(1)) ;

	entry->SetStartAndEndTimeL(startTime, endTime) ;

	TCalTime endTime1 ;	

	endTime1.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 23, 10, 5, 0, 0))) ;		

	TCalRRule rrule(TCalRRule::EWeekly) ;

	rrule.SetDtStart(startTime);

	rrule.SetUntil(endTime1);

	rrule.SetInterval(1);	

	RArray<TDay> days;

	CleanupClosePushL(days);	

	days.AppendL(ETuesday);

	rrule.SetByDay(days);

	CleanupStack::PopAndDestroy(&days);

	entry->SetRRuleL(rrule) ; 

	// both entry and rrule start time should be aligned to the first instance

	TCalRRule setRRule ;

	entry->GetRRuleL(setRRule) ;

	test(setRRule.DtStart().TimeUtcL() == rrule.DtStart().TimeUtcL()) ;

	entryarr.AppendL(entry) ;

	CleanupStack::Pop(entry);		

	iCalEntryView->StoreL(entryarr, num) ;	

	entryarr.ResetAndDestroy();

	TCalTime recId;

	recId.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 9, 10, 30, 0, 0))); // creating recurrence id

	guid = KGUID1().AllocLC(); // ownership of guid gets transferred

	entry = CCalEntry::NewL(CCalEntry::ETodo, guid, CCalEntry::EMethodNone, 0, recId, CalCommon::EThisOnly);

	CleanupStack::Pop(guid);			

	CleanupStack::PushL(entry) ;	

	TCalTime startTime3 ;

	TCalTime endTime3 ;	

	startTime3.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 7, 10, 2, 0, 0))) ;

	endTime3.SetTimeUtcL(startTime3.TimeUtcL() + TTimeIntervalHours(1)) ;

	entry->SetStartAndEndTimeL(startTime3, endTime3) ;

	entryarr.AppendL(entry) ;

	CleanupStack::Pop(entry) ;

	iCalEntryView->StoreL(entryarr, num) ;		

	CleanupStack::PopAndDestroy(&entryarr);

	RArray<TTime> insTimes ;

	insTimes.Append(TTime(TDateTime(2006, EJanuary, 7, 11, 2, 0, 0))) ;

	insTimes.Append(TTime(TDateTime(2006, EJanuary, 16, 10, 30, 0, 0))) ;

	CleanupClosePushL(insTimes) ;

	CheckInstancesL(insTimes) ; 

	CleanupStack::PopAndDestroy(&insTimes) ;

			// time portion of repeat's end eliminates the third instance

}

void CBadRRule::CreateParentL()

{

	RPointerArray<CCalEntry> entryarr ;	

	CleanupResetAndDestroyPushL(entryarr);	

	TInt num ;

	HBufC8* guid = KGUID().AllocLC(); // ownership of guid gets transferred

	CCalEntry *entry = CCalEntry::NewL(CCalEntry::EEvent, guid, CCalEntry::EMethodNone, 0) ;

	CleanupStack::Pop(guid);	

	CleanupStack::PushL(entry) ;

	TCalTime startTime ;

	TCalTime endTime ;	

	startTime.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 7, 10, 1, 0, 0))) ;

	endTime.SetTimeUtcL(startTime.TimeUtcL() + TTimeIntervalHours(1)) ;

	entry->SetStartAndEndTimeL(startTime, endTime) ;

	TCalTime endTime1;

	endTime1.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 23, 10, 5, 0, 0))) ;		

	TCalRRule rrule(TCalRRule::EWeekly) ;

	rrule.SetDtStart(startTime);

	rrule.SetUntil(endTime1);

	rrule.SetInterval(1);	

	RArray<TDay> days;

	CleanupClosePushL(days);	

	days.AppendL(ETuesday);

	rrule.SetByDay(days);

	CleanupStack::PopAndDestroy(&days);

	entry->SetRRuleL(rrule) ; 

	TCalRRule setRRule ;

	entry->GetRRuleL(setRRule) ;

	test(setRRule.DtStart().TimeUtcL() == rrule.DtStart().TimeUtcL()) ;

	entryarr.AppendL(entry) ;

	CleanupStack::Pop(entry);		

	iCalEntryView->StoreL(entryarr, num) ;	

	entryarr.ResetAndDestroy() ;

	iCalEntryView->FetchL(KGUID(), entryarr);

	TCalRRule savedRRule ;

	entryarr[0]->GetRRuleL(savedRRule) ;

	TCalTime matchTime ; /* Jan 10, 2006 is the first Tuesday */

	matchTime.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 9, 10, 1, 0, 0))) ;

	//When the entry is stored, the repeat start time is adjusted so that it fits the rule (10th January is Tuesday

	test(savedRRule.DtStart().TimeUtcL() == matchTime.TimeUtcL()) ;

	test(entryarr[0]->StartTimeL().TimeUtcL() == (matchTime.TimeUtcL())) ;

	CleanupStack::PopAndDestroy(&entryarr) ;

	RArray<TTime> insTimes ;	

	insTimes.Append(TTime(TDateTime(2006, EJanuary, 9, 10, 1, 0, 0))) ;

	insTimes.Append(TTime(TDateTime(2006, EJanuary, 16, 10, 1, 0, 0))) ;

	insTimes.Append(TTime(TDateTime(2006, EJanuary, 23, 10, 1, 0, 0))) ;

	CleanupClosePushL(insTimes) ;

	CheckInstancesL(insTimes) ;

	CleanupStack::PopAndDestroy(&insTimes) ;

}

void CBadRRule::CreateChild1L()

{

	TInt num ;

	TCalTime recId;

	recId.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 9, 10, 1, 0, 0))); // creating recurrence id

	HBufC8* guid1 = KGUID().AllocLC(); // ownership of guid1 gets transferred

	CCalEntry *entry1 = CCalEntry::NewL(CCalEntry::EEvent, guid1, CCalEntry::EMethodNone, 0, recId, CalCommon::EThisOnly);

	CleanupStack::Pop(guid1);			

	CleanupStack::PushL(entry1) ;	

	TCalTime startTime3 ;

	TCalTime endTime3 ;	

	startTime3.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 7, 10, 2, 0, 0))) ;

	endTime3.SetTimeUtcL(startTime3.TimeUtcL() + TTimeIntervalHours(1)) ;

	entry1->SetStartAndEndTimeL(startTime3, endTime3) ;

	RPointerArray<CCalEntry> entryarr1 ;	

	entryarr1.AppendL(entry1) ;

	iCalEntryView->StoreL(entryarr1, num) ;		

	entryarr1.Close() ;	

	CleanupStack::PopAndDestroy(entry1) ;

}

void CBadRRule::CreateChild2L()

{

	TInt num ;

	TCalTime rec2 ;

	rec2.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 16, 10, 1, 0, 0))) ; //Jan 17

	HBufC8* guid_c2 = KGUID().AllocLC(); // ownership of guid1 gets transferred

	CCalEntry *entry_c2 = CCalEntry::NewL(CCalEntry::EEvent, guid_c2, CCalEntry::EMethodNone, 0, rec2, CalCommon::EThisAndAll);

	CleanupStack::Pop(guid_c2);

	CleanupStack::PushL(entry_c2) ;	

	TCalTime startTime_c2 ;

	TCalTime endTime_c2 ;	

	startTime_c2.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 8, 11, 2, 0, 0))) ;

	endTime_c2.SetTimeUtcL(startTime_c2.TimeUtcL() + TTimeIntervalHours(1)) ;

	entry_c2->SetStartAndEndTimeL(startTime_c2, endTime_c2) ;

	RPointerArray<CCalEntry> entryarr_c2 ;	

	entryarr_c2.AppendL(entry_c2) ;

	iCalEntryView->StoreL(entryarr_c2, num) ;		

	entryarr_c2.Close() ;

	CleanupStack::PopAndDestroy(entry_c2) ;

}

void CBadRRule::ModifyEntriesL()

{

	TInt num, err ;

	RPointerArray<CCalEntry> entryarr3 ;

	iCalEntryView->FetchL(KGUID(), entryarr3) ;

	test(entryarr3.Count() == 3) ;

		/* got 3 entries - EThisAndAll of second child do not have any special effect */	

	CleanupStack::PushL(TCleanupItem(CleanupCCalEntryArray, &entryarr3));

	TCalTime startTime4 ;

	TCalTime endTime4 ;	

	startTime4.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 1, 10, 1, 0, 0))) ;

	endTime4.SetTimeUtcL(startTime4.TimeUtcL() + TTimeIntervalHours(1)) ;

	entryarr3[0]->SetStartAndEndTimeL(startTime4, endTime4) ;

	//The repeating starting time will not be adjusted until the entry is stored

	test(entryarr3[0]->StartTimeL().TimeUtcL() == startTime4.TimeUtcL()) ;

	TCalRRule savedRRule ;

	entryarr3[0]->GetRRuleL(savedRRule) ;

	//The repeating starting time will not be adjusted until the entry is stored

	test(savedRRule.DtStart().TimeUtcL() == startTime4.TimeUtcL()) ;

	iCalEntryView->StoreL(entryarr3, num) ;	

			// store succeeds, because children are still aligned to an instance

	CleanupStack::PopAndDestroy(&entryarr3) ;

	RArray<TTime> insTimes ;

	insTimes.Append(TTime(TDateTime(2006, EJanuary, 2, 10, 1, 0, 0))) ;

	insTimes.Append(TTime(TDateTime(2006, EJanuary, 7, 10, 2, 0, 0))) ;

	insTimes.Append(TTime(TDateTime(2006, EJanuary, 8, 11, 2, 0, 0))) ;

	insTimes.Append(TTime(TDateTime(2006, EJanuary, 23, 10, 1, 0, 0))) ;

	CleanupClosePushL(insTimes) ;	

	CheckInstancesL(insTimes) ;

	CleanupStack::PopAndDestroy(&insTimes) ;

		// this is interesting - there could be 4 instance, but as the count value of the

		// repeat rule has been kept intact, we still get 3 instances, 

		// but they are shifted .		

	/* store is successful with modified time - now we shall change rrule */

	RPointerArray<CCalEntry> entryarr4 ;

	iCalEntryView->FetchL(KGUID(), entryarr4) ;

	test(entryarr4.Count() == 3) ;	

	CleanupStack::PushL(TCleanupItem(CleanupCCalEntryArray, &entryarr4));

	CCalEntry *entry = entryarr4[0] ;

	TCalTime startTime1 ;

	TCalTime endTime1 ;	

	TCalTime untilTime1 ;	

	startTime1.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 16, 10, 1, 0, 0))) ;

	endTime1.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 16, 11, 1, 0, 0))) ;

	untilTime1.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 26, 10, 5, 0, 0))) ;		

	TCalRRule rrule(TCalRRule::EWeekly) ;		

	rrule.SetDtStart(startTime1);

	rrule.SetUntil(untilTime1);

	rrule.SetInterval(1);	

	RArray<TDay> days;

	CleanupClosePushL(days);

	days.AppendL(ETuesday);  

	rrule.SetByDay(days);

	CleanupStack::PopAndDestroy(&days);

	entry->SetStartAndEndTimeL(startTime1, endTime1);

	entry->SetRRuleL(rrule) ;

	TRAP(err, iCalEntryView->StoreL(entryarr4, num)) ;

	test(err == -1) ; // due to change in rrule store should fail

	test(num == 2) ; // only parent + child2 have been saved

	CleanupStack::PopAndDestroy(&entryarr4) ;

}

void CBadRRule::CheckInstancesL(RArray<TTime> &insTimes)

{

	RPointerArray<CCalInstance> instanceArray ;

	TCalTime startTime ;

	TCalTime endTime ;	

	startTime.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 1, 10, 1, 0, 0))) ;

	endTime.SetTimeUtcL(TTime(TDateTime(2006, EJanuary, 30, 10, 5, 0, 0))) ;		

	CalCommon::TCalTimeRange timeRange(startTime, endTime);

	CCalInstanceView &insView = iTestLib->SynCGetInstanceViewL();	

	insView.FindInstanceL(instanceArray, CalCommon::EIncludeAll, timeRange);		

	TInt count = instanceArray.Count() ;

	TInt count1 = insTimes.Count() ;

	test(count == count1) ;

	TInt i, j ;

	for(i = 0; i < count1; i++)

		{

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

			{

			if (instanceArray[j] == NULL)

				{

				continue ;

				}

			TTime t1 = instanceArray[j]->Time().TimeUtcL() ;		

			TDateTime d1 = t1.DateTime() ;	

			if (insTimes[i] == t1)

				{

				delete instanceArray[j] ;

				instanceArray[j] = NULL ;

				break ;

				}			

			}

			test(j < count) ;		

		}

	instanceArray.Close() ;		

}

void CBadRRule::DeleteEntriesL()

{

	RPointerArray<CCalEntry> entryarr5 ;

	iCalEntryView->FetchL(KGUID(), entryarr5) ;

	test(entryarr5.Count() == 2) ; 

		// one bad child entry could not be saved before

	CleanupStack::PushL(TCleanupItem(CleanupCCalEntryArray, &entryarr5));

	CCalEntry *entry2 = entryarr5[0] ; // get the parent

	iCalEntryView->DeleteL(*entry2) ;

	CleanupStack::PopAndDestroy(&entryarr5) ;

	/* now see if it has been deleted */

	RPointerArray<CCalEntry> entryarr6 ;

	iCalEntryView->FetchL(KGUID(), entryarr6) ;

	test(entryarr6.Count() == 0) ;

	entryarr6.Close() ;	

}

void CBadRRule::TestBadRRuleL()

{

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

	CCalEntryView& view = iTestLib->SynCGetEntryViewL() ;

	iCalEntryView = &view ;

	CreateParentL() ;

	CreateChild2L() ;   // Create child entry with exception

	CreateChild1L() ;   // Creating a another child 	

	RArray<TTime> insTimes ;

	insTimes.Append(TTime(TDateTime(2006, EJanuary, 7, 10, 2, 0, 0))) ;

	insTimes.Append(TTime(TDateTime(2006, EJanuary, 8, 11, 2, 0, 0))) ;

	insTimes.Append(TTime(TDateTime(2006, EJanuary, 23, 10, 1, 0, 0))) ;

	CleanupClosePushL(insTimes) ;	

	CheckInstancesL(insTimes) ;

	CleanupStack::PopAndDestroy(&insTimes) ;

	ModifyEntriesL() ;	// now modifying the parent again 			

	DeleteEntriesL() ;		// now try deleting entry 		

	CreateToDoEntryL() ;

	/* if executed to this point test has actully passed */

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

}