// 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:

// Configuration Tests (test docs 4.2)

// 

//

/**

 @file te_dhcpTestStep2.cpp

*/

#include "te_dhcpTestStep2.h"

#include <test/testexecutelog.h>

#include <commdbconnpref.h>

#include <in_sock.h>

#include <nifman.h>

#include <comms-infras/es_config.h>

#ifdef SYMBIAN_NETWORKING_DHCP_MSG_HEADERS

#include <utf.h>

#include <networking/dhcpconfig.h>

#endif // SYMBIAN_NETWORKING_DHCP_MSG_HEADERS

#include "../../include/DHCPStatesDebug.h"

#include <simtsy.h>

#ifdef SYMBIAN_ENABLE_SPLIT_HEADERS

#include <nifman_internal.h>

#endif

TVerdict CDhcpTestStep2_1::doTestStepL()

/**

* @return - TVerdict code only ever returns EPass, else leaves with error!

* Override of base class pure virtual

* Get Current IP Address too early (test doc 4.2.1)

* Start a connection and query it before waiting for the connection start

* to complete.

*/

	{

	SetTestStepResult(EFail);	

	RSocketServ eSock;

	TInt err = eSock.Connect();

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(eSock);

#ifdef _DEBUG

	User::LeaveIfError(RProperty::Set(KMyPropertyCat, KMyPropertyDestPortv4, 67));

	User::LeaveIfError(RProperty::Set(KMyPropertyCat, KMyPropertyDestPortv6, 547));

#endif		

	RConnection connNET1;

	err = connNET1.Open(eSock);

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(connNET1);

	TRequestStatus stat1;

	connNET1.Start(iConnPrefs,stat1);// see test script for IAP used

	TRequestStatus stat2;

	TConnectionAddrBuf address;

	address().iAddressFamily = IpAddressFamilyL();

	connNET1.Ioctl(KCOLConfiguration, KConnGetCurrentAddr, stat2, &address);

	User::WaitForRequest(stat2);

	User::WaitForRequest(stat1);

	TESTEL(stat2.Int() == KErrNotReady, stat2.Int());

	TESTEL(stat1.Int() == KErrNone, stat1.Int());

	// now wait again to check that it will actually work

	connNET1.Ioctl(KCOLConfiguration, KConnGetCurrentAddr, stat2, &address);

	User::WaitForRequest(stat2);

	TESTEL(stat2.Int() == KErrNone, stat2.Int());

	err = connNET1.Stop();

	TESTEL(err == KErrNone, err);

	CleanupStack::PopAndDestroy(&connNET1); 

	CleanupStack::PopAndDestroy(&eSock); 

	SetTestStepResult(EPass);

	return TestStepResult();

	}

TVerdict CDhcpTestStep2_2::doTestStepL()

/**

* @return - TVerdict code only ever returns EPass, else leaves with error!

* Override of base class pure virtual

* Get Current IP Address (test doc 4.2.2)

* Start a connection with full DHCP config

* then use the RConnectionIoctl to query for

* the configured address

*/

	{

	SetTestStepResult(EFail);

	RSocketServ eSock;

	TInt err = eSock.Connect();

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(eSock);

#ifdef _DEBUG

	User::LeaveIfError(RProperty::Set(KMyPropertyCat, KMyPropertyDestPortv4, 67));

	User::LeaveIfError(RProperty::Set(KMyPropertyCat, KMyPropertyDestPortv6, 547));

#endif		

	RConnection connNET1;

	err = connNET1.Open(eSock);

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(connNET1);

	err = connNET1.Start(iConnPrefs); // see test script for IAP used

	TESTEL(err == KErrNone, err);

	TRequestStatus stat;

	TConnectionAddrBuf address;

	address().iAddressFamily = IpAddressFamilyL();

	connNET1.Ioctl(KCOLConfiguration, KConnGetCurrentAddr, stat, &address);

	User::WaitForRequest(stat);

	TESTEL(stat == KErrNone, stat.Int());

	// we have got an address back from the daemon...now we must check

	// that this address is correct...for this we bind a socket to it!

	RSocket socket;

	err = socket.Open(eSock, KAfInet, KSockDatagram, KProtocolInetUdp, connNET1);

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(socket);

	TInetAddr* properAddr = (TInetAddr*)&(address().iAddr);	

	err = socket.Bind(*properAddr);

	TESTEL(err == KErrNone, err);

	CleanupStack::PopAndDestroy(&socket);

	err = connNET1.Stop();

	TESTEL(err == KErrNone, err);

	CleanupStack::PopAndDestroy(&connNET1);

	CleanupStack::PopAndDestroy(&eSock); 

	SetTestStepResult(EPass);

	return TestStepResult();

	}

