// Copyright (c) 2004-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:
// This contains ESock Test cases from section 11
// 
//

// EPOC includes
#include <e32base.h>


// Test system includes
#include "SocketTestSection11.h"


// Test step 11.1
const TDesC &CSocketTest11_1::GetTestName()
	{
	_LIT(ret,"Test11.1");
	return ret;
	}

enum TVerdict CSocketTest11_1::InternalDoTestStepL( void )
	{
	TVerdict verdict = EPass;
	
	Logger().WriteFormat(_L("Test Purpose: Successful Socket Transfer"));
	
	// connect to esock
	Logger().WriteFormat(_L("Attempting to connect to socket server"));
    RSocketServ ss1;
	TInt ret = OptimalConnect(ss1);
	CleanupClosePushL(ss1);
	Logger().WriteFormat(_L("Connect returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	
	Logger().WriteFormat(_L("Creating second connection to socket server"));
	RSocketServ ss2;
	ret = OptimalConnect(ss2);
	CleanupClosePushL(ss2);
	Logger().WriteFormat(_L("Connect returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	
	Logger().WriteFormat(_L("Opening socket on first connection to dummy protocol 1"));
	RSocket sock1;
	RSocket tran1;
	ret = sock1.Open(ss1, _L("Dummy Protocol 1"));
	Logger().WriteFormat(_L("Open returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	
	Logger().WriteFormat(_L("Getting name of socket"));
	TName socketname;
	ret = sock1.Name(socketname);
	Logger().WriteFormat(_L("Name returned %S, name '%S'"), 
		&EpocErrorToText(ret), &socketname);
	TESTL(KErrNone == ret);
    //---------------------------------------------------------------------
    //-- if SYMBIAN_NETWORKING_PLATSEC symbol is defined, we are using EKA2 and secured RSocket::Transfer()
    //-- in this case the transfer shall be enabled by setting appropriate socket option with "pulling" process capabilities
	
    //-- define the capabilities set for the socket "pulling" process (this one, actually)
    //-- this process must have at least NetworkServices and NetworkControl capabilities
    _LIT_SECURITY_POLICY_C2(KProcPolicy, ECapabilityNetworkServices, ECapabilityNetworkControl);
	
    
    //-- this transfer attempt shall fail with KErrPermissionDenied because the transfer hasn't been enabled
    Logger().WriteFormat(_L("Transferring the socket to another session shall fail with KErrPermissionDenied"));
    ret = tran1.Transfer(ss2, socketname);
    Logger().WriteFormat(_L("RSocket::Transfer() returned %S"), &EpocErrorToText(ret));
    TESTL(KErrPermissionDenied == ret);
    
    //-- Test setting new socket options 
    Logger().WriteFormat(_L("Testing setting options KSOEnableTransfer, KSODisableTransfer.."));
    ret = sock1.SetOpt(KSOEnableTransfer, KSOLSocket, KProcPolicy().Package());
    TESTL(KErrNone == ret);
    
    ret = sock1.SetOpt(KSODisableTransfer, KSOLSocket);
    TESTL(KErrNone == ret);
    
    //-- this transfer attempt shall also fail, because we set KSOCancelTransfer above
    ret = tran1.Transfer(ss2, socketname);
    TESTL(KErrPermissionDenied == ret);
    Logger().WriteFormat(_L("OK"));
    
    //-- enable socket transfer (see lines below) with PlatSec check. Set socket option with receiving process capabilities    
    ret = sock1.SetOpt(KSOEnableTransfer, KSOLSocket, KProcPolicy().Package());
    TESTL(KErrNone == ret);
	
    
    //---------------------------------------------------------------------
	Logger().WriteFormat(_L("Transferring first socket to second session"));
	ret = tran1.Transfer(ss2, socketname);
	Logger().WriteFormat(_L("Transfer returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	
	Logger().WriteFormat(_L("Checking Info on first socket fails"));
	TProtocolDesc protoInfo;
	ret = sock1.Info(protoInfo);
	Logger().WriteFormat(_L("Info returned %S"), &EpocErrorToText(ret));
	TESTL(KErrBadHandle == ret);
	sock1.Close();
	
	Logger().WriteFormat(_L("Checking Info on transferred socket"));
	ret = tran1.Info(protoInfo);
	Logger().WriteFormat(_L("Info returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	tran1.Close();
	
	CleanupStack::Pop(&ss2);
	CleanupStack::Pop(&ss1);
	
	ss1.Close();
	ss2.Close();
	
	SetTestStepResult(verdict);
	return verdict;
	}

// Test step 11.2
const TDesC &CSocketTest11_2::GetTestName()
	{
	_LIT(ret,"Test11.2");
	return ret;
	}

enum TVerdict CSocketTest11_2::InternalDoTestStepL( void )
	{
	TVerdict verdict = EPass;
	
	Logger().WriteFormat(_L("Test Purpose: Null Socket Transfer Fails"));
	
	// connect to esock
	Logger().WriteFormat(_L("Attempting to connect to socket server"));
    RSocketServ ss1;
	TInt ret = OptimalConnect(ss1);
	CleanupClosePushL(ss1);
	Logger().WriteFormat(_L("Connect returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	
	Logger().WriteFormat(_L("Creating second connection to socket server"));
	RSocketServ ss2;
	ret = OptimalConnect(ss2);
	CleanupClosePushL(ss2);
	Logger().WriteFormat(_L("Connect returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	
	Logger().WriteFormat(_L("Opening null socket on second connection"));
	RSocket sock2;
	ret = sock2.Open(ss2);
	CleanupClosePushL(sock2);
	Logger().WriteFormat(_L("Open returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	
	Logger().WriteFormat(_L("Getting name of socket"));
	TName socketname;
	ret = sock2.Name(socketname);
	Logger().WriteFormat(_L("Name returned %S, name '%S'"), 
		&EpocErrorToText(ret), &socketname);
	TESTL(KErrNone == ret);
	
	//---------------------------------------------------------------------
    //-- if SYMBIAN_NETWORKING_PLATSEC symbol is defined, we are using EKA2 and secured RSocket::Transfer()
    //-- in this case the transfer shall be enabled by setting appropriate socket option with "pulling" process capabilities
	
    //-- define the capabilities set for the socket "pulling" process (this one, actually)
    //-- this process must have at least NetworkServices and NetworkControl capabilities
    _LIT_SECURITY_POLICY_C2(KProcPolicy, ECapabilityNetworkServices, ECapabilityNetworkControl);
    
    //-- enable socket transfer (see lines below) with PlatSec check. Set socket option with receiving process capabilities    
    ret = sock2.SetOpt(KSOEnableTransfer, KSOLSocket, KProcPolicy().Package());
    TESTL(KErrNotReady == ret);
	
    
    //---------------------------------------------------------------------
	
	Logger().WriteFormat(_L("Attempting to transfer second socket"));
	RSocket tran2;
	ret = tran2.Transfer(ss1, socketname);
	CleanupClosePushL(tran2);
	Logger().WriteFormat(_L("Transfer returned %S"), &EpocErrorToText(ret));
	TESTL(KErrPermissionDenied == ret);
	
	Logger().WriteFormat(_L("Checking Info on second socket fails"));
	TProtocolDesc protoInfo;
	ret = sock2.Info(protoInfo);
	Logger().WriteFormat(_L("Info returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNotFound == ret);
	
	CleanupStack::Pop(&tran2);
	CleanupStack::Pop(&sock2);
	CleanupStack::Pop(&ss2);
	CleanupStack::Pop(&ss1);
	
	ss1.Close();
	sock2.Close();
	tran2.Close();
	ss2.Close();
	
	SetTestStepResult(verdict);
	return verdict;
	}

// Test step 11.3
const TDesC &CSocketTest11_3::GetTestName()
	{
	_LIT(ret,"Test11.3");
	return ret;
	}

enum TVerdict CSocketTest11_3::InternalDoTestStepL( void )
	{
	TVerdict verdict = EPass;
	
	Logger().WriteFormat(_L("Test Purpose: Successful Transfer from Main dealer to other dealer"));
	
	// connect to esock
	Logger().WriteFormat(_L("Attempting to connect to socket server"));
    RSocketServ ss1;
	TInt ret = ss1.Connect();
	CleanupClosePushL(ss1);
	Logger().WriteFormat(_L("Connect returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	
	Logger().WriteFormat(_L("Creating second optimal connection to socket server"));
	RSocketServ ss2;
	ret = OptimalConnect(ss2);
	CleanupClosePushL(ss2);
	Logger().WriteFormat(_L("Connect returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	
	Logger().WriteFormat(_L("Opening null socket on second connection"));
	RSocket sock1;
	ret = sock1.Open(ss2,_L("Dummy Protocol 1"));
	Logger().WriteFormat(_L("Open returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	
	Logger().WriteFormat(_L("Getting name of socket"));
	TName socketname;
	ret = sock1.Name(socketname);
	Logger().WriteFormat(_L("Name returned %S, name '%S'"), 
		&EpocErrorToText(ret), &socketname);
	TESTL(KErrNone == ret);
	
	//---------------------------------------------------------------------
    //-- if SYMBIAN_NETWORKING_PLATSEC symbol is defined, we are using EKA2 and secured RSocket::Transfer()
    //-- in this case the transfer shall be enabled by setting appropriate socket option with "pulling" process capabilities
	
    //-- define the capabilities set for the socket "pulling" process (this one, actually)
    //-- this process must have at least NetworkServices and NetworkControl capabilities
    _LIT_SECURITY_POLICY_C2(KProcPolicy, ECapabilityNetworkServices, ECapabilityNetworkControl);
    
    //-- enable socket transfer (see lines below) with PlatSec check. Set socket option with receiving process capabilities    
    ret = sock1.SetOpt(KSOEnableTransfer, KSOLSocket, KProcPolicy().Package());
    TESTL(KErrNone == ret);
	
    
    //---------------------------------------------------------------------
	
	Logger().WriteFormat(_L("Attempting to transfer socket"));
	RSocket tran1;
	ret = tran1.Transfer(ss2, socketname);
	Logger().WriteFormat(_L("Transfer returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	
	Logger().WriteFormat(_L("Checking Info on first socket fails"));
	TProtocolDesc protoInfo;
	ret = sock1.Info(protoInfo);
	Logger().WriteFormat(_L("Info returned %S"), &EpocErrorToText(ret));
	TESTL(KErrBadHandle == ret);
	sock1.Close();
	
	Logger().WriteFormat(_L("Checking Info on transferred socket"));
	ret = tran1.Info(protoInfo);
	Logger().WriteFormat(_L("Info returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	tran1.Close();
	
	CleanupStack::Pop(&ss2);
	ss1.Close();
	CleanupStack::Pop(&ss1);
	ss2.Close();
	
	return verdict;
	}


// Test step 11.4
const TDesC &CSocketTest11_4::GetTestName()
	{
	_LIT(ret,"Test11.4");
	return ret;
	}

enum TVerdict CSocketTest11_4::InternalDoTestStepL( void )
	{
	TVerdict verdict = EPass;
	
	Logger().WriteFormat(_L("Test Purpose: Attempt transfer of fake socket name"));
	
	// connect to esock
	Logger().WriteFormat(_L("Attempting to connect to socket server"));
    RSocketServ ss1;
	TInt ret = ss1.Connect();
	CleanupClosePushL(ss1);
	Logger().WriteFormat(_L("Connect returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	
	Logger().WriteFormat(_L("Creating second optimal connection to socket server"));
	RSocketServ ss2;
	ret = OptimalConnect(ss2);
	CleanupClosePushL(ss2);
	Logger().WriteFormat(_L("Connect returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	
	Logger().WriteFormat(_L("Opening null socket on second connection"));
	RSocket sock1;
	ret = sock1.Open(ss2,_L("Dummy Protocol 1"));
	Logger().WriteFormat(_L("Open returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNone == ret);
	
	
	//---------------------------------------------------------------------
    //-- if SYMBIAN_NETWORKING_PLATSEC symbol is defined, we are using EKA2 and secured RSocket::Transfer()
    //-- in this case the transfer shall be enabled by setting appropriate socket option with "pulling" process capabilities
	
    //-- define the capabilities set for the socket "pulling" process (this one, actually)
    //-- this process must have at least NetworkServices and NetworkControl capabilities
    _LIT_SECURITY_POLICY_C2(KProcPolicy, ECapabilityNetworkServices, ECapabilityNetworkControl);
    
    //-- enable socket transfer (see lines below) with PlatSec check. Set socket option with receiving process capabilities    
    ret = sock1.SetOpt(KSOEnableTransfer, KSOLSocket, KProcPolicy().Package());
    TESTL(KErrNone == ret);
	
    
    //---------------------------------------------------------------------
	
	Logger().WriteFormat(_L("Attempting to transfer socket to good thread# but fake addr 5 ADEADF8"));
	RSocket tran1;
	// Try OK thread #, bad address
	ret = tran1.Transfer(ss2, _L("5 ADEADF8"));
	Logger().WriteFormat(_L("Transfer returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNotFound == ret);

	// Try thread # out of range
	Logger().WriteFormat(_L("Attempting to transfer socket to out-of-range thread# 9 ADEADF8"));
	ret = tran1.Transfer(ss2, _L("9 ADEADF8"));
	Logger().WriteFormat(_L("Transfer returned %S"), &EpocErrorToText(ret));
	TESTL(KErrNotFound == ret);

	sock1.Close();
	
	tran1.Close();
	
	CleanupStack::Pop(&ss2);
	ss1.Close();
	CleanupStack::Pop(&ss1);
	ss2.Close();
	
	return verdict;
	}