/*

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

 		}

 	}