diff -r 000000000000 -r 3553901f7fa8 telephonyserverplugins/multimodetsy/test/Te_LoopBack/Te_LoopBackCDataCallRemoteHangupDial.cpp --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/telephonyserverplugins/multimodetsy/test/Te_LoopBack/Te_LoopBackCDataCallRemoteHangupDial.cpp Tue Feb 02 01:41:59 2010 +0200 @@ -0,0 +1,325 @@ +// 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 answer and remote hang-up closely +// followed by a dial" scenario for the GSM Test Harness. This test is setup to +// answer a call and receive a data transfer. The call is then terminated from the +// remote end, and then must quickly respond by dialing the remote end back. Data is +// then transfered and the call is terminated again from 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 CTestDriveRemoteHangupDial and CTestRemoteHangupDial. +*/ + + +#include +#include "Te_LoopBackCDataCallRemoteHangupDial.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. +// +CTestDriveRemoteHangupDial* CTestDriveRemoteHangupDial::NewL(const TScriptList aScriptListEntry, + TInt aVarDelay) +/** + * 2 Phase Constructor + * + * This method creates an instance of CTestDriveRemoteHangupDial. The ConstructL for + * for CTestDriveRemoteHangupDial is inherited from and implemented in CTestBase. The + * ConstructL uses the CTestDriveRemoteHangupDial object to load ond open the two iPhone + * objects, one from each server. + * + * @param aScriptListEntry: enum indicating which script to use for this test. + * @param aVarDelay: integer indicating variable delay value, in seconds, to be used with an EWait script + * @leave Leaves if a failure occurs during connect or open of the iPhone by ConstructL. + * @return pointer to the instance of CTestDriveRemoteHangupDial. + */ + { + CTestDriveRemoteHangupDial* aA=new(ELeave) CTestDriveRemoteHangupDial(aScriptListEntry, aVarDelay); + CleanupStack::PushL(aA); + aA->ConstructL(); + CleanupStack::Pop(); + return aA; + } + + +CTestDriveRemoteHangupDial::CTestDriveRemoteHangupDial(const TScriptList aScriptListEntry, + TInt aVarDelay + ) : iScriptListEntry(aScriptListEntry), + iVarDelay(aVarDelay) +/** + * This method is the constructor for CTestDriveRemoteHangupDial. + * + * @param aScriptListEntry: enum indicating which script to use for this test. + * @param aVarDelay: integer indicating variable delay value, in seconds, to be used with an EWait script + * @note Initializes private data "aScriptListEntry" to received parameter. + * @note Initializes private data "aVarDelay" to received parameter. + */ + {} + +TInt CTestDriveRemoteHangupDial::RunTestL() +/** + * This method is invoked to start a "Data Call answer and remote hang-up closely followed by + * a dial" test. This method sets the CTestBase current script to run and the CTestBase variable + * delay value to use for an EWait + * script and then 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; + iVariableDelay=iVarDelay; + return StartEmulatorL(); + } + +TInt CTestDriveRemoteHangupDial::DriveETelApiL() +/** + * This method contains the real meat of the Client-side "Data Call answer and remote + * hang-up closely followed by a dial" test code. This method sets up to answer a + * call and receive a data transfer. The call is then terminated from the remote end, + * and then must quickly respond by dialing the remote end back. Data is then + * transfered and the call is terminated again from 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); +// +// Initialization complete +// + +// Now wait for an incoming call... + INFO_PRINTF1(_L("Wait to Answer incoming Data Call\n")); + TESTL(call.AnswerIncomingCall()==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,KWriteTestRemoteHangupData); + 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,KWriteTestRemoteHangupData); + 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); + + // Now perform the user specified delay before making outgoing call... + INFO_PRINTF2(_L("Start the %d sec delay before making outgoing call\n"), iVarDelay); + User::After( (TTimeIntervalMicroSeconds32)(iVarDelay*1000000L) ); + INFO_PRINTF2(_L("End of the delay before making outgoing call\n"), iVarDelay); + + // Now perform the outgoing call... + // dial + _LIT(KDialString,"+1234"); + TESTL(call.Dial(KDialString)==KErrNone); + + INFO_PRINTF1(_L("Loan Data Call Port to Comm Server\n")); + TESTL(call.LoanDataPort(commPort)==KErrNone); + + TESTL(cs.Connect()==KErrNone); + + TESTL(port.Open(cs,commPort.iPort,ECommShared)==KErrNone); + + // Transfer data + port.Write(stat,KWriteTestRemoteHangupData2); + 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,KWriteTestRemoteHangupData2); + 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 +// +CTestRemoteHangupDial* CTestRemoteHangupDial::NewL(const TScript* aScript) +/** + * 2 Phase Constructor + * + * This method creates an instance of CTestRemoteHangupDial. + * + * @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 CTestRemoteHangupDial. + */ + { + CTestRemoteHangupDial* aA=new(ELeave) CTestRemoteHangupDial(aScript); + CleanupStack::PushL(aA); + aA->ConstructL(); + CleanupStack::Pop(); + return aA; + } + +CTestRemoteHangupDial* CTestRemoteHangupDial::NewL(const TScript* aScript, const TInt aVarDelay) +/** + * 2 Phase Constructor + * + * This method creates an instance of CTestRemoteHangupDial. + * + * @param aScript: pointer to the specifics of the script to run. + * @param aVarDelay: time delay + * @leave Leaves if out of memory when attempting to create. + * @return pointer to the instance of CTestRemoteHangupDial. + */ + { + CTestRemoteHangupDial* aA=new(ELeave) CTestRemoteHangupDial(aScript, aVarDelay); + CleanupStack::PushL(aA); + aA->ConstructL(); + CleanupStack::Pop(); + return aA; + } + +CTestRemoteHangupDial::CTestRemoteHangupDial(const TScript* aScript) : iScript(aScript) +/** + * This method is the constructor for CTestRemoteHangupDial. + * + * @param aScript: pointer to the specifics of the script to run. + * @note Initializes private data "aScript" to received parameter. + */ + {} + +CTestRemoteHangupDial::CTestRemoteHangupDial(const TScript* aScript, const TInt aVarDelay) : CATScriptEng(aVarDelay), iScript(aScript) +/** + * This method is the constructor for CTestRemoteHangupDial. + * + * @param aScript: pointer to the specifics of the script to run. + * @param aVarDelay: user specified time delay + * @note Initializes private data "aScript" to received parameter. + */ + {} + +void CTestRemoteHangupDial::ConstructL() +/** + * This method is used to implement the 2 Phase Constructor for CTestRemoteHangupDial. + * This method uses the CATBase ConstructL to configure the port to be used. + * + * @leave Leaves if CATBase leaves. + */ + { + CATScriptEng::ConstructL(); + } + +TInt CTestRemoteHangupDial::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 CTestRemoteHangupDial::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 CTestRemoteHangupDial::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(); + }