TInt CTestDriveOOMVoiceCall::DoTestL(TInt aAllocFailNumber)
{
_LIT(KPhoneModule,"MM");
_LIT(KPhoneName, "GsmPhone1");
_LIT(KLineName, "Voice");
RTelServer telServer;
TInt ret=telServer.Connect();
if(ret!=KErrNone)
return ret;
telServer.__DbgFailNext(aAllocFailNumber);
ret=telServer.LoadPhoneModule(KPhoneModule);
if(ret!=KErrNone)
{
telServer.Close();
return ret;
}
RMobilePhone mobilePhone;
ret=mobilePhone.Open(telServer, KPhoneName);
if(ret!=KErrNone)
{
mobilePhone.Close();
telServer.Close();
return ret;
}
RLine line;
INFO_PRINTF1(_L("Opening Voice Line"));
ret=line.Open(mobilePhone,KLineName);
if(ret!=KErrNone)
{
line.Close();
mobilePhone.Close();
telServer.Close();
return ret;
}
INFO_PRINTF1(_L("Opening New Voice Call"));
RCall call;
ret=call.OpenNewCall(line);
if(ret!=KErrNone)
{
call.Close();
line.Close();
mobilePhone.Close();
telServer.Close();
return ret;
}
INFO_PRINTF1(_L("Initialise the Phone..."));
TRequestStatus reqStatus;
RMobilePhone::TMMTableSettings tableSettings;
tableSettings.iLocId=KInternetAccessPoint;
RMobilePhone::TMMTableSettingsPckg tableSettingsPckg(tableSettings);
mobilePhone.InitialiseMM(reqStatus, tableSettingsPckg);
User::WaitForRequest(reqStatus);
TESTL(reqStatus == KErrNone);
if(reqStatus!=KErrNone)
{
call.Close();
line.Close();
mobilePhone.Close();
telServer.Close();
return ret;
}
INFO_PRINTF1(_L("Dial a number..."));
_LIT(KDialString, "+1234");
ret=call.Dial(KDialString);
if(ret!=KErrNone)
{
call.Close();
line.Close();
mobilePhone.Close();
telServer.Close();
return ret;
}
INFO_PRINTF1(_L("Hangup a call..."));
ret=call.HangUp();
if(ret!=KErrNone)
{
call.Close();
line.Close();
mobilePhone.Close();
telServer.Close();
return ret;
}
INFO_PRINTF1(_L("Close the call, line & iPhone..."));
call.Close();
line.Close();
mobilePhone.Close();
return KErrNone;
}
