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

// Component: IMCM

// Owner: KP

// Brief description of test harness:

// Tests TImRfc822DateField - tests ParseDateField(), SetDate() functions for

// all dates specified in the Y2K Compliance Testing document.

// Tests ParseDateField() to set time in local timezone.

// Test cases for representing TTime in local timezone.

// Detailed description of test harness:

// As above.

// Input files required to run test harness:

// None

// Intermediate files produced while running test harness:

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

// Output files produced by running test harness:

// <DRIVE>:\msglogs\T_MIUT09.<PLATFORM>.<VARIANT>.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:

// \epoc32\release\wins\<VARIANT>\T_MIUT09.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_MIUT09.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_MIUT09.exe on the other platform

// 

//

#include "emailtestutils.h"

#include "MIUTHDR.H"    // CImHeader

#include <miutlog.h>

#include <miutset.h>

// local variables etc //

_LIT(KMiut09Test, "MIUT09 - Test TImRfc822DateField class");

RTest test(KMiut09Test);

LOCAL_D CTrapCleanup* theCleanup;

LOCAL_D CImLog* log;

LOCAL_D CEmailTestUtils* testUtils;

_LIT(KMiutTestPassed, "PASSED test %d\n");

_LIT(KMiutTestFailed, "FAILED test %d\n");

//

LOCAL_C void ResultOfTest(TBool aResult,TInt aTestNo)

	{

	if (aResult)

		{

		test.Printf(KMiutTestPassed, aTestNo);

		}

	else

		{

		test.Printf(KMiutTestFailed, aTestNo);

		}

	}

LOCAL_C TBool MyEqualityTest(TDesC8& item1, TDesC8& item2)

	{

	_LIT8(KErrorReason, "\t\tDates not set correctly for %S");

	TBuf8<80> buf;

	TBool result = (item1==item2);

	if (!result)

		{

		buf.AppendFormat(KErrorReason, &item1);

		log->AppendError(buf ,-1);

		}

	return result;

	}

LOCAL_C TBool MyTimeEqualityTest(TTime& item1, TDateTime& item2, TDesC8& actualDate)

	{

	_LIT8(KErrorReason, "\t\tDates not parsed correctly for %S");

	TBuf8<80> buf;

	TLocale localeTime;

	// DaylightSaving is on subtract 1 hour.

	if (localeTime.QueryHomeHasDaylightSavingOn())

		{

		item1 -= (TTimeIntervalMinutes)60;

		}

	TBool result = (item1==item2);

	if (!result)

		{

		buf.AppendFormat(KErrorReason, &actualDate);

		log->AppendError(buf ,-1);

		}

	return result;

	}

LOCAL_C TBool MyTimeEqualityTest2(TTime& item1, TTime& item2, TDesC8& actualDate)

	{

	TDateTime time1 = item1.DateTime();

	TDateTime time2 = item2.DateTime();

	TBool result = ETrue;

	result &= (time1.Year()==time2.Year());

	result &= (time1.Month()==time2.Month());

	result &= (time1.Day()==time2.Day());

	_LIT8(KErrorReason, "\t\tDates not parsed correctly for invalid date %S");

	TBuf8<90> buf;

	if (!result)

		{

		buf.AppendFormat(KErrorReason, &actualDate);

		log->AppendError(buf ,-1);

		}

	return result;

	}

//

