// Copyright (c) 1997-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 file implements various transmit tests.  The scripts driven include new and old

// pdu formats and existence and non-existence of prefixes and sca information.

// See CDataCall.cpp for fully documented test scenario.

// 

//

/**

 @file

*/

#include <e32test.h>

#include <mmretrieve.h>

#include <etelmm.h>

#include "Te_LoopBackctxmess.h"

#include "../../hayes/TSYCONFG.H" // for KInternetAccessPoint

//

// Test-side class

// With the assistance of the base class, this class must start the emulator

// and drive the ETel API.

//

CTestDriveTxMess* CTestDriveTxMess::NewL(const TScriptList aScriptListEntry)

	{

	CTestDriveTxMess* aA = new (ELeave) CTestDriveTxMess(aScriptListEntry);

	CleanupStack::PushL(aA);

	aA->ConstructL();

	CleanupStack::Pop();

	return (aA);

	}

CTestDriveTxMess::CTestDriveTxMess(const TScriptList aScriptListEntry) :

	iScriptListEntry(aScriptListEntry)

	{}

CTestDriveTxMess::~CTestDriveTxMess()

	{}

TInt CTestDriveTxMess::RunTestL()

	{

	iCurrentScript = iScriptListEntry;

	return (StartEmulatorL());

	}

TInt CTestDriveTxMess::DriveETelApiL()

//

// This function contains the real meat of the Client-side test code

//

	{

	// Sending SMS in Multimode ETel API is not vastly different to the 

	// GSM API version. There are slight differences because the TSms class

	// no longer exists. The TPDU data is split from the message attributes

	// and clients will have to create a descriptor to hold the TPDU in 8-bit

	// data format. The client will also create and populate an instance of a

	// "message attribute" class. There is only one method SendMessage in the

	// Multimode ETel API and this is the equivalent of RSmsMessaging::SendMessage

	// and RAdvGsmSmsMessaging:: SendAdvSmsMessage. The difference between the

	// two GSM versions is that the latter also returned the submit report for

	// the sent SMS. In Multimode ETel API, the client can ask for the submit

	// report by using the TMobileSmsSendAttributesV1 class within the 

	// RMobileSmsMessaging::SendMessage.

	TRequestStatus reqStatus1;

	INFO_PRINTF1(_L("Opening SMS Messaging...\n"));

	RMobileSmsMessaging sms;

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

	INFO_PRINTF1(_L("Initialising the Phone...\n"));

	RMobilePhone::TMMTableSettings tableSettings;

	tableSettings.iLocId=KInternetAccessPoint;

	RMobilePhone::TMMTableSettingsPckg tableSettingsPckg(tableSettings);

	iPhone.InitialiseMM(reqStatus1, tableSettingsPckg); 	

	User::WaitForRequest(reqStatus1);

	TESTL(reqStatus1 == KErrNone);

// Successful send...

	TPtrC8 pduA(KTestTxPduA, sizeof(KTestTxPduA));  // has "SCA Prepended" set by default

	RMobileSmsMessaging::TMobileSmsSendAttributesV1 smsSendAttributes;

	//  set the flags according to TMobileSmsAttributeFlags

	smsSendAttributes.iFlags =

		(RMobileSmsMessaging::KSmsDataFormat		||

		 RMobileSmsMessaging::KGsmServiceCentre		||

		 RMobileSmsMessaging::KRemotePartyInfo		||

		 RMobileSmsMessaging::KStorageLocation		||

		 RMobileSmsMessaging::KIncomingStatus		||

		 RMobileSmsMessaging::KMessageReference		||

		 RMobileSmsMessaging::KGsmSubmitReport		||

		 RMobileSmsMessaging::KMoreToSend);

	smsSendAttributes.iMore = EFalse;

	RMobileSmsMessaging::TMobileSmsSendAttributesV1Pckg smsSendAttributesPckg(smsSendAttributes);

    sms.SendMessage(reqStatus1, pduA, smsSendAttributesPckg);

	User::WaitForRequest(reqStatus1);

	TESTL(reqStatus1 == KErrNone);

	smsSendAttributes = smsSendAttributesPckg();

	TESTL(smsSendAttributes.iMsgRef == KMsgRefA);

	INFO_PRINTF1(_L("Closing SMS Messaging...\n"));

	sms.Close();

	User::After(1000000L);

	return (KErrNone);

	}

//

// Test New Standard PDU messages

//

CTestDriveTxNewStdMess* CTestDriveTxNewStdMess::NewL(const TScriptList aScriptListEntry)

	{

	CTestDriveTxNewStdMess* aA = new (ELeave) CTestDriveTxNewStdMess(aScriptListEntry);

	CleanupStack::PushL(aA);

	aA->ConstructL();

	CleanupStack::Pop();

	return (aA);

	}

CTestDriveTxNewStdMess::CTestDriveTxNewStdMess(const TScriptList aScriptListEntry) :

	iScriptListEntry(aScriptListEntry)

	{}

