@file

    @test

#include <Gsmumsg.h>

#include <simtsy.h>

#include "WapProtSuiteDefs.h"

    {

    CWapProtSuiteStepBase::doTestStepPreambleL();

    OpenSocketL(iSocketServer, iSocket);

    SetCodingSchemeL();

    INFO_PRINTF1(_L("Coding scheme set is successful ..."));

    SetMessageTypeL();

    INFO_PRINTF1(_L("Message type setup is successful ..."));

    ReadWapPortSettingsL(iWapAddr, KWapPort);

    INFO_PRINTF1(_L("Reading Wap port setting is successful ..."));

    //  Bind

    User::LeaveIfError(iSocket.Bind(iWapAddr));

    TTimeIntervalMicroSeconds32 InitPause=9000000;  //Required Pause to Allow SMSStack to Complete its Async Init

    User::After(InitPause);                         //call to the TSY and finish its StartUp.

    return TestStepResult();

    }

/**

Postamble for all status report steps

*/

TVerdict CTestWapStatusReports::doTestStepPostambleL()

    {

    iSocket.Close();

    CWapProtSuiteStepBase::doTestStepPostambleL();

    return TestStepResult();

    }

    {

    //	Indicating to the protocol that it's a new client

    //INFO_PRINTF1(_L("Socket set option for indicating new client"));

    //User::LeaveIfError(iSocket.SetOpt(KWapSmsOptionNewStyleClient,KWapSmsOptionLevel, 0));

    //Get the data 

    TPtrC textData;

    GetStringFromConfig(ConfigSection(),_L("message"), textData);

    //Set the buffer

    TBuf8<1000> data;

    data.Copy(textData);

    //Send the message

    TRequestStatus status;

    iSocket.SendTo(data, iWapAddr, 0, status);

    User::WaitForRequest(status);

    User::LeaveIfError(status.Int());

    INFO_PRINTF1(_L("Message sent!"));

    }

    {

    //Get the port number from the ini file

    GetIntFromConfig(ConfigSection(),_L("expectedStatus"), iExpectedStatus);

    }

    {

    INFO_PRINTF1(_L("waiting for incoming status report...") );

    WaitForRecvL(iStatusReportSocket);

    CSmsMessage* smsMessage = RecvSmsL(iStatusReportSocket);

    INFO_PRINTF1(_L("incoming SMS") );

    //Check the status report

    CleanupStack::PushL(smsMessage);

    TBool isSR = (smsMessage->Type()==CSmsPDU::ESmsStatusReport);

    if (isSR)

        {

        INFO_PRINTF1(_L("Received status report"));

        TSmsServiceCenterAddress telephoneNumber=smsMessage->ToFromAddress();

        }

    else

        {

        INFO_PRINTF1(_L("Received SMS is NOT a Status report!"));

        }

    TEST(isSR);

    //Get the status report

    CSmsStatusReport& statusReport = static_cast<CSmsStatusReport&>(smsMessage->SmsPDU()); 

    TSmsStatus::TSmsStatusValue status = statusReport.Status();

    CleanupStack::PopAndDestroy(smsMessage);

    return status;

    }

    {	

    //Call the base class preamble

    CTestWapStatusReports::doTestStepPreambleL();

    return TestStepResult();

    }

    {

    SendWapMessageL();

    return TestStepResult();

    }

    {	

    //Call the base class preamble

    CTestRequestingStatusReports::doTestStepPreambleL();

    INFO_PRINTF1(_L("Socket set option for indicating last PDU status report"));

    User::LeaveIfError(iSocket.SetOpt(KWapSmsStatusReportScheme, KWapSmsOptionLevel, EWapSmsTPSRR));

    return TestStepResult();

    }

    {	

    //Call the base class preamble

    CTestWapStatusReports::doTestStepPreambleL();

    GetExpectedStatus();

    SetupStatusReportSocketL();

    return TestStepResult();

    }

    {

    SendWapMessageL();

    TSmsStatus::TSmsStatusValue status;

    status=ReceiveStatusReportL();

    TESTL(status == iExpectedStatus);

    return TestStepResult();

    }

    {

    iStatusReportSocket.Close();

    //Call the base class preamble

    CTestWapStatusReports::doTestStepPostambleL();

    return TestStepResult();

    }

    {

    CTestReceivingStatusReports::doTestStepL();

    //We will receive 3 status reports for this message

    TSmsStatus::TSmsStatusValue status;

    status=ReceiveStatusReportL();

    TESTL(status == iExpectedStatus);

    status=ReceiveStatusReportL();

    TESTL(status == iExpectedStatus);

    return TestStepResult();

    }

    {	

    //Sets up the socket for receiving status reports

    CTestReceivingStatusReports::doTestStepPreambleL();

    //Set the option for last PDU only (TPSRR Scheme)

    INFO_PRINTF1(_L("Socket set option for indicating last PDU status report"));

    User::LeaveIfError(iSocket.SetOpt(KWapSmsStatusReportScheme, KWapSmsOptionLevel, EWapSmsTPSRR));

    }