LOCAL_C TBool TestParseDateField(TInt aTest)

	{

	TBool result = ETrue;

	TBuf8<KMiutDateStringLength> actualDate;

	TImRfc822DateField dateField;

	TTime time;

	TDateTime actualTime;

	log->AppendComment(_L8("\tTesting ParseDateField function"));

	actualTime.Set(1970, EJanuary, 1, 0, 0, 0, 0);

	actualDate = _L8(" Fri,  2 Jan 1970 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	//

	// Test valid dates - required for Y2K testing

	// 4.2.1 - Valid dates

	//

	actualTime.Set(1998, EDecember, 30, 0, 0, 0, 0);

	actualDate = _L8(" Thu, 31 Dec 1998 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(1999, EJanuary, 0, 0, 0, 0, 0);

	actualDate = _L8(" Fri,  1 Jan 1999 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(1999, EFebruary, 26, 0, 0, 0, 0);

	actualDate = _L8(" Sat, 27 Feb 1999 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(1999, ESeptember, 8, 0, 0, 0, 0);

	actualDate = _L8(" Thu,  9 Sep 1999 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2000, EFebruary, 26, 0, 0, 0, 0);

	actualDate = _L8(" Sun, 27 Feb 2000 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2000, EDecember, 30, 0, 0, 0, 0);

	actualDate = _L8(" Sun, 31 Dec 2000 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2001, EFebruary, 27, 0, 0, 0, 0);

	actualDate = _L8(" Wed, 28 Feb 2001 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2001, EMarch, 0, 0, 0, 0, 0);

	actualDate = _L8(" Thu,  1 Mar 2001 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2004, EFebruary, 27, 0, 0, 0, 0);

	actualDate = _L8(" Sat, 28 Feb 2004 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	//

	// Test days of the week - required	for Y2K testing

	// 4.2.7 - Calculation of days of the week from dates

	//

	actualTime.Set(1999, EFebruary, 27, 0, 0, 0, 0);

	actualDate = _L8(" Sun, 28 Feb 1999 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(1999, EMarch, 0, 0, 0, 0, 0);

	actualDate = _L8(" Mon,  1 Mar 1999 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(1999, EDecember, 30, 0, 0, 0, 0);

	actualDate = _L8(" Fri, 31 Dec 1999 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2000, EJanuary, 0, 0, 0, 0, 0);

	actualDate = _L8(" Sat,  1 Jan 2000 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2000, EFebruary, 27, 0, 0, 0, 0);

	actualDate = _L8(" Mon, 28 Feb 2000 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2000, EFebruary, 28, 0, 0, 0, 0);

	actualDate = _L8(" Tue, 29 Feb 2000 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2000, EMarch, 0, 0, 0, 0, 0);

	actualDate = _L8(" Wed,  1 Mar 2000 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2001, EJanuary, 0, 0, 0, 0, 0);

	actualDate = _L8(" Mon,  1 Jan 2001 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2004, EFebruary, 28, 0, 0, 0, 0);

	actualDate = _L8(" Sun, 29 Feb 2004 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2004, EMarch, 0, 0, 0, 0, 0);

	actualDate = _L8(" Mon,  1 Mar 2004 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	//

	// Test invalid dates.  Required for Y2K testing

	// 4.2.2 - Invalid dates

	// Date/time should be set to the current time.  

	//

	TTime utcTime;

	actualDate = _L8(" Mon, 31 Apr 1998 00:00:00 +0000");

	utcTime.UniversalTime();

	result &= (dateField.ParseDateField(actualDate, time) != KErrNone);

	result &= MyTimeEqualityTest2(time, utcTime, actualDate);

	actualDate = _L8(" Mon, 30 Feb 2000 00:00:00 +0000");

	utcTime.UniversalTime();

	result &= (dateField.ParseDateField(actualDate, time) != KErrNone);

	result &= MyTimeEqualityTest2(time, utcTime, actualDate);

	actualDate = _L8(" Mon, 29 Feb 2001 00:00:00 +0000");

	utcTime.UniversalTime();

	result &= (dateField.ParseDateField(actualDate, time) != KErrNone);

	result &= MyTimeEqualityTest2(time, utcTime, actualDate);

	actualDate = _L8(" Mon, 29 Feb 1999 00:00:00 +0000");

	utcTime.UniversalTime();

	result &= (dateField.ParseDateField(actualDate, time) != KErrNone);

	result &= MyTimeEqualityTest2(time, utcTime, actualDate);

	actualDate = _L8(" Mon, 30 Feb 2004 00:00:00 +0000");

	utcTime.UniversalTime();

	result &= (dateField.ParseDateField(actualDate, time) != KErrNone);

	result &= MyTimeEqualityTest2(time, utcTime, actualDate);

	//

	// Test invalid times.

	// Date/time should be set to the current time.  

	//

	actualDate = _L8(" Sat, 27 Feb 1999 28:00:00 +0000");

	utcTime.UniversalTime();

	result &= (dateField.ParseDateField(actualDate, time) != KErrNone);

	result &= MyTimeEqualityTest2(time, utcTime, actualDate);

	actualDate = _L8(" Sat, 27 Feb 1999 12:61:00 +0000");

	utcTime.UniversalTime();

	result &= (dateField.ParseDateField(actualDate, time) != KErrNone);

	result &= MyTimeEqualityTest2(time, utcTime, actualDate);

	actualDate = _L8(" Sat, 27 Feb 1999 21:45:62 +0000");

	utcTime.UniversalTime();

	result &= (dateField.ParseDateField(actualDate, time) != KErrNone);

	result &= MyTimeEqualityTest2(time, utcTime, actualDate);

	//

	// Test invalid data.

	// Date/time should be set to the current time.  

	//

	actualDate = _L8("1");

	utcTime.UniversalTime();

	result &= (dateField.ParseDateField(actualDate, time) != KErrNone);

	result &= MyTimeEqualityTest2(time, utcTime, actualDate);

	actualDate = _L8("");

	utcTime.UniversalTime();

	result &= (dateField.ParseDateField(actualDate, time) != KErrNone);

	result &= MyTimeEqualityTest2(time, utcTime, actualDate);

	actualDate = _L8("Complete tripe...");

	utcTime.UniversalTime();

	result &= (dateField.ParseDateField(actualDate, time) != KErrNone);

	result &= MyTimeEqualityTest2(time, utcTime, actualDate);

	//

	// Test valid uppercase date strings.

	// INC042354

	//

	actualTime.Set(1999, EJanuary, 0, 0, 0, 0, 0);

	actualDate = _L8(" FRI,  1 JAN 1999 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(1999, EJune, 0, 0, 0, 0, 0);

	actualDate = _L8(" TUE,  1 JUN 1999 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(1999, EJuly, 0, 0, 0, 0, 0);

	actualDate = _L8(" THU,  1 JUL 1999 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2001, EMarch, 0, 0, 0, 0, 0);

	actualDate = _L8(" THU,  1 MAR 2001 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2001, EMay, 0, 0, 0, 0, 0);

	actualDate = _L8(" TUE,  1 MAY 2001 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2001, EApril, 0, 0, 0, 0, 0);

	actualDate = _L8(" SUN,  1 APR 2001 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(2001, EAugust, 0, 0, 0, 0, 0);

	actualDate = _L8(" WED,  1 AUG 2001 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	//

	// Test valid lowercase date strings.

	//

	actualTime.Set(1999, EJanuary, 0, 0, 0, 0, 0);

	actualDate = _L8(" fri,  1 jan 1999 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	actualTime.Set(1999, EJune, 0, 0, 0, 0, 0);

	actualDate = _L8(" tue,  1 jun 1999 00:00:00 +0000");

	result &= (dateField.ParseDateField(actualDate, time) == KErrNone);

	result &= MyTimeEqualityTest(time, actualTime, actualDate);

	//

	ResultOfTest(result,aTest);

	log->AppendComment(_L8("\tTested ParseDateField function"));

	return result;

	}

LOCAL_C TBool TestSetDate(TInt aTest)

	{

	TBool result = ETrue;

	TBuf8<KMiutDateStringLength> parsedDate;

	TBuf8<KMiutDateStringLength> actualDate;

	TImRfc822DateField dateField;

	TDateTime date;

	log->AppendComment(_L8("\tTesting SetDate function"));

	TLocale locale;

	locale.Refresh(); // pick up the system settings so we can determine the timezone

	date.Set(1970, EJanuary, 1, 0, 0, 0, 0);

	if (locale.QueryHomeHasDaylightSavingOn())

		actualDate = _L8(" Fri,  2 Jan 1970 00:00:00 +0100");

	else

		actualDate = _L8(" Fri,  2 Jan 1970 00:00:00 +0000");

	dateField.SetDate(date, parsedDate);

	result &= MyEqualityTest(parsedDate, actualDate);

	parsedDate.SetLength(0);

	//

	// Test valid dates - required for Y2K testing

	// 4.2.1 - Valid dates

	//

	date.Set(1998, EDecember, 30, 0, 0, 0, 0);

	if (locale.QueryHomeHasDaylightSavingOn())

		actualDate = _L8(" Thu, 31 Dec 1998 00:00:00 +0100");

	else

		actualDate = _L8(" Thu, 31 Dec 1998 00:00:00 +0000");

	dateField.SetDate(date, parsedDate);

	result &= MyEqualityTest(parsedDate, actualDate);

	parsedDate.SetLength(0);

	date.Set(1999, EJanuary, 0, 0, 0, 0, 0);

	if (locale.QueryHomeHasDaylightSavingOn())

		actualDate = _L8(" Fri,  1 Jan 1999 00:00:00 +0100");

	else

		actualDate = _L8(" Fri,  1 Jan 1999 00:00:00 +0000");

	dateField.SetDate(date, parsedDate);

	result &= MyEqualityTest(parsedDate, actualDate);

	parsedDate.SetLength(0);

	date.Set(1999, EFebruary, 26, 0, 0, 0, 0);

	if (locale.QueryHomeHasDaylightSavingOn())

		actualDate = _L8(" Sat, 27 Feb 1999 00:00:00 +0100");

	else

		actualDate = _L8(" Sat, 27 Feb 1999 00:00:00 +0000");

	dateField.SetDate(date, parsedDate);

	result &= MyEqualityTest(parsedDate, actualDate);

	parsedDate.SetLength(0);

	date.Set(1999, ESeptember, 8, 0, 0, 0, 0);

	if (locale.QueryHomeHasDaylightSavingOn())

		actualDate = _L8(" Thu,  9 Sep 1999 00:00:00 +0100");

	else

		actualDate = _L8(" Thu,  9 Sep 1999 00:00:00 +0000");

	dateField.SetDate(date, parsedDate);

	result &= MyEqualityTest(parsedDate, actualDate);

	parsedDate.SetLength(0);

	date.Set(2000, EFebruary, 26, 0, 0, 0, 0);

	if (locale.QueryHomeHasDaylightSavingOn())

		actualDate = _L8(" Sun, 27 Feb 2000 00:00:00 +0100");

	else

		actualDate = _L8(" Sun, 27 Feb 2000 00:00:00 +0000");

	dateField.SetDate(date, parsedDate);

	result &= MyEqualityTest(parsedDate, actualDate);

	parsedDate.SetLength(0);

	date.Set(2000, EDecember, 30, 0, 0, 0, 0);

	if (locale.QueryHomeHasDaylightSavingOn())

		actualDate = _L8(" Sun, 31 Dec 2000 00:00:00 +0100");

	else

		actualDate = _L8(" Sun, 31 Dec 2000 00:00:00 +0000");

	dateField.SetDate(date, parsedDate);

	result &= MyEqualityTest(parsedDate, actualDate);

	parsedDate.SetLength(0);

	date.Set(2001, EFebruary, 27, 0, 0, 0, 0);

	if (locale.QueryHomeHasDaylightSavingOn())

		actualDate = _L8(" Wed, 28 Feb 2001 00:00:00 +0100");

	else

		actualDate = _L8(" Wed, 28 Feb 2001 00:00:00 +0000");

	dateField.SetDate(date, parsedDate);

	result &= MyEqualityTest(parsedDate, actualDate);

	parsedDate.SetLength(0);

	date.Set(2001, EMarch, 0, 0, 0, 0, 0);

	if (locale.QueryHomeHasDaylightSavingOn())

		actualDate = _L8(" Thu,  1 Mar 2001 00:00:00 +0100");

	else

		actualDate = _L8(" Thu,  1 Mar 2001 00:00:00 +0000");

	dateField.SetDate(date, parsedDate);

	result &= MyEqualityTest(parsedDate, actualDate);

	parsedDate.SetLength(0);

	date.Set(2004, EFebruary, 27, 0, 0, 0, 0);

	if (locale.QueryHomeHasDaylightSavingOn())

		actualDate = _L8(" Sat, 28 Feb 2004 00:00:00 +0100");

	else

		actualDate = _L8(" Sat, 28 Feb 2004 00:00:00 +0000");

	dateField.SetDate(date, parsedDate);

	result &= MyEqualityTest(parsedDate, actualDate);

	parsedDate.SetLength(0);

	//

	// Test days of the week - required	for Y2K testing

	// 4.2.7 - Calculation of days of the week from dates

	//

	date.Set(1999, EFebruary, 27, 0, 0, 0, 0);

	if (locale.QueryHomeHasDaylightSavingOn())

		actualDate = _L8(" Sun, 28 Feb 1999 00:00:00 +0100");

	else

		actualDate = _L8(" Sun, 28 Feb 1999 00:00:00 +0000");

	dateField.SetDate(date, parsedDate);

	result &= MyEqualityTest(parsedDate, actualDate);

	parsedDate.SetLength(0);

	date.Set(1999, EMarch, 0, 0, 0, 0, 0);

	if (locale.QueryHomeHasDaylightSavingOn())

		actualDate = _L8(" Mon,  1 Mar 1999 00:00:00 +0100");

	else

		actualDate = _L8(" Mon,  1 Mar 1999 00:00:00 +0000");

	dateField.SetDate(date, parsedDate);

	result &= MyEqualityTest(parsedDate, actualDate);

	parsedDate.SetLength(0);

	date.Set(1999, EDecember, 30, 0, 0, 0, 0);

	if (locale.QueryHomeHasDaylightSavingOn())

		actualDate = _L8(" Fri, 31 Dec 1999 00:00:00 +0100");

	else

		actualDate = _L8(" Fri, 31 Dec 1999 00:00:00 +0000");