// Copyright (c) 2002-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:

// e32test\system\t_env.cpp

// 

//

#include <e32std.h>

#include <e32std_private.h>

#include <e32test.h>

#include <e32panic.h>

#include <e32msgqueue.h>

#include <f32file.h>

LOCAL_D RTest test(_L("T_ENV_CHILD"));

GLDEF_C TInt E32Main()

    {

	test.Title();

	test.Start(_L("Environment"));

	//parameter slot 1 contains a message queue of TInts which contain control messages

	//parameter slot 2 contains a message queue of TInts

	//parameter slot 3 is a mutex

	//parameter slot 4 is a semaphore

	//parameter slot 5 is a chunk

	RMsgQueue<TInt> controlQueue;

	TInt err = controlQueue.Open(1, EOwnerProcess);

	test(err==KErrNone);

	TInt t = 0;

	controlQueue.ReceiveBlocking(t);

	switch (t)

		{

		case 0:

			{

			// out of range test

			User::SetJustInTime(EFalse);

			RMsgQueue<TInt> intQueue;

			intQueue.Open(-1);			//should panic

			break;

			}

		case 1:

			{

			// out of range test

			User::SetJustInTime(EFalse);

			RMsgQueue<TInt> intQueue;

			intQueue.Open(4545);			//should panic

			break;

			}

		case 2:

			{

			//attempt to read slot which is empty

			RMsgQueue<TInt> intQueue;

			TInt ret = intQueue.Open(15);			//15 is empty

			test(ret == KErrNotFound);

			break;

			}

		case 3:

			//attempt to open incorrect handle type

			{

			RMutex mutex;

			TInt ret = mutex.Open(2);			//2 is a TInt queue

			test(ret == KErrArgument);

			break;

			}

		case 4:

			{

			//test passing a mutex (slot 3)

			RMutex mutex;

			mutex.Open(3, EOwnerThread);

			TFullName name = mutex.FullName();

			TInt ret = name.CompareF(_L("testmutex"));

			test (ret == KErrNone);

			mutex.Close();

			break;

			}

		case 5:

			{

			//test passing a semaphore (slot 4)

			RSemaphore sem;

			sem.Open(4, EOwnerThread);

			TFullName name = sem.FullName();

			TInt ret = name.CompareF(_L("testsemaphore"));

			test (ret == KErrNone);

			sem.Close();

			break;

			}

		case 6:

			{

			//test file handle (slots 7=session 8=file)

			_LIT8(KTestData,"test data");

			RFs session;

			session.Open(7);

			RFile file;

			TInt handle;

			TInt len = User::ParameterLength(8);

			test (len == 4);

			TInt ret = User::GetTIntParameter(8, handle);

			test(ret == KErrNone);

			file.Adopt(session, handle);

			TBuf8<100> rbuf;

			ret = file.Read(0, rbuf);

			test(ret == KErrNone);

			file.Close();

			ret = rbuf.CompareF(KTestData);

			test(ret == KErrNone);

			session.Close();

			break;

			}

		case 7:

			{

			//test a chunk in slot 5

			RChunk chunk;

			TInt ret = chunk.Open(5, EOwnerThread);

			test (ret == KErrNone);

			TFullName name = chunk.FullName();

			ret = name.CompareF(_L("testchunk"));

			test (ret == KErrNone);

			chunk.Close();

			break;

			}

		case 8:

			{

			//test passing a 16 bit descriptor // slot 15

			//_L("16 bit text"

			TBuf16<40> buf;

			TInt len = User::ParameterLength(15);

			TInt ret = User::GetDesParameter(15, buf);

			test (ret == KErrNone);

			test(buf.Length() == len/2);

			ret = buf.CompareF(_L("16 bit text"));

			test (ret == KErrNone);

			break;

			}

		case 9:

			{

			//test passing a 8 bit descriptor // slot 15

			TBuf8<40> buf;

			TInt len = User::ParameterLength(15);

			TInt ret = User::GetDesParameter(15, buf);

			test (ret == KErrNone);

			test (len == buf.Length());

			ret = buf.CompareF(_L8("8 bit text"));

			test (ret == KErrNone);

			break;

			}

		case 10:

			{

			User::SetJustInTime(EFalse);

			TPtr8 bad((TUint8*)0xfeed, 20);

			User::GetDesParameter(15, bad);

			break;

			}

		case 11:

			{

			//test passing zero length data

			TBuf8<40> buf;

			TInt len = User::ParameterLength(15);

			TInt ret = User::GetDesParameter(15, buf);

			test (ret == KErrNone);

			test (len == buf.Length());

			test (len == 0);

			break;

			}

		case 12:

			{

			//test getting command line, will be zero at the moment as just a reserved slot

			TBuf8<40> buf;

			TInt len = User::ParameterLength(0);

			TInt ret = User::GetDesParameter(0, buf);

			test (ret == KErrNone);

			test (len == buf.Length());

			test (len == 0);

			break;

			}

		default:

			test(0);

			break;

		}

	controlQueue.Close();

	test.End();

	return 0;

    }