// 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 "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:

// This program is designed the test of the .

// 

//

/**

 @file

*/

#include "Te_SimPacket.h"

//******************************************************************************

// Context Configuration

//******************************************************************************

#define SIMTSY_PDP_TYPE1				RPacketContext::EPdpTypePPP

#define SIMTSY_ACCESS_POINT1			_L8("ACME INTERNET PROVIDERS LTD")

#define SIMTSY_PDP_ADDRESS1			_L8("i-MODE GATEWAY")

#define SIMTSY_COMPRESSION1			RPacketContext::KPdpDataCompression

#define SIMTSY_ANONYMOUS_ACCESS1		RPacketContext::ENotRequired

#define SIMTSY_EGPRS_REQUIRED			TRUE		

#define SIMTSY_PDP_TYPE2				RPacketContext::EPdpTypeIPv6

#define SIMTSY_ACCESS_POINT2			_L8("SYMBIAN EMPLOYEE INTRANET")

#define SIMTSY_PDP_ADDRESS2			_L8("A WAP PORTAL")

#define SIMTSY_COMPRESSION2			RPacketContext::KPdpHeaderCompression

#define SIMTSY_ANONYMOUS_ACCESS2		RPacketContext::ERequired

#define SIMTSY_CSY					_L("LOOPBACK.CSY")

#define SIMTSY_PORT					_L("LOOPBACK::0")

#define SIM_PACKET_SERVICE_CAPS (RPacketService::KCapsSuspendSupported | \

				RPacketService::KCapsMSClassSupported |\

				RPacketService::KCapsCDMA2000HighSpeedDataSupported |\

				RPacketService::KCapsNetworkAvailabilitySupported | \

				RPacketService::KCapsProtocolPPPSupported)

#define SIM_PACKET_SERVICE_OPTION	RPacketContext::KHighSpeedCDMA2000Data

#define SIM_PACKET_PROTOCOL			RPacketContext::EPdpTypePPP

#define SIM_DEFAULT_PARAM			RPacketContext::KHighSpeedCDMA2000Data

// CHAP authentication

#define SIM_PACKET_CONTEXT_PROTOCOL1 RPacketContext::EProtocolCHAP

#define SIM_PACKET_CONTEXT_USERNAME1 _L8("USER1")

#define SIM_PACKET_CONTEXT_PASSWORD1 _L8("PASSWORD1")

#define SIM_PACKET_CONTEXT_CHALLENGE1 _L8("CHALLENGE1")

#define SIM_PACKET_CONTEXT_RESPONSE1 _L8("RESPONSE1")

#define SIM_PACKET_CONTEXT_PRIMARYSERVER1 _L8("PRIMARYSERVER1")

#define SIM_PACKET_CONTEXT_SECONDARYSERVER1 _L8("SECONDARYSERVER1")

#define SIM_PACKET_CONTEXT_ID1 1

// PAP authentication 

#define SIM_PACKET_CONTEXT_PROTOCOL2 RPacketContext::EProtocolPAP

#define SIM_PACKET_CONTEXT_USERNAME2 _L("USER2")

#define SIM_PACKET_CONTEXT_PASSWORD2 _L("PASSWORD2")

#define SIM_PACKET_CONTEXT_CHALLENGE2 _L("NULL")

#define SIM_PACKET_CONTEXT_RESPONSE2 _L("NULL")

#define SIM_PACKET_CONTEXT_PRIMARYSERVER2 _L("PRIMARYSERVER2")

#define SIM_PACKET_CONTEXT_SECONDARYSERVER2 _L("SECONDARYSERVER2")

#define SIM_PACKET_CONTEXT_ID2 2

//MBMS information

#define SIM_PACKET_MBMS_TESTNUMBER	0

#define SIM_PACKET_MBMS_SESSIONID	2

#define SIM_PACKET_MBMS_SERVICEID	1155

#define SIM_PACKET_MBMS_MNCID		1122

#define SIM_PACKET_MBMS_MCCID      	1234

//******************************************************************************

static TInt NTRasThreadFunction(TAny* /*aThreadData*/)

