/*

* 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 encoded object output

*

*/

#include "testoutput.h"

#include "tasn1normaltest.h"

#include <asn1enc.h>

#include <asn1dec.h>

#include <e32cons.h>

#include <f32file.h>

#include <bigint.h>

CTestOutput* CTestOutput::NewL(CASN1NormalTest &aASN1Action)

	{

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

	return test;

	}

CTestOutput::CTestOutput(CASN1NormalTest &aASN1Action) : CTestBase(aASN1Action)

	{

	};

void CTestOutput::GetName(TDes& aBuf)

	{

	aBuf.Copy(_L("Test Output (to file)"));

	}

TBool CTestOutput::PerformTestsL(CConsoleBase& aConsole)

	{

	// Get object to output

	CASN1EncBase* enc = MakeEncoderLC();

	// Prepare a buffer

	TUint length = enc->LengthDER();

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

	TPtr8 tBuf = buf->Des();

	// Write into the buffer

	TUint writeLength = 0;

	enc->WriteDERL(tBuf, writeLength);

	// Copy to file

	RFs fs;

	User::LeaveIfError(fs.Connect());

	CleanupClosePushL(fs);

	TDriveUnit sysDrive (fs.GetSystemDrive());

	TDriveName driveName(sysDrive.Name());

	TBuf<64> fileName(driveName);

	fileName.Append(_L("\\tasn1\\TASN1_test_output"));

	RFile file;

	User::LeaveIfError(file.Replace(fs, fileName, EFileWrite));

	CleanupClosePushL(file);

	User::LeaveIfError(file.Write(tBuf));

	// Tidy up

	CleanupStack::PopAndDestroy(4); // Close file, close fs, buf, enc

	iASN1Action.ReportProgressL(KErrNone, 1, 1);

	aConsole.Write(_L("Now use DumpASN1 on "));

	aConsole.Write(fileName);

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

	return(ETrue);

	}

CASN1EncBase* CTestOutput::MakeEncoderLC(const TBool aNest) const

	{

	// Sequence we'll be using

	CASN1EncSequence* seq = CASN1EncSequence::NewLC();

	// Add objects

	TUint index = aNest ? 0 : 1;

	while (CASN1EncBase* enc = MakeEncObjLC(index++))

		{

		seq->AddChildL(enc);

		CleanupStack::Pop(); // enc

		}

	return seq;

	}

CASN1EncBase* CTestOutput::MakeEncObjLC(const TUint aIndex) const

	{

	switch (aIndex)

		{

		case 0:

			// Case 0 is always the nested sequence encoder

			return MakeEncoderLC(EFalse);

		case 1:

			return CASN1EncNull::NewLC();

		case 2:

			return CASN1EncBoolean::NewLC(ETrue);

		case 3:

			return CASN1EncBoolean::NewLC(EFalse);

		case 4:

			return CASN1EncInt::NewLC(12345);

		case 5:

			return CASN1EncInt::NewLC(-4354);

		case 6:

			{

			RInteger i = RInteger::NewRandomL(345, TInteger::EAllBitsRandom);

			CleanupStack::PushL(i);

			CASN1EncBigInt* enc = CASN1EncBigInt::NewLC(i);

			CleanupStack::Pop();

			CleanupStack::PopAndDestroy(&i);

			CleanupStack::PushL(enc);

			return enc;

			}

		case 7: // -ve this time

			{

			RInteger i = RInteger::NewRandomL(345, TInteger::EAllBitsRandom);

			CleanupStack::PushL(i);

			i *= -1;

			CASN1EncBigInt* enc = CASN1EncBigInt::NewLC(i);

			CleanupStack::Pop();

			CleanupStack::PopAndDestroy(&i);

			CleanupStack::PushL(enc);

			return enc;

			}

		case 8:

			{

			// INFOSEC policy UID

			_LIT(KTestOID, "2.16.840.1.101.2.1.3.10");

			return CASN1EncObjectIdentifier::NewLC(KTestOID);

			}

		case 9:

			{

			HBufC8* str = HBufC8::NewLC(256);

			TPtr8 des = str->Des();

			for (TUint i = 0; i < 256; ++i)

				{

				des.Append(STATIC_CAST(TChar, i));

				}

			CASN1EncBase* enc = CASN1EncOctetString::NewLC(des);

			CleanupStack::Pop();

			CleanupStack::PopAndDestroy(); // str

			CleanupStack::PushL(enc);

			return enc;

			}

		case 10: // without seconds

			{

			// DateTime month and day are 0-based

			TDateTime dateTime(1972, EDecember, 19, 11, 35, 0, 0);

			return CASN1EncGeneralizedTime::NewLC(dateTime); // Implicit conversion to TTime

			}

		case 11: // with seconds

			{

			// DateTime month and day are 0-based

			TDateTime dateTime(1972, EDecember, 19, 11, 35, 23, 0);

			return CASN1EncGeneralizedTime::NewLC(dateTime); // Implicit conversion to TTime

			}

		case 12:

			{

			CASN1EncBase* null = CASN1EncNull::NewLC();

			CleanupStack::Pop(); // null

			return CASN1EncExplicitTag::NewLC(null, 100);

			}

		default:

			return 0;

		}

	}