CTestDriveTxNewStdMess::~CTestDriveTxNewStdMess()

	{}

TInt CTestDriveTxNewStdMess::RunTestL()

	{

	iCurrentScript = iScriptListEntry;

	return (StartEmulatorL());

	}

TInt CTestDriveTxNewStdMess::DriveETelApiL()

//

// This function contains the real meat of the Client-side test code

//

	{

	TRequestStatus reqStatus;

	INFO_PRINTF1(_L("Initialising the Phone...\n"));

	RMobilePhone::TMMTableSettings tableSettings;

	tableSettings.iLocId=KInternetAccessPoint;

	RMobilePhone::TMMTableSettingsPckg tableSettingsPckg(tableSettings);

	iPhone.InitialiseMM(reqStatus , tableSettingsPckg); 	

	User::WaitForRequest(reqStatus);

	TESTL(reqStatus == KErrNone);

	INFO_PRINTF1(_L("Opening SMS Messaging...\n"));

	RMobileSmsMessaging sms;

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

	TPtrC8 pduA(KTestTxPduA, sizeof(KTestTxPduA));  // has "SCA Prepended" set by default

	RMobileSmsMessaging::TMobileSmsSendAttributesV1 smsSendAttributes;

	//  set the flags according to TMobileSmsAttributeFlags

	smsSendAttributes.iFlags =

		(RMobileSmsMessaging::KSmsDataFormat		||

		 RMobileSmsMessaging::KGsmServiceCentre		||

		 RMobileSmsMessaging::KRemotePartyInfo		||

		 RMobileSmsMessaging::KStorageLocation		||

		 RMobileSmsMessaging::KIncomingStatus		||

		 RMobileSmsMessaging::KMessageReference		||

		 RMobileSmsMessaging::KGsmSubmitReport 		||

		 RMobileSmsMessaging::KMoreToSend);

	smsSendAttributes.iMore = EFalse;

	RMobileSmsMessaging::TMobileSmsSendAttributesV1Pckg smsSendAttributesPckg(smsSendAttributes);

    sms.SendMessage(reqStatus, pduA, smsSendAttributesPckg);

	User::WaitForRequest(reqStatus);

	TESTL(reqStatus == KErrNone);

	smsSendAttributes = smsSendAttributesPckg();

	TESTL(smsSendAttributes.iMsgRef == KMsgRefA);

	INFO_PRINTF1(_L("Closing SMS Messaging...\n"));

	sms.Close();

	return (KErrNone);

	}

//

// Test transmit with combination of SCA prefix on PDU, and setting of default SCA

//

CTestDriveTxWithScaCombo* CTestDriveTxWithScaCombo::NewL(const TScriptList aScriptListEntry,TBool aSendScaPrefix,TBool aSetDefaultSca,TBool aNewPduFormat)

	{

	CTestDriveTxWithScaCombo* aA = new (ELeave) CTestDriveTxWithScaCombo(aScriptListEntry,aSendScaPrefix,aSetDefaultSca,aNewPduFormat);

	CleanupStack::PushL(aA);

	aA->ConstructL();

	CleanupStack::Pop();

	return (aA);

	}

CTestDriveTxWithScaCombo::CTestDriveTxWithScaCombo(const TScriptList aScriptListEntry,TBool aSendScaPrefix,TBool aSetDefaultSca,TBool aNewPduFormat)

	: iScriptListEntry(aScriptListEntry),

	  iSendScaPrefix(aSendScaPrefix),

	  iSetDefaultSca(aSetDefaultSca),

	  iNewPduFormat(aNewPduFormat)

	{}

CTestDriveTxWithScaCombo::~CTestDriveTxWithScaCombo()

	{}

TInt CTestDriveTxWithScaCombo::RunTestL()

	{

	iCurrentScript = iScriptListEntry;

	return (StartEmulatorL());

	}

TInt CTestDriveTxWithScaCombo::DriveETelApiL()

//

// This function contains the real meat of the Client-side test code