/**

* Does 'durty' work to  start NT RAS session

* @note It sets

*	iRate = EBps38400;

*	iDataBits = EData8;

*	iStopBits = EStop1 ;

*	iParity = EParityNone;

* be sure that your NT comport has the same settings.

*/

	{

	_LIT(KCsyName,"LOOPBACK.CSY");

	_LIT(KPortName,"LOOPBACK::1");

	_LIT8(KServerText,"SERVER");

	CTrapCleanup* cleanup;

	if ((cleanup=CTrapCleanup::New())==NULL)

		return KErrGeneral;

	RCommServ commServ;

	TInt r=commServ.Connect();

	r=commServ.LoadCommModule(KCsyName);

	if( KErrNone == r)

		{

		RComm comm;

		r=comm.Open(commServ,KPortName,ECommShared);

		if( KErrNone == r)

			{

			TBuf8<6> readBuf;  

			TRequestStatus stat0;

			comm.Read(stat0,readBuf);

			User::WaitForRequest(stat0) ;

			comm.Write(stat0,KServerText);

			User::WaitForRequest(stat0) ;

			}

		comm.Close() ;

		}

	commServ.Close() ;

	delete cleanup;

	return r;

	}

TInt StartNTRasSimulation()

/**

* Starts virual, because of lookback serial driver,

* NT RAS session

*/

	{

	const TInt KStackSize=0x8000;

	const TInt KHeapSize=0x8000;

	const TInt KMaxHeapSize=0x80000;

	TInt res = KErrNone ;

	_LIT(KNtRasName,"NTRasEmulation");

	RThread t;

	res=t.Create(KNtRasName,NTRasThreadFunction,

					KStackSize,KHeapSize,KMaxHeapSize,NULL);

	t.Resume();

	t.Close();

	return res;

	}

//------------------------------------------------------------------

//			** TEST SimPacket STEPS ***

//------------------------------------------------------------------

CGprsDefaultContextParamsTest::CGprsDefaultContextParamsTest()

/** Each test step initialises it's own name

*/

	{

	// store the name of this test case

	// this is the name that is used by the script file

	SetTestStepName(_L("GprsDefaultContextParamsTest"));

	}

//------------------------------------------------------------------

TVerdict CGprsDefaultContextParamsTest::doTestStepL( void )

/**

 * This tests the default context params

 */

    {

	SetSimtsyTestNumberL(0);

	TESTL(iPhone.Open(iTelServer, KPhoneName)==KErrNone);

	TESTL(iPhone.Initialise()==KErrNone);

	// Some default params to set, does not matter what it is.

	//  The default params used are defined at the beginning of this file

	TESTL(iPacketService.Open(iPhone) == KErrNone);

    RPacketContext::TContextConfigGPRS     setDefaultParams;

	TPckg<RPacketContext::TContextConfigGPRS>    setcontextConfigPckg(setDefaultParams);

	setDefaultParams.iPdpType = SIMTSY_PDP_TYPE1;

    setDefaultParams.iAccessPointName = SIMTSY_ACCESS_POINT1;

    setDefaultParams.iPdpAddress = SIMTSY_PDP_ADDRESS1;

    setDefaultParams.iPdpCompression = SIMTSY_COMPRESSION1;

	setDefaultParams.iAnonymousAccessReqd = SIMTSY_ANONYMOUS_ACCESS1;

	setDefaultParams.iUseEdge = SIMTSY_EGPRS_REQUIRED;

	setDefaultParams.iProtocolConfigOption.iAuthInfo.iProtocol = SIM_PACKET_CONTEXT_PROTOCOL1;

	setDefaultParams.iProtocolConfigOption.iAuthInfo.iUsername = SIM_PACKET_CONTEXT_USERNAME1;

	setDefaultParams.iProtocolConfigOption.iAuthInfo.iPassword = SIM_PACKET_CONTEXT_PASSWORD1;

	setDefaultParams.iProtocolConfigOption.iChallenge = SIM_PACKET_CONTEXT_CHALLENGE1;

	setDefaultParams.iProtocolConfigOption.iResponse = SIM_PACKET_CONTEXT_RESPONSE1;

	setDefaultParams.iProtocolConfigOption.iDnsAddresses.iPrimaryDns = SIM_PACKET_CONTEXT_PRIMARYSERVER1;

	setDefaultParams.iProtocolConfigOption.iDnsAddresses.iSecondaryDns = SIM_PACKET_CONTEXT_SECONDARYSERVER1;

	setDefaultParams.iProtocolConfigOption.iId = SIM_PACKET_CONTEXT_ID1;

    TESTL(iPacketService.SetDefaultContextParams(setcontextConfigPckg) == KErrNone);

	RPacketContext::TContextConfigGPRS     getDefaultParams;

	TPckg<RPacketContext::TContextConfigGPRS>    getcontextConfigPckg(getDefaultParams);

    TESTL(iPacketService.GetDefaultContextParams(getcontextConfigPckg) == KErrNone);

    TestConfigParamsL(setDefaultParams, getDefaultParams);

    iPacketService.Close();

	iPhone.Close();

	User::After(100000L);

	return TestStepResult();

	}