TVerdict CDhcpTestStep2_3::doTestStepL()

/**

* @return - TVerdict code only ever returns EPass, else leaves with error!

* Override of base class pure virtual

* Get Remaining Lease Time from a configured connection (test case 4.2.3)

*/

	{

	SetTestStepResult(EFail);

	RSocketServ eSock;

	TInt err = eSock.Connect();

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(eSock);

#ifdef _DEBUG

	User::LeaveIfError(RProperty::Set(KMyPropertyCat, KMyPropertyDestPortv4, 67));

#endif		

	RConnection connNET1;

	err = connNET1.Open(eSock);

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(connNET1);

	err = connNET1.Start(iConnPrefs); // see test script for IAP used

	TESTEL(err == KErrNone, err);

	TConnectionLeaseInfoBuf leaseTime;

	leaseTime().iAddressFamily = IpAddressFamilyL();

	TRequestStatus stat;

	connNET1.Ioctl(KCOLConfiguration, KConnGetAddrLeaseTimeRemain, stat, &leaseTime);

	User::WaitForRequest(stat);

	TESTEL(stat == KErrNone, stat.Int());

	TESTEL(leaseTime().iSecondsRemaining>0, KErrArgument);

	err = connNET1.Stop();

	TESTEL(err == KErrNone, err);

	CleanupStack::PopAndDestroy(&connNET1);

	CleanupStack::PopAndDestroy(&eSock);

	SetTestStepResult(EPass);

	return TestStepResult();

	}

TVerdict CDhcpTestStep2_4::doTestStepL()

/**

* @return - TVerdict code only ever returns EPass, else leaves with error!

* Override of base class pure virtual

* Get DHCP Server Address on a configured connection (test case 4.2.4)

*/

	{

	SetTestStepResult(EFail);

	RSocketServ eSock;

	TInt err = eSock.Connect();

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(eSock);

#ifdef _DEBUG

	User::LeaveIfError(RProperty::Set(KMyPropertyCat, KMyPropertyDestPortv4, 67));

#endif		

	RConnection connNET1;

	err = connNET1.Open(eSock);

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(connNET1);

	err = connNET1.Start(iConnPrefs); // see test script for IAP used

	TESTEL(err == KErrNone, err);

	TRequestStatus stat;

	TConnectionAddrBuf address;

	address().iAddressFamily = IpAddressFamilyL();

	connNET1.Ioctl(KCOLConfiguration, KConnGetServerAddr, stat, &address);

	User::WaitForRequest(stat);

	TESTEL(stat == KErrNone, stat.Int());

	err = connNET1.Stop();

	TESTEL(err == KErrNone, err);

	CleanupStack::PopAndDestroy(&connNET1);

	CleanupStack::PopAndDestroy(&eSock); 

	SetTestStepResult(EPass);

	return TestStepResult();

	}

TVerdict CDhcpTestStep2_5::doTestStepL()

/**

* @return - TVerdict code only ever returns EPass, else leaves with error!

* Override of base class pure virtual

* Get current address on a down connection (test case 4.2.5)

*/

	{

	SetTestStepResult(EFail);

	RSocketServ eSock;

	TInt err = eSock.Connect();

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(eSock);

#ifdef _DEBUG

	User::LeaveIfError(RProperty::Set(KMyPropertyCat, KMyPropertyDestPortv4, 67));

#endif		

	RConnection connNET1;

	err = connNET1.Open(eSock);

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(connNET1);

	err = connNET1.Start(iConnPrefs); // see test script for IAP used

	TESTEL(err == KErrNone, err);

	err = connNET1.Stop();

	TESTEL(err == KErrNone, err);

	TRequestStatus stat;

	TConnectionAddrBuf address;

	address().iAddressFamily = IpAddressFamilyL();

	connNET1.Ioctl(KCOLConfiguration, KConnGetCurrentAddr, stat, &address);

	User::WaitForRequest(stat);

	TESTEL(stat == KErrNotReady, stat.Int());

	CleanupStack::PopAndDestroy(&connNET1);

	CleanupStack::PopAndDestroy(&eSock); 

	SetTestStepResult(EPass);

	return TestStepResult();

	}