//

	{

	TRequestStatus reqStatus;

	INFO_PRINTF1(_L("Initialising the Phone...\n"));

	RMobilePhone::TMMTableSettings tableSettings;

	tableSettings.iLocId=KInternetAccessPoint;

	RMobilePhone::TMMTableSettingsPckg tableSettingsPckg(tableSettings);

	iPhone.InitialiseMM(reqStatus , tableSettingsPckg); 	

	User::WaitForRequest(reqStatus);

	TESTL(reqStatus == KErrNone);

	INFO_PRINTF1(_L("Opening SMS Messaging...\n"));

	RMobileSmsMessaging sms;

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

	TPtrC8 pduA(KTestTxPduA, sizeof(KTestTxPduA));  // has "SCA Prepended" set by default

	TPtrC8 pduB(KTestTxPduB, sizeof(KTestTxPduB));  

	RMobileSmsMessaging::TMobileSmsSendAttributesV1 smsSendAttributes;

	//  set the flags according to TMobileSmsAttributeFlags

	smsSendAttributes.iFlags =

		(RMobileSmsMessaging::KSmsDataFormat		||

		 RMobileSmsMessaging::KGsmServiceCentre		||

		 RMobileSmsMessaging::KRemotePartyInfo		||

		 RMobileSmsMessaging::KStorageLocation		||

		 RMobileSmsMessaging::KIncomingStatus		||

		 RMobileSmsMessaging::KMessageReference		||

		 RMobileSmsMessaging::KGsmSubmitReport		||

		 RMobileSmsMessaging::KMoreToSend);

	smsSendAttributes.iMore = EFalse;

	RMobileSmsMessaging::TMobileSmsSendAttributesV1Pckg smsSendAttributesPckg(smsSendAttributes);

 	TRequestStatus  reqStatus1;

 	sms.SendMessage(reqStatus1, pduA, smsSendAttributesPckg);

 	User::WaitForRequest(reqStatus1);

	TESTL(reqStatus1 == KErrNone);

	smsSendAttributes = smsSendAttributesPckg();

 	TESTL(smsSendAttributes.iMsgRef == KMsgRefA);

// Another success...

    sms.SendMessage(reqStatus1, pduB, smsSendAttributesPckg);

	User::WaitForRequest(reqStatus1);

	TESTL(reqStatus1 == KErrNone);

	smsSendAttributes = smsSendAttributesPckg();

 	TESTL(smsSendAttributes.iMsgRef == KMsgRefB);

	INFO_PRINTF1(_L("Closing SMS Messaging...\n"));

	sms.Close();

    return (KErrNone);

	}

//

// Test transmit with combination of SCA prefix on PDU, and setting of default SCA

//

CTestDriveTxRx* CTestDriveTxRx::NewL(const TScriptList aScriptListEntry)

	{

	CTestDriveTxRx* aA = new (ELeave) CTestDriveTxRx(aScriptListEntry);

	CleanupStack::PushL(aA);

	aA->ConstructL();

	CleanupStack::Pop();

	return (aA);

	}

CTestDriveTxRx::CTestDriveTxRx(const TScriptList aScriptListEntry)

	: iScriptListEntry(aScriptListEntry)

	{}

CTestDriveTxRx::~CTestDriveTxRx()

	{}

TInt CTestDriveTxRx::RunTestL()

	{

	iCurrentScript = iScriptListEntry;

	return (StartEmulatorL());

	}

TInt CTestDriveTxRx::DriveETelApiL()

//

// This function contains the real meat of the Client-side test code

//

	{

	TRequestStatus reqStatus1;//, reqStatus2;

	INFO_PRINTF1(_L("Initialising the Phone...\n"));

	RMobilePhone::TMMTableSettings tableSettings;

	tableSettings.iLocId=KInternetAccessPoint;

	RMobilePhone::TMMTableSettingsPckg tableSettingsPckg(tableSettings);

	iPhone.InitialiseMM(reqStatus1 , tableSettingsPckg); 	

	User::WaitForRequest(reqStatus1);

	TESTL(reqStatus1 == KErrNone);

	INFO_PRINTF1(_L("Opening SMS Messaging...\n"));

	RMobileSmsMessaging sms;

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

	INFO_PRINTF1(_L("Closing SMS Messaging...\n"));

	sms.Close();

	return (KErrNone);

	}

//

// Emulator-side class

// With the assistance of the base class, this class must run the designated script

//

CTestTxMess* CTestTxMess::NewL(const TScript* aScript)

	{

	CTestTxMess* aA = new (ELeave) CTestTxMess(aScript);

	CleanupStack::PushL(aA);

	aA->ConstructL();

	CleanupStack::Pop();

	return (aA);

	}

CTestTxMess* CTestTxMess::NewL(const TScript* aScript, const TInt aVarDelay)

	{

	CTestTxMess* aA = new(ELeave) CTestTxMess(aScript, aVarDelay);

	CleanupStack::PushL(aA);

	aA->ConstructL();

	CleanupStack::Pop();

	return (aA);

	}

CTestTxMess::CTestTxMess(const TScript* aScript) :

	CATScriptEng(), iScript(aScript)

	{}

CTestTxMess::CTestTxMess(const TScript* aScript, const TInt aVarDelay) :

	CATScriptEng(aVarDelay), iScript(aScript)

	{}

void CTestTxMess::ConstructL()

	{

	CATScriptEng::ConstructL();

	}

CTestTxMess::~CTestTxMess()

	{}

TInt CTestTxMess::Start()

	{

	StartScript(iScript);

	return (KErrNone);

	}

void CTestTxMess::SpecificAlgorithmL(TInt /* aParam */)

	{

	}

void CTestTxMess::Complete(TInt aError)

	{

	iReturnValue = aError;

	CActiveScheduler::Stop();

	}