//------------------------------------------------------------------

CQoSTest::CQoSTest()

/** Each test step initialises it's own name

*/

	{

	// store the name of this test case

	// this is the name that is used by the script file

	SetTestStepName(_L("QoSTest"));

	}

//------------------------------------------------------------------

TVerdict CQoSTest::doTestStepL( void )

/**

 * This tests the static GPRS caps.

 */

    {

	SetSimtsyTestNumberL(0);

    TBuf<30>                            contextName;

	TBuf<30>                            profileName;

	TRequestStatus						stat1;

	TRequestStatus						stat2;

	RPacketQoS							qoS;

	RPacketQoS::TQoSCapsGPRS			staticQoSCaps;

	TESTL(iPhone.Open(iTelServer, KPhoneName)==KErrNone);

	TESTL(iPhone.Initialise()==KErrNone);

    TESTL(iPacketService.Open(iPhone ) == KErrNone);

	TESTL(iPacketContext[0].OpenNewContext(iPacketService, contextName) == KErrNone);

	qoS.OpenNewQoS(iPacketContext[0], profileName);

	TPckg<RPacketQoS::TQoSCapsGPRS> staticQoSCapsPkg(staticQoSCaps);

	qoS.GetProfileCapabilities(stat1, staticQoSCapsPkg);

	User::WaitForRequest(stat1);

	TESTL(stat1.Int() == KErrNone);

	TESTL(staticQoSCaps.ExtensionId()==TPacketDataConfigBase::KConfigGPRS);

	TESTL(staticQoSCaps.iPrecedence		== RPacketQoS::EPriorityMediumPrecedence);

	TESTL(staticQoSCaps.iDelay			== RPacketQoS::EDelayClass2 );

	TESTL(staticQoSCaps.iReliability	== RPacketQoS::EReliabilityClass2);

	TESTL(staticQoSCaps.iPeak			== RPacketQoS::EPeakThroughput64000);

	TESTL(staticQoSCaps.iMean			== RPacketQoS::EMeanThroughput100);

	RPacketQoS::TQoSGPRSNegotiated		negotiatedQoS;

	RPacketQoS::TQoSGPRSRequested		SetQoS;

	RPacketQoS::TQoSGPRSNegotiated      comparenegotiatedQoS;

	RPacketQoS::TQoSGPRSRequested		notifyQoS;

	// Setting to Best effort.

	comparenegotiatedQoS.iPrecedence		= RPacketQoS::EPriorityMediumPrecedence;

	comparenegotiatedQoS.iDelay				= RPacketQoS::EDelayClass2;

	comparenegotiatedQoS.iReliability		= RPacketQoS::EReliabilityClass2;

	comparenegotiatedQoS.iPeakThroughput	= RPacketQoS::EPeakThroughput64000;

	comparenegotiatedQoS.iMeanThroughput	= RPacketQoS::EMeanThroughput100;

	TPckg<RPacketQoS::TQoSGPRSNegotiated>		negotiatedQoSPkg(negotiatedQoS);

	qoS.GetProfileParameters(stat1, negotiatedQoSPkg);

	User::WaitForRequest(stat1);

	TESTL(stat1.Int() == KErrNone);

	TestConfigParamsL(negotiatedQoS, comparenegotiatedQoS);

	// Set to anything just to test that it can be done..

	SetQoS.iReqPrecedence		= RPacketQoS::EPriorityMediumPrecedence;

	SetQoS.iMinPrecedence		= RPacketQoS::EPriorityLowPrecedence;

	SetQoS.iReqDelay			= RPacketQoS::EDelayClass2;

	SetQoS.iMinDelay			= RPacketQoS::EDelayClass1;

	SetQoS.iReqReliability		= RPacketQoS::EReliabilityClass2;

	SetQoS.iMinReliability		= RPacketQoS::EReliabilityClass1;

	SetQoS.iReqPeakThroughput	= RPacketQoS::EPeakThroughput64000;

	SetQoS.iMinPeakThroughput	= RPacketQoS::EPeakThroughput16000;

	SetQoS.iReqMeanThroughput	= RPacketQoS::EMeanThroughput2000;

	SetQoS.iMinMeanThroughput	= RPacketQoS::EMeanThroughput200;

	TPckg<RPacketQoS::TQoSGPRSRequested>		SetQoSPkg(SetQoS);

	TPckg<RPacketQoS::TQoSGPRSRequested>		notifyQoSPkg(notifyQoS);

	qoS.NotifyProfileChanged(stat2, notifyQoSPkg);

	qoS.SetProfileParameters(stat1, SetQoSPkg);

	User::WaitForRequest(stat2);

	User::WaitForRequest(stat1);

	TESTL(stat2.Int() == KErrNone);

	TESTL(stat1.Int() == KErrNone);

	qoS.Close();

	iPacketContext[0].Close();

    iPacketService.Close();

	iPhone.Close();

	return TestStepResult();

	}

