/*

 * 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);

 	};