--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/telephonyserverplugins/multimodetsy/test/Te_LoopBack/Te_LoopBackctxmess.cpp	Tue Feb 02 01:41:59 2010 +0200
@@ -0,0 +1,395 @@
+// 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();
+	}