telephonyserverplugins/multimodetsy/test/Te_LoopBack/Te_LoopBackCDataCallRemoteTerm.cpp
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/telephonyserverplugins/multimodetsy/test/Te_LoopBack/Te_LoopBackCDataCallRemoteTerm.cpp Tue Feb 02 01:41:59 2010 +0200
@@ -0,0 +1,240 @@
+// 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 initiates the "Data Call set-up, data transfer and remote termination"
+// scenario for the MultiMode Test Harness. This test is setup to make an outgoing
+// data-call and transfer data to the remote end. After the data transfer, the call
+// is terminated by the remote end. The client (application) side must start the
+// emulator and drive the ETel API. The emulator side runs the designated script.
+//
+//
+
+/**
+ @file
+ @note There are mulitple classes implemented in this file.
+ @note These classes are CTestDriveDataCallRemoteTerm and CTestDataCallRemoteTerm.
+*/
+
+#include <e32test.h>
+#include "Te_LoopBackCDataCallRemoteTerm.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.
+//
+CTestDriveDataCallRemoteTerm* CTestDriveDataCallRemoteTerm::NewL(const TScriptList aScriptListEntry)
+/**
+ * 2 Phase Constructor
+ *
+ * This method creates an instance of CTestDriveDataCallRemoteTerm. The ConstructL for
+ * for CTestDriveDataCallRemoteTerm is inherited from and implemented in CTestBase. The
+ * ConstructL uses the CTestDriveDataCallRemoteTerm object to load ond open the two iPhone
+ * objects, one from each server.
+ *
+ * @param aScriptListEntry: enum indicating which script to use for this test.
+ * @leave Leaves if a failure occurs during connect or open of the iPhone by ConstructL.
+ * @return pointer to the instance of CTestDriveDataCallRemoteTerm.
+ */
+ {
+ CTestDriveDataCallRemoteTerm* aA=new(ELeave) CTestDriveDataCallRemoteTerm(aScriptListEntry);
+ CleanupStack::PushL(aA);
+ aA->ConstructL();
+ CleanupStack::Pop();
+ return aA;
+ }
+
+CTestDriveDataCallRemoteTerm::CTestDriveDataCallRemoteTerm(const TScriptList aScriptListEntry) : iScriptListEntry(aScriptListEntry)
+/**
+ * This method is the constructor for CTestDriveDataCallRemoteTerm.
+ *
+ * @param aScriptListEntry: enum indicating which script to use for this test.
+ * @note Initializes private data "aScriptListEntry" to received parameter.
+ */
+ {}
+
+TInt CTestDriveDataCallRemoteTerm::RunTestL()
+/**
+ * This method is invoked to start a "Data Call set-up, data transfer and remote
+ * termination" test. This method starts the modem emulator side of the test.
+ *
+ * @return KErrNone when no error exists.
+ * @return KErrAlreadyExists is returned if modem emulator exists and retry limit expires.
+ * @return Variable depending on return value from test's DriveETelApiL method and thread monitoring.
+ */
+ {
+ iCurrentScript=iScriptListEntry;
+ return StartEmulatorL();
+ }
+
+TInt CTestDriveDataCallRemoteTerm::DriveETelApiL()
+/**
+ * This method contains the real meat of the Client-side the "Data Call set-up, data
+ * transfer and remote termination" test code. This method sets up to make a data-call
+ * and then transfer data. After the data transfer, the call is terminated by the remote end.
+ *
+ * @return KErrNone.
+ */
+ {
+ _LIT(KMmPhoneName,"GsmPhone1");
+ _LIT(KDataLineName,"Data");
+
+ INFO_PRINTF1(_L("Opening Mobile Phone\n"));
+ RMobilePhone mmPhone;
+ TESTL(mmPhone.Open(iServer,KMmPhoneName)==KErrNone);
+
+ RLine line;
+ INFO_PRINTF1(_L("Opening Data Line\n"));
+ TESTL(line.Open(iPhone,KDataLineName)==KErrNone);
+
+ INFO_PRINTF1(_L("Opening New Data Call\n"));
+ RCall call;
+ TESTL(call.OpenNewCall(line)==KErrNone);
+
+ TRequestStatus reqStatus;
+ RMobilePhone::TMMTableSettings tableSettings;
+ tableSettings.iLocId=KInternetAccessPoint;
+ RMobilePhone::TMMTableSettingsPckg tableSettingsPckg(tableSettings);
+ iPhone.InitialiseMM(reqStatus , tableSettingsPckg);
+ User::WaitForRequest(reqStatus);
+ TESTL(reqStatus == KErrNone);
+
+ // dial
+ _LIT(KDialString,"+1234");
+ TESTL(call.Dial(KDialString)==KErrNone);
+
+ INFO_PRINTF1(_L("Loan Data Call Port to Comm Server\n"));
+ RCall::TCommPort commPort;
+ TESTL(call.LoanDataPort(commPort)==KErrNone);
+
+ RCommServ cs;
+ TESTL(cs.Connect()==KErrNone);
+
+ RComm port;
+ TESTL(port.Open(cs,commPort.iPort,ECommShared)==KErrNone);
+
+ // Transfer data
+ TRequestStatus stat;
+ port.Write(stat,KWriteTestRemoteData);
+ User::WaitForRequest(stat);
+ TESTL(stat.Int()==KErrNone);
+
+ //-- a small delay between successive writes to the COM port
+ //-- I had to insert it to fix mistiming between script execution and sending AT-commands to modem
+ User::After(500000);
+
+ port.Write(stat,KWriteTestRemoteData);
+ User::WaitForRequest(stat);
+ TESTL(stat.Int()==KErrNone);
+
+ // Remote termination of call should have occurred in scripts,
+ // close port and comm server
+ port.Close();
+ cs.Close();
+ INFO_PRINTF1(_L("Reclaim Data Call Port from Comm Server\n"));
+ TESTL(call.RecoverDataPort()==KErrNone);
+
+ TInt32 ss;
+ TInt8 bar=0;
+ mmPhone.GetSignalStrength(stat,ss,bar);
+ User::WaitForRequest(stat);
+ TESTL(stat==KErrNone);
+
+ // close iPhone, line and call
+ mmPhone.Close();
+ line.Close();
+ call.Close();
+ return KErrNone;
+ }
+
+//
+// Emulator-side class
+// With the assistance of the base class, this class must run the designated script
+//
+CTestDataCallRemoteTerm* CTestDataCallRemoteTerm::NewL(const TScript* aScript)
+/**
+ * 2 Phase Constructor
+ *
+ * This method creates an instance of CTestDataCallRemoteTerm.
+ *
+ * @param aScript: pointer to the specifics of the script to run.
+ * @leave Leaves if out of memory when attempting to create.
+ * @return pointer to the instance of CTestDataCallRemoteTerm.
+ */
+ {
+ CTestDataCallRemoteTerm* aA=new(ELeave) CTestDataCallRemoteTerm(aScript);
+ CleanupStack::PushL(aA);
+ aA->ConstructL();
+ CleanupStack::Pop();
+ return aA;
+ }
+
+CTestDataCallRemoteTerm::CTestDataCallRemoteTerm(const TScript* aScript) : iScript(aScript)
+/**
+ * This method is the constructor for CTestDataCallRemoteTerm.
+ *
+ * @param aScript: pointer to the specifics of the script to run.
+ * @note Initializes private data "aScript" to received parameter.
+ */
+ {}
+
+void CTestDataCallRemoteTerm::ConstructL()
+/**
+ * This method is used to implement the 2 Phase Constructor for CTestDataCallRemoteTerm.
+ * This method uses the CATBase ConstructL to configure the port to be used.
+ *
+ * @leave Leaves if CATBase leaves.
+ */
+ {
+ CATScriptEng::ConstructL();
+ }
+
+TInt CTestDataCallRemoteTerm::Start()
+/**
+ * This method is defined as a pure virtual function that must be implemented.
+ * This method is currently not used by the Etel regression test harness.
+ * Instead of using this method to start the scripts, the CTestTxMess::Start()
+ * method is used to start the scripts. The CTestTxMess::Start() is called by
+ * the responder thread of the scripting engine to start the execution of the script.
+ *
+ * @return KErrNone.
+ */
+ {
+ StartScript(iScript);
+ return KErrNone;
+ }
+
+void CTestDataCallRemoteTerm::SpecificAlgorithmL(TInt /* aParam */)
+/**
+ * This method is defined as a pure virtual function that must be implemented.
+ * This method is currently not used by the Etel regression test harness.
+ * Instead of using this method to perform an algorithm specific to this test,
+ * the CTestTxMess::SpecificAlgorithm() method is used. The CTestTxMess::SpecificAlgorithm()
+ * is called by the scripting engine to perform the test specific algorithm.
+ */
+ {
+ }
+
+void CTestDataCallRemoteTerm::Complete(TInt aError)
+/**
+ * This method is defined as a pure virtual function that must be implemented.
+ * This method is currently not used by the Etel regression test harness.
+ * Instead of using this method to end the scripts, the CTestTxMess::Complete()
+ * method is used to end the scripts. The CTestTxMess::Complete() is called by
+ * the scripting engine to end the execution of the script.
+ */
+ {
+ iReturnValue=aError;
+ CActiveScheduler::Stop();
+ }