/*

* Copyright (c) 2005-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:  

* Example CTestStep derived implementation

*

*/

/**

 @file TCPStep.cpp

*/

#include "TCPStep.h"

#include "IPSuiteDefs.h"

CTCPStep::~CTCPStep()

/**

 * Destructor

 */

	{

	}

CTCPStep::CTCPStep()

/**

 * Constructor

 */

	{

	// **MUST** call SetTestStepName in the constructor as the controlling

	// framework uses the test step name immediately following construction to set

	// up the step's unique logging ID.

	SetTestStepName(KDemoTCPStep);

	}

TVerdict CTCPStep::doTestStepL()

/**

 * @return - TVerdict code

 * Override of base class pure virtual

 * Our implementation only gets called if the base class doTestStepPreambleL() did

 * not leave. That being the case, the current test result value will be EPass.

 */

	{

	RSocket socket;

	User::LeaveIfError(socket.Open(iServer, KAfInet, KSockStream, KProtocolInetTcp));

	CleanupClosePushL(socket);

	TRequestStatus status;

	socket.Connect(iDestAddr,status);

	User::WaitForRequest(status);

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

	TBuf<50> IPAddrBuf;

	iDestAddr.Output(IPAddrBuf);

	_LIT(KSendDataMessage,"Send Data to %S Port = %d Length = %d");

	INFO_PRINTF4(KSendDataMessage,&IPAddrBuf,iDestAddr.Port(),iWriteData->Des().Length());

	TPtr8 writeDataDes(iWriteData->Des());

	socket.Write(writeDataDes,status);

	User::WaitForRequest(status);

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

	// For TCP only. We can check to see if the server has the ACK'd the data using

	// an Ioctl on the socket

	socket.Ioctl(KIoctlTcpNotifyDataSent,status, 0, KSolInetTcp);

	User::WaitForRequest(status);

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

	_LIT(KSentDataMessage,"Data Sent");

	INFO_PRINTF1(KSentDataMessage);

	// Use Recv in this case

	// The status is not completed until the descriptor is full

	// or there is a socket error/timeout -22

	TPtr8 readDataDes(iReadData->Des());

	socket.Recv(readDataDes,0,status);

	User::WaitForRequest(status);

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

	_LIT(KRecvDataMessage,"Data Received Length = %d");

	INFO_PRINTF2(KRecvDataMessage,readDataDes.Length());

	// The receive data should always match the sent

	// Try deliberately corrupting the send or receive descriptor and

	// the panic will be picked up in the script engine

	__ASSERT_ALWAYS(readDataDes == writeDataDes,User::Panic(KDemoIPSuitePanic,ETCPDataCorrupt));

	socket.Close();

	CleanupStack::Pop(1);			// Server and Socket Handles

	return TestStepResult();

	}