/*

* Copyright (c) 2001-2009 Nokia Corporation and/or its subsidiary(-ies).

* All rights reserved.

* This component and the accompanying materials are made available

* under the terms of the License "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: 

* Implementation for testing generalized time object encoding/decoding

*

*/

#include "testgeneralizedtime.h"

#include "tasn1normaltest.h"

#include <asn1enc.h>

#include <asn1dec.h>

#include <e32cons.h>

#include <e32math.h>

CTestGeneralizedTime* CTestGeneralizedTime::NewL(CASN1NormalTest &aASN1Action)

	{

	CTestGeneralizedTime* test = new (ELeave) CTestGeneralizedTime(aASN1Action);

	return test;

	}

CTestGeneralizedTime::CTestGeneralizedTime(CASN1NormalTest &aASN1Action) : CTestBase(aASN1Action) 

	{

	};

void CTestGeneralizedTime::GetName(TDes& aBuf)

	{

	aBuf.Copy(_L("Test Generalized Time"));

	}

void CTestGeneralizedTime::FillParameterArray(void)

	{

	iParameters->Append(CTestParameter::EString);

	iParameters->Append(CTestParameter::EInt);

	iParameters->Append(CTestParameter::EInt);

	iParameters->Append(CTestParameter::EInt);

	iParameters->Append(CTestParameter::EInt);

	iParameters->Append(CTestParameter::EInt);

	iParameters->Append(CTestParameter::EInt);

	iParameters->Append(CTestParameter::EString);

	iParameters->Append(CTestParameter::EString);

	}

TBool CTestGeneralizedTime::ValidateOutcome(CConsoleBase& aConsole, const TTime& originalTime, const TTime& decodedTime, const TInt &aTestNumber, 

		const TInt &aTotalTests)

	{

	if (originalTime != decodedTime)

		{

		aConsole.Write(_L("ERROR!\nEncoded time = "));

		OutputTime(aConsole, originalTime);

		aConsole.Write(_L("Decoded time = "));

		OutputTime(aConsole, decodedTime);

		aConsole.Write(_L("\n"));

		iASN1Action.ReportProgressL(KErrASN1EncodingError, aTestNumber, aTotalTests);

		return(EFalse);

		}

	else

		{

		iASN1Action.ReportProgressL(KErrNone, aTestNumber, aTotalTests);

		return(ETrue);

		}

	}

TBool CTestGeneralizedTime::PerformTestWithEncoderL(CConsoleBase& aConsole, const TTime &aTest, const TInt &aTestNumber, 

		const TInt &aTotalTests)

	{

		TUint writeLength;

		TInt readLength;

		TTime decodedTime, originalTime;

		originalTime = aTest;

		CASN1EncGeneralizedTime* encoder = CASN1EncGeneralizedTime::NewLC(aTest);

		// Prepare a buffer

		TInt totalLength = encoder->LengthDER();

		HBufC8* buf = HBufC8::NewMaxLC(totalLength);

		TPtr8 tBuf = buf->Des();

		// Write into the buffer

		writeLength = 0;

		encoder->WriteDERL(tBuf, writeLength);

		// Read it out again + check lengths

		TASN1DecGeneralizedTime decoder;

		readLength = 0;

		decodedTime = decoder.DecodeDERL(tBuf, readLength);

		CleanupStack::PopAndDestroy(2); // buf, encoder

		if(writeLength != STATIC_CAST(TUint, readLength))

			return EFalse;

		return ValidateOutcome(aConsole, originalTime, decodedTime, aTestNumber, aTotalTests);

	}

TBool CTestGeneralizedTime::PerformTestWithoutEncoderL(CConsoleBase& aConsole, const TTime &aTest, const TInt &aTestNumber,

		const TInt &aTotalTests, const TDesC& fraction, const TDesC& offset)

	{

	TTime decodedTime, originalTime = aTest;

	//we construct the encoded time manually and pass it to decoder,

		_LIT(KTimeFormat, "%F%Y%M%D%H%T%S");

		TBuf<32> timeString;

		aTest.FormatL(timeString, KTimeFormat);

		TInt fracSec = 0, i = 0;

		if(fraction != KNullDesC)

			{

				timeString.Append('.');

				timeString.Append(fraction);

				TInt multiplier = 100000;

				// parse fraction of second

				while(i < fraction.Length())

					{

					fracSec += (fraction[i++]-'0') * multiplier;

					multiplier /= 10;

					}			

				TTimeIntervalMicroSeconds intervalMs = fracSec;

				originalTime += intervalMs;

			}

		if(offset != KNullDesC)

			{

				timeString.Append(offset);

				TTimeIntervalHours intervalHH = (offset[1]-'0') * 10 + (offset[2]-'0');

				TTimeIntervalMinutes intervalMM = (offset[3]-'0') * 10 + (offset[4]-'0');

				switch(offset[0])

				{

					case '+':

						originalTime -= intervalHH;

						originalTime -= intervalMM;

						break;

					case '-':

						originalTime += intervalHH;

						originalTime += intervalMM;

						break;

					default:

					// Malformed offset

						return EFalse;

				}

			}

		//convert to 8 bit

		TBuf8<32> timeString8bit;

		timeString8bit.Copy(timeString);

		//create a buf for storage of encoded time

		TInt totalLength = timeString8bit.Length() + 2;

		HBufC8* encodedTime = HBufC8::NewLC(totalLength);

		TPtr8 encodedTimePtr = encodedTime->Des();

		//construct an encoded time manually

		encodedTimePtr.Append(STATIC_CAST(TUint8, 0) | 0x1b); //add tag

		encodedTimePtr.Append(STATIC_CAST(TUint8, timeString8bit.Length())); //add length

		encodedTimePtr.Append(timeString8bit); // add content

		//Decode and read it out for later test on decoder

		TASN1DecGeneralizedTime decoder;

		TASN1DecGeneric gen(encodedTimePtr);

		gen.InitL();

		decodedTime = decoder.DecodeDERL(gen);

		CleanupStack::PopAndDestroy(encodedTime); // buf

		return ValidateOutcome(aConsole, originalTime, decodedTime, aTestNumber, aTotalTests);

	}