//------------------------------------------------------------------

CGprsUnSupportedTest::CGprsUnSupportedTest()

/** Each test step initialises it's own name

*/

	{

	// store the name of this test case

	// this is the name that is used by the script file

	SetTestStepName(_L("GprsUnSupportedTest"));

	}

//------------------------------------------------------------------

TVerdict CGprsUnSupportedTest::doTestStepL( void )

/**

 * Tests all unsupported GPRS API calls to the TSY.

 */

    {

	SetSimtsyTestNumberL(0);

    TRequestStatus stat1;

	TESTL(iPhone.Open(iTelServer, KPhoneName)==KErrNone);

	TESTL(iPhone.Initialise()==KErrNone);

    TESTL(iPacketService.Open(iPhone ) == KErrNone);

    iPacketService.RejectActivationRequest(stat1);

	User::WaitForRequest(stat1);

	TESTL(stat1.Int()== KErrNotSupported);

    iPacketService.RejectActivationRequest(stat1);

    iPacketService.CancelAsyncRequest(EPacketRejectActivationRequest);

    User::WaitForRequest(stat1);

    TESTL(stat1.Int() == KErrNotSupported);

    RPacketService::TMSClass msClass;

    iPacketService.NotifyMSClassChange(stat1, msClass);

    User::WaitForRequest(stat1);

    TESTL(stat1.Int() == KErrNotSupported);

    RPacketService::TAttachMode attachMode = RPacketService::EAttachWhenPossible;

    TESTL(iPacketService.SetAttachMode(attachMode) == KErrNotSupported);

    TESTL(iPacketService.GetAttachMode(attachMode) == KErrNone);

    RPacketService::TRegistrationStatus registrationStatus = RPacketService::ERegisteredRoaming;

    iPacketService.GetNtwkRegStatus(stat1, registrationStatus);

  User::WaitForRequest(stat1);

	TESTL(stat1.Int() == KErrNone);

/*	//This test should not be here as this method is supported 

    iPacketService.NotifyChangeOfNtwkRegStatus(stat1, registrationStatus);

    User::WaitForRequest(stat1);

    TESTL(stat1.Int() == KErrNotSupported);

*/

    iPacketService.Close();

	iPhone.Close();

	return TestStepResult();

	}

/** Each test step initialises its own name

*/

CTestDynamicCaps::CTestDynamicCaps()

	{

	// store the name of this test case

	// this is the name that is used by the script file

	SetTestStepName(_L("TestDynamicCaps"));

	}

/**

 *  Tests the dynamic capabilities APIs: RPacketService::GetDynamicCaps and RPacketService::NotifyDynamicCapsChange

 *  @return Test step verdict.

 */

TVerdict CTestDynamicCaps::doTestStepL()

    {

    SetSimtsyTestNumberL(0);

    // Initialise and open the packet service...

    TESTL(iPhone.Open(iTelServer, KPhoneName)==KErrNone);

    TESTL(iPhone.Initialise()==KErrNone);

    TESTL(iPacketService.Open(iPhone ) == KErrNone);

    //

    // test GetDynamicCaps

    //

    RPacketService::TDynamicCapsFlags dynCapsFlags;

    TEST(iPacketService.GetDynamicCaps(dynCapsFlags) == KErrNone);

    TEST(dynCapsFlags == RPacketService::KCapsEGPRS);

    //

    // test NotifyDynamicCapsChange

    //

    TRequestStatus requestStatus;

    dynCapsFlags = 0;

    iPacketService.NotifyDynamicCapsChange(requestStatus, dynCapsFlags);

    User::WaitForRequest(requestStatus);

    TEST(requestStatus == KErrNone); 

    TEST(dynCapsFlags == RPacketService::KCapsHSDPA);

    //

    // test cancellation of NotifyDynamicCapsChange

    //

    iPacketService.NotifyDynamicCapsChange(requestStatus, dynCapsFlags);

    iPacketService.CancelAsyncRequest(EPacketNotifyDynamicCapsChange);

    User::WaitForRequest(requestStatus);

    TEST(requestStatus == KErrCancel);

    iPacketService.Close();

    iPhone.Close();

    return TestStepResult();

    }

//------------------------------------------------------------------

CGprsContextAttachTest::CGprsContextAttachTest()

