// Copyright (c) 2006-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:
// Test Wap Status reports
// 
//

/**
    @file
    @test
*/

#include "WapStatusReports.h"

#include <Gsmumsg.h>
#include <simtsy.h>

#include "WapProtSuiteDefs.h"

/**
Preamble for all status report steps
*/
TVerdict CTestWapStatusReports::doTestStepPreambleL()
    {
    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();
    }

/**
Utility for sending a wap message
*/
void CTestWapStatusReports::SendWapMessageL()
    {
    //	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!"));
    }

/**
Utility for getting the expected status
*/
void CTestWapStatusReports::GetExpectedStatus()
    {
    //Get the port number from the ini file
    GetIntFromConfig(ConfigSection(),_L("expectedStatus"), iExpectedStatus);
    }

/**
Utility for receiving status reports
*/
TSmsStatus::TSmsStatusValue CTestWapStatusReports::ReceiveStatusReportL()
    {
    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;
    }

//-----------------------------------------------------------------------------

/**
Setup the SMS for TP-SRR operations on the SMS 
*/
TVerdict CTestRequestingStatusReports::doTestStepPreambleL()
    {	
    //Call the base class preamble
    CTestWapStatusReports::doTestStepPreambleL();
    
    return TestStepResult();
    }

/**
Common test steps for all status reports steps
*/
TVerdict CTestRequestingStatusReports::doTestStepL()
    {
    SendWapMessageL();
    
    return TestStepResult();
    }

//-----------------------------------------------------------------------------
/**
Setup the SMS for TP-SRR operations on the SMS 
*/
TVerdict CTestRequestingStatusReportsWithOption::doTestStepPreambleL()
    {	
    //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();
    }

//-----------------------------------------------------------------------------

/**
Setup the SMS for TP-SRR operations on the SMS 
*/
TVerdict CTestReceivingStatusReports::doTestStepPreambleL()
    {	
    //Call the base class preamble
    CTestWapStatusReports::doTestStepPreambleL();
    
    GetExpectedStatus();
    SetupStatusReportSocketL();
    
    return TestStepResult();
    }

/**
Common test steps for all status reports steps
*/
TVerdict CTestReceivingStatusReports::doTestStepL()
    {
    SendWapMessageL();
    TSmsStatus::TSmsStatusValue status;
    status=ReceiveStatusReportL();
    
    TESTL(status == iExpectedStatus);
    
    return TestStepResult();
    }

/**
Common test steps for all status reports steps
*/
TVerdict CTestReceivingStatusReports::doTestStepPostambleL()
    {
    iStatusReportSocket.Close();
    
    //Call the base class preamble
    CTestWapStatusReports::doTestStepPostambleL();
    
    return TestStepResult();
    }

//-----------------------------------------------------------------------------

/**
Common test steps for all status reports steps
*/
TVerdict CTestReceivingStatusReportsSevenBitMultiplePDUs::doTestStepL()
    {
    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();
    }
//-----------------------------------------------------------------------------


TVerdict CTestReceivingStatusReportsWithOption::doTestStepPreambleL()
    {	
    //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));
    
    return TestStepResult();
    }

//-----------------------------------------------------------------------------