void CTestUTCSort::CreateServiceAndAccountL()
{
CEmailAccounts* accounts = CEmailAccounts::NewL();
CleanupStack::PushL(accounts);
CImSmtpSettings* settings=new(ELeave) CImSmtpSettings();
CleanupStack::PushL(settings);
CImIAPPreferences* smtpIAP = CImIAPPreferences::NewLC();
TSmtpAccount smtpAccountId=accounts->CreateSmtpAccountL(_L("SMTP"),*settings, *smtpIAP, EFalse);
CleanupStack::PopAndDestroy(smtpIAP);
CleanupStack::PopAndDestroy(settings);
CleanupStack::PopAndDestroy(accounts);
}
void CMtfTestActionCreatePop3Service::ExecuteActionL()
{
TestCase().INFO_PRINTF2(_L("Test Action %S start..."), &KTestActionCreatePop3Service);
// need to create an account in the central repository and make it the default account
HBufC* paramAccountName = ObtainParameterReferenceL<HBufC>( TestCase(),ActionParameters().Parameter(6) );
HBufC* settingsFile = ObtainParameterReferenceL<HBufC>( TestCase(),ActionParameters().Parameter(7) );
CEmailAccounts *emailAccounts = CEmailAccounts::NewLC();
CImIAPPreferences *smtpPrefs = CImIAPPreferences::NewLC();
CImSmtpSettings *smtpSettings = new (ELeave) CImSmtpSettings;
CleanupStack::PushL(smtpSettings);
CImIAPPreferences *popPrefs = CImIAPPreferences::NewLC();
CImPop3Settings *popSettings = new (ELeave) CImPop3Settings;
CleanupStack::PushL(popSettings);
emailAccounts->PopulateDefaultPopSettingsL(*popSettings, *popPrefs);
emailAccounts->PopulateDefaultSmtpSettingsL(*smtpSettings, *smtpPrefs );
if( settingsFile->Compare( _L("none") ) != 0 )
{
CMtfTestActionUtilsPopScripts::ReadPopSettingsFromConfigurationFileL(
TestCase(), settingsFile->Des(), *popSettings, *popPrefs, *smtpSettings, *smtpPrefs);
}
TPopAccount popAccount = emailAccounts->CreatePopAccountL(paramAccountName->Des(), *popSettings, *popPrefs, EFalse);
TSmtpAccount smtpAccount = emailAccounts->CreateSmtpAccountL(popAccount, *smtpSettings, *smtpPrefs, EFalse);
emailAccounts->SetDefaultSmtpAccountL(smtpAccount);
// need to obtain the service id from the account details and save this as the service id
TMsvId paramServiceId = popAccount.iPopService;
CleanupStack::PopAndDestroy(5, emailAccounts); // popSettings, popPrefs, smtpSettings, smtpPrefs, emailAccounts
StoreParameterL<TMsvId>( TestCase(),paramServiceId, ActionParameters().Parameter(8) );
TestCase().INFO_PRINTF2(_L("Test Action %S completed."), &KTestActionCreatePop3Service);
TestCase().ActionCompletedL(*this);
}