/** Each test step initialises it's own name

*/

	{

	// store the name of this test case

	// this is the name that is used by the script file

	SetTestStepName(_L("GprsContextAttachTest"));

	}

//------------------------------------------------------------------

TVerdict CGprsContextAttachTest::doTestStepL( void )

/**

 * This tests the context attach and detach

 */

    {

	SetSimtsyTestNumberL(0);

    TRequestStatus                      stat1;

    TRequestStatus						stat2;

	TBuf<50>                            contextName;

    RPacketContext::TContextStatus        contextStatus;

	TESTL(iPhone.Open(iTelServer, KPhoneName)==KErrNone);

	TESTL(iPhone.Initialise()==KErrNone);

    TESTL(iPacketService.Open(iPhone ) == KErrNone);

	StartNTRasSimulation() ;

    TESTL(iPacketContext[0].OpenNewContext(iPacketService, contextName) == KErrNone);

    iPacketContext[0].NotifyStatusChange(stat1, contextStatus);

    iPacketContext[0].CancelAsyncRequest(EPacketContextNotifyStatusChange);

    User::WaitForRequest(stat1);

	TESTL(stat1.Int() == KErrCancel);

    iPacketContext[0].NotifyStatusChange(stat1, contextStatus);

	iPacketContext[0].Activate(stat2);

	User::WaitForRequest(stat1);

    TESTL(stat1.Int() == KErrNone);

    TESTL(contextStatus == RPacketContext::EStatusActivating);

    iPacketContext[0].NotifyStatusChange(stat1, contextStatus);	

	User::WaitForRequest(stat2);

	TESTL(stat2.Int()== KErrNone);

    User::WaitForRequest(stat1);

    TESTL(stat1.Int() == KErrNone);

    TESTL(contextStatus == RPacketContext::EStatusActive);

    iPacketContext[0].NotifyStatusChange(stat1, contextStatus);

	// need a few seconds between activating and deactivating - allow NTRAS server to respond

	User::After(100000L);

	iPacketContext[0].Deactivate(stat2);

	User::WaitForRequest(stat1);

    TESTL(stat1.Int() == KErrNone);

    TESTL(contextStatus == RPacketContext::EStatusDeactivating);

	iPacketContext[0].NotifyStatusChange(stat1, contextStatus);

	User::WaitForRequest(stat2);

	TESTL(stat2.Int() == KErrNone);

    User::WaitForRequest(stat1);

    TESTL(stat1.Int() == KErrNone);

    TESTL(contextStatus == RPacketContext::EStatusInactive);

    iPacketContext[0].Close();

    iPacketService.Close();

	iPhone.Close();

	return TestStepResult();

	}

//------------------------------------------------------------------

CGprsContextDeleteTest::CGprsContextDeleteTest()

/** Each test step initialises it's own name

*/

	{

	// store the name of this test case

	// this is the name that is used by the script file

	SetTestStepName(_L("GprsContextDeleteTest"));

	}

//------------------------------------------------------------------

TVerdict CGprsContextDeleteTest::doTestStepL( void )

/**

 *  This tests the context delete.

 */

    {

	SetSimtsyTestNumberL(0);

    TRequestStatus						stat1;

	TBuf<30>                            contextName;

    RPacketContext::TContextStatus		contextStatus;

	TESTL(iPhone.Open(iTelServer, KPhoneName)==KErrNone);

	TESTL(iPhone.Initialise()==KErrNone);

    TESTL(iPacketService.Open(iPhone ) == KErrNone);

    TESTL(iPacketContext[0].OpenNewContext(iPacketService, contextName) == KErrNone);

	iPacketContext[0].Delete(stat1);

	User::WaitForRequest(stat1);

	TESTL(stat1.Int() == KErrNone);

	iPacketContext[0].Activate(stat1);

	User::WaitForRequest(stat1);

	TESTL(stat1.Int() == KErrNotReady);

    TESTL(iPacketContext[0].GetStatus(contextStatus) == KErrNone);

	TESTL(contextStatus == RPacketContext::EStatusDeleted);

    iPacketContext[0].Close();

    iPacketService.Close();

	iPhone.Close();

	return TestStepResult();

	}

//------------------------------------------------------------------

CGprsContextLoanComport::CGprsContextLoanComport()

/** Each test step initialises it's own name

*/

	{

	// store the name of this test case

	// this is the name that is used by the script file

	SetTestStepName(_L("GprsContextLoanComport"));

	}

//------------------------------------------------------------------

TVerdict CGprsContextLoanComport::doTestStepL( void )

/**

 * This tests the comport loan.