// Is there a built-in function to do this for us?

void CTestGeneralizedTime::OutputTime(CConsoleBase& aConsole, const TTime& aTime)

	{

	TDateTime dt(aTime.DateTime());

	aConsole.Printf(_L("Y = %d, M = %d, D = %d, H = %d, M = %d, S = %d, mS = %d\n"),

		dt.Year(), dt.Month(), dt.Day(), dt.Hour(), dt.Minute(), dt.Second(), dt.MicroSecond());

	}

TBool CTestGeneralizedTime::PerformTestsL(CConsoleBase& aConsole)

	{

	TInt nLow = Math::Random();

	TInt64 nHigh((TInt)Math::Random());

	TInt64 iSeed((nHigh << 32) + nLow);

	CTestParameter* test;

	TInt totalTests, currentTest=0;

	TInt year, month, day, hour, minute, second;

	TBuf<3> fracSecond;

	TBuf<5> offset;

	TBuf<15> typeOfTest;

	CStringTestParameter *testString;

	if(!CountTests(totalTests)) return(EFalse);

	for(TInt pos = 0; pos < iValues->Count(); pos++)

		{

		typeOfTest.Zero();

		test = (*iValues)[pos];

		if(test->GetType() == CTestParameter::EString)

			{

				//get the type of generalizedTime we are testing

				testString = REINTERPRET_CAST(CStringTestParameter*, test);

				testString->GetValue(typeOfTest);

				// gets year

				test = (*iValues)[++pos];

				if(test->GetType() != CTestParameter::EInt)

					return(EFalse);

				CIntTestParameter *testInt = REINTERPRET_CAST(CIntTestParameter*, test);

				year = testInt->Value();

				// gets month

				test = (*iValues)[++pos];

				if(test->GetType() != CTestParameter::EInt) 

					return(EFalse);

				testInt = REINTERPRET_CAST(CIntTestParameter*, test);

				month = testInt->Value();

				// gets day

				test = (*iValues)[++pos];

				if(test->GetType() != CTestParameter::EInt) 

					return(EFalse);

				testInt = REINTERPRET_CAST(CIntTestParameter*, test);

				day = testInt->Value();

				// gets hour

				test = (*iValues)[++pos];

				if(test->GetType() != CTestParameter::EInt) 

					return(EFalse);

				testInt = REINTERPRET_CAST(CIntTestParameter*, test);

				hour = testInt->Value();

				// gets minute

				test = (*iValues)[++pos];

				if(test->GetType() != CTestParameter::EInt) 

					return(EFalse);

				testInt = REINTERPRET_CAST(CIntTestParameter*, test);

				minute = testInt->Value();

				// gets second

				test = (*iValues)[++pos];

				if(test->GetType() != CTestParameter::EInt) 

					return(EFalse);

				testInt = REINTERPRET_CAST(CIntTestParameter*, test);

				second = testInt->Value();

				TDateTime dateTime(year, TMonth(month - 1), TMonth(day - 1), hour, minute, second, 0);

				TTime encodedTime = dateTime;

				if(typeOfTest == KEncoder)

				//we are testing with encoder as well as decoder

				//Since encoder only accepts TTime as input, we could only pass

				//in standard zulu time (asn.1 generalizedTime in 

				//second form without optional fraction of second and offset

				// hours and minutes)	

					{

						pos += 2; //ignore fraction of second and offset

						if(!PerformTestWithEncoderL(aConsole, encodedTime, currentTest, totalTests))

							return(EFalse);

					}

				else if(typeOfTest == KNoEncoder)	

				// Here we test decoding asn.1 generalized Time in any forms other than standard zulu,

				// with optional fraction of seconds and/or offset hours and minutes

					{

					// gets fraction of second

						test = (*iValues)[++pos];

						testString = REINTERPRET_CAST(CStringTestParameter*, test);

						testString->GetValue(fracSecond);

						// gets offset

						test = (*iValues)[++pos];

						testString = REINTERPRET_CAST(CStringTestParameter*, test);

						testString->GetValue(offset);

						if(!PerformTestWithoutEncoderL(aConsole, encodedTime, currentTest, totalTests, fracSecond, offset))

							return(EFalse);

					}

				else

					User::Leave(KErrNotSupported);

				currentTest++;

			}

		else if(test->GetType() == CTestParameter::ERandom)

			{

			CRandomTestParameter *randomInt = REINTERPRET_CAST(CRandomTestParameter*, test);

			for(TInt test = 0; test <= randomInt->Interations(); test++)

				{

				TInt nLow = Math::Rand(iSeed);

				TInt64 nHigh = Math::Rand(iSeed);

				TInt64 time64((nHigh << 32) + nLow);

				// Set to random time, but with 4-digit year and microseconds zero

				TTime encodedTime(time64);

				TDateTime dateTime(encodedTime.DateTime());

				dateTime.SetYear(dateTime.Year() % 10000);

				dateTime.SetMicroSecond(0);

				encodedTime = dateTime;

				if(!PerformTestWithEncoderL(aConsole, encodedTime, currentTest, totalTests))

					return(EFalse);

					;

				currentTest++;

				}

			}

		else

			return(EFalse);

		};

	iASN1Action.ReportProgressL(KErrNone, totalTests, totalTests);

	return(ETrue);

	};