--- /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 <e32test.h>
+#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();
+	}