TVerdict CDhcpTestStep2_6::doTestStepL()

/**

* @return - TVerdict code only ever returns EPass, else leaves with error!

* Override of base class pure virtual

* Get DHCP Server Address on a down connection (test case 4.2.6)

*/

	{

	SetTestStepResult(EFail);

	RSocketServ eSock;

	TInt err = eSock.Connect();

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(eSock);

#ifdef _DEBUG

	User::LeaveIfError(RProperty::Set(KMyPropertyCat, KMyPropertyDestPortv4, 67));

#endif		

	RConnection connNET1;

	err = connNET1.Open(eSock);

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(connNET1);

	err = connNET1.Start(iConnPrefs); // see test script for IAP used

	TESTEL(err == KErrNone, err);

	err = connNET1.Stop();

	TESTEL(err == KErrNone, err);

	TRequestStatus stat;

	TConnectionAddrBuf address;

	address().iAddressFamily = IpAddressFamilyL();

	connNET1.Ioctl(KCOLConfiguration, KConnGetServerAddr, stat, &address);

	User::WaitForRequest(stat);

	TESTEL(stat == KErrNotReady, stat.Int());

	CleanupStack::PopAndDestroy(&connNET1);

	CleanupStack::PopAndDestroy(&eSock);

	SetTestStepResult(EPass);

	return TestStepResult();

	}

TVerdict CDhcpTestStep2_7::doTestStepL()

/**

* @return - TVerdict code only ever returns EPass, else leaves with error!

* Override of base class pure virtual

* Get Remaining Lease Time on a down connection (test case 4.2.7)

*/

	{

	SetTestStepResult(EFail);

	RSocketServ eSock;

	TInt err = eSock.Connect();

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(eSock);

#ifdef _DEBUG

	User::LeaveIfError(RProperty::Set(KMyPropertyCat, KMyPropertyDestPortv4, 67));

#endif		

	RConnection connNET1;

	err = connNET1.Open(eSock);

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(connNET1);

	err = connNET1.Start(iConnPrefs); // see test script for IAP used

	TESTEL(err == KErrNone, err);

	err = connNET1.Stop();

	TESTEL(err == KErrNone, err);

	TConnectionLeaseInfoBuf leaseTime;

	leaseTime().iAddressFamily = IpAddressFamilyL();

	TRequestStatus stat;

	connNET1.Ioctl(KCOLConfiguration, KConnGetAddrLeaseTimeRemain, stat, &leaseTime);

	User::WaitForRequest(stat);

	TESTEL(stat == KErrNotReady, stat.Int());

	CleanupStack::PopAndDestroy(&connNET1);

	CleanupStack::PopAndDestroy(&eSock);

	SetTestStepResult(EPass);

	return TestStepResult();

	}

TVerdict CDhcpTestStep2_8::doTestStepL()

/**

* @return - TVerdict code only ever returns EPass, else leaves with error!

* Override of base class pure virtual

* Get Active IP Address on a restarted connection (test case 4.2.8)

* First connection should be configured with an addr and lease

* and when the connection is started for the second time, after being

* taken down the same address will be reused as the lease is still

* valid for the address assigned in configuring the connection for the

* first time. 

*/

	{

	SetTestStepResult(EFail);

	RSocketServ eSock;

	TInt err = eSock.Connect();

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(eSock);

#ifdef _DEBUG

	User::LeaveIfError(RProperty::Set(KMyPropertyCat, KMyPropertyDestPortv4, 67));

#endif		

	RConnection connNET1;

	err = connNET1.Open(eSock);

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(connNET1);

	TConnectionAddrBuf address1;

	address1().iAddressFamily = IpAddressFamilyL();

	TConnectionAddrBuf address2;

	address1().iAddressFamily = IpAddressFamilyL();

	for (TUint i=0; i<2; ++i)

		{

		err = connNET1.Start(iConnPrefs); // see test script for IAP used

		TESTEL(err == KErrNone, err);

		TRequestStatus stat;

		connNET1.Ioctl(KCOLConfiguration, KConnGetCurrentAddr, stat, i == 0 ? &address1 : &address2);

		User::WaitForRequest(stat);

		TESTEL(stat == KErrNone, stat.Int());

		err = connNET1.Stop();

		TESTEL(err == KErrNone, err);

		}

	TInetAddr* properAddr = (TInetAddr*)&(address1().iAddr);	

	TUint32 addr1 = properAddr->Address();

	properAddr = (TInetAddr*)&(address2().iAddr);

	TUint32 addr2 = properAddr->Address();

	TESTEL(addr1 == addr2, KErrArgument);

	CleanupStack::PopAndDestroy(&connNET1);

	CleanupStack::PopAndDestroy(&eSock);

	SetTestStepResult(EPass);

	return TestStepResult();

	}

