// Copyright (c) 1995-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\realtime\t_write.cpp

// 

//

#include <e32test.h>

#include "u32std.h"

#include "../misc/prbs.h"

LOCAL_D RTest test(_L("Remote Write"));

class RMySession : public RSessionBase

	{

public:

	TInt Connect(RServer2 aSrv,TRequestStatus& aStat)

		{return CreateSession(aSrv,TVersion(),1,EIpcSession_Unsharable,0,&aStat);}

	void Test(TDes8& aDes)

		{Send(0,TIpcArgs(&aDes));}

	};

void RunTest(RMessage2& aMsg,TPtr8& aDes)

	{

	// never return or complete message, just do lots of writes...

	TUint seed[2];

	seed[0]=0xadf85458;

	seed[1]=0;

	TInt* pS=(TInt*)User::Alloc(65536);

	TInt* pD=(TInt*)User::Alloc(65536);

	TPtrC8 s((TUint8*)pS,65536);

	aDes.Set((TUint8*)pD,0,65536);

	if (!pS || !pD)

		User::Panic(_L("OOM"),0);

	RProcess().SetPriority(EPriorityLow);

	FOREVER

		{

		TInt i;

		for (i=0; i<16384; i++)

			pS[i]=(TInt)Random(seed);

		TInt r=aMsg.Write(0,s);

		if (r!=KErrNone)

			User::Panic(_L("WriteL"),r);

		for (i=0; i<16384; i++)

			{

			if (pD[i]!=pS[i])

				User::Panic(_L("ERROR"),i);

			}

		}

	}

GLDEF_C TInt E32Main()

	{

	test.Title();

	RServer2 srv;

	srv.CreateGlobal(KNullDesC);

	RMySession sess;

	TRequestStatus stat;

	sess.Connect(srv,stat);

	RMessage2 m;

	srv.Receive(m);

	m.Complete(KErrNone);	// connect message

	User::WaitForRequest(stat);	// connected

	TPtr8 des(0,0);

	sess.Test(des);

	srv.Receive(m);

	RunTest(m, des);

	test.End();

	return 0;

	}