TVerdict CDhcpTestStep2_9::doTestStepL()

/**

* @return - TVerdict code only ever returns EPass, else leaves with error!

* Override of base class pure virtual

* Demonstrates the lease time running down for

* the connection.  And checks that it is reported properly

* by querying then waiting, then querying again.

*/

	{

	SetTestStepResult(EFail);

	RSocketServ eSock;

	TInt err = eSock.Connect();

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(eSock);

#ifdef _DEBUG

	User::LeaveIfError(RProperty::Set(KMyPropertyCat, KMyPropertyDestPortv4, 67));

#endif		

	RConnection connNET1;

	err = connNET1.Open(eSock);

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(connNET1);

	TConnectionLeaseInfoBuf leaseTime1;

	leaseTime1().iAddressFamily = IpAddressFamilyL();

	TConnectionLeaseInfoBuf leaseTime2;

	leaseTime2().iAddressFamily = IpAddressFamilyL();

	err = connNET1.Start(iConnPrefs); // see test script for IAP used

	TESTEL(err == KErrNone, err);

	TRequestStatus stat;

	connNET1.Ioctl(KCOLConfiguration, KConnGetAddrLeaseTimeRemain, stat, &leaseTime1);

	User::WaitForRequest(stat);

	TESTEL(stat == KErrNone, stat.Int());

	User::After(2 * 1000000);

	connNET1.Ioctl(KCOLConfiguration, KConnGetAddrLeaseTimeRemain, stat, &leaseTime2);

	User::WaitForRequest(stat);

	TESTEL(stat == KErrNone, stat.Int());

	TESTEL(leaseTime1().iSecondsRemaining > leaseTime2().iSecondsRemaining, KErrArgument);

	err = connNET1.Stop();

	TESTEL(err == KErrNone, err);

	CleanupStack::PopAndDestroy(&connNET1); 

	CleanupStack::PopAndDestroy(&eSock); 

	SetTestStepResult(EPass);

	return TestStepResult();

	}

TVerdict CDhcpTestStep2_GetRaw::doTestStepL()

/**

* @return - TVerdict code only ever returns EPass, else leaves with error!

* Override of base class pure virtual

* GetRawOption Data (test case 4.2.10,15,16,19,20,21)

*/

	{

	SetTestStepResult(EFail);

	INFO_PRINTF1(_L("Connecting to socket server.."));

	RSocketServ eSock;

	TInt err = eSock.Connect();

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(eSock);

#ifdef _DEBUG

	User::LeaveIfError(RProperty::Set(KMyPropertyCat, KMyPropertyDestPortv4, 126));

#endif		

	INFO_PRINTF1(_L("Opening connection.."));

	RConnection connNET1;

	err = connNET1.Open(eSock);

	TESTEL(err == KErrNone, err);

	CleanupClosePushL(connNET1);

   	INFO_PRINTF2(_L("Starting IAP %d.."),IAPToUseL());

	err = connNET1.Start(iConnPrefs); // see test script for IAP used

	TESTEL(err == KErrNone, err);

	INFO_PRINTF1(_L("Start completed ok.."));

	DHCPDebug::State state;

	GetDebugHandleL(connNET1);

	LOG_STATEL;

	ImmediateCompletionTestL(connNET1);

    TBuf8<48> buf;

	buf.FillZ(48);

    const TUint KOptCode = 1; //-- OPTION_CLIENTID(ipv6) or SubnetMask(ipv4)

	INFO_PRINTF1(_L("Calling ioctl.."));

    //-- get raw option data either for ip4 of for ip6, depending on the test setting