// Copyright (c) 1997-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 GenConn Dialog Server

// 

//

#include <e32test.h>

#include <c32comm.h>

#include <agentdialog.h>

#include <cdblen.h>

GLDEF_D RTest test(_L("Generic Agent Dialog Testcode"));

LOCAL_C void checkError(RGenConAgentDialogServer& aDlgSvr, TInt aError);

LOCAL_C void checkPctError(RGenConAgentDialogServer& aDlgSvr, TInt aError);

LOCAL_C void doExampleL();

_LIT(KIapName,"New IAP");

GLDEF_C TInt E32Main()

    {

	__UHEAP_MARK;

	CTrapCleanup* cleanup=CTrapCleanup::New();

	test.Title();

	TRAPD(error,doExampleL());

	test.Close();

	if (error != KErrNone)

		User::Panic(_L("NETDIAL DIALOG TEST"),error);

	delete cleanup;

	__UHEAP_MARKEND;

	return KErrNone;

    }

LOCAL_C void doExampleL()

	{

// Start the Comms Server - the Database Server thread runs in this process

 	// When bootstrapping C32 we have to avoid the PhBkSyncServer being started, since

 	// it needs a different CommDB

 	_LIT(KPhbkSyncCMI, "phbsync.cmi");

    TInt ret = StartC32WithCMISuppressions(KPhbkSyncCMI);

	test((ret==KErrNone)||(ret==KErrAlreadyExists));

	test.Printf(_L("Started C32\n"));

	RGenConAgentDialogServer dlgSv;

	test(dlgSv.Connect()==KErrNone);

	test.Printf(_L("Connected Dialog Server\n"));

	TRequestStatus status;

	test.Printf(_L("\nTesting the IAP Selection Dialog\n")); 

	TUint32 iap=0;

	TConnectionPrefs prefs;

	prefs.iRank = 1;

	prefs.iDirection = ECommDbConnectionDirectionOutgoing;

	prefs.iBearerSet = ECommDbBearerCSD;

	dlgSv.IapConnection(iap,prefs,status);

	test.Printf(_L("Requested IAP selection\n"));

	User::WaitForRequest(status);

	ret=status.Int();

	test.Printf(_L("Request IAP selection completed with code=%d\n"),ret);

	checkError(dlgSv,ret);

	test.Printf(_L("IAP id = %d\n"),iap);

	test.Printf(_L("\nTesting the Modem And Location Selection Dialog\n")); 

	TUint32 modemId=0;

	TUint32 locationId=0;

	dlgSv.ModemAndLocationSelection(modemId,locationId,status);

	test.Printf(_L("Requested Modem And Location selection\n"));

	User::WaitForRequest(status);

	ret=status.Int();

	test.Printf(_L("Request Location selection completed with code=%d\n"),ret);

	checkError(dlgSv,ret);

	test.Printf(_L("Modem id = %d\n"),modemId);

	test.Printf(_L("Location id = %d\n"),locationId);

/*	test.Printf(_L("\nTesting the ISP selection Dialog\n")); 

	TIspConnectionIds conDetails;

	dlgSv.IspConnection(conDetails, prefs, status);

	test.Printf(_L("Requested ISP selection\n"));

	User::WaitForRequest(status);

	ret=status.Int();

	test.Printf(_L("Request ISP selection completed with code=%d\n"),ret);

	checkError(dlgSv,ret);

	test.Printf(_L("ServiceId = %d\n"),conDetails.iServiceId);

	test.Printf(_L("Service table = %S\n"),&conDetails.iServiceTable);

	test.Printf(_L("Modem id = %d\n"),conDetails.iModemId);

	test.Printf(_L("Location id = %d\n"),conDetails.iLocationId);

	test.Printf(_L("ChargeCard id = %d\n"),conDetails.iChargecardId);

*/

	test.Printf(_L("\nTesting the IAP Warning Dialog\n")); 

	TBuf<16> iapName(KIapName);

	TBool response = EFalse;

	dlgSv.WarnNewIapConnection(prefs,KErrBadName,iapName,response,status);

	test.Printf(_L("Requested IAP warning\n"));

	User::WaitForRequest(status);

	ret=status.Int();

	test.Printf(_L("Request IAP warning completed with code=%d\n"),ret);

	checkError(dlgSv,ret);

	if (response)

		test.Printf(_L("Attempt new connection\n"));

	else

		test.Printf(_L("Do not attempt new connection\n"));

/*	test.Printf(_L("\nTesting the ISP Warning Dialog\n")); 

	TIspConnectionNames ispNames;

	ispNames.iServiceName = KIspName;

	response = EFalse;

	dlgSv.WarnNewIspConnection(prefs,KErrCommsLineFail,ispNames,response,status);

	test.Printf(_L("Requested ISP warning\n"));

	User::WaitForRequest(status);

	ret=status.Int();

	test.Printf(_L("Request ISP warning completed with code=%d\n"),ret);

	checkError(dlgSv,ret);

	if (response)

		test.Printf(_L("Attempt new connection\n"));

	else

		test.Printf(_L("Do not attempt new connection\n"));

*/

	test.Printf(_L("\nTesting the Login Dialog\n")); 

	TBuf<KCommsDbSvrMaxFieldLength> username=_L("LnUser");

	TBuf<KCommsDbSvrMaxFieldLength> password=_L("LnPass");

	dlgSv.Login(username,password,EFalse,status);

	User::WaitForRequest(status);

	ret=status.Int();

	test.Printf(_L("Login completed with code=%d\n"),ret);

	checkError(dlgSv,ret);

	test.Printf(_L("Username=%S Password=%S\n"),&username,&password);

	test.Printf(_L("\nTesting the Authentication Dialog\n")); 

	username.Copy(_L("User"));

	password.Copy(_L("Pass"));

	dlgSv.Authenticate(username,password,EFalse,status);

	User::WaitForRequest(status);

	ret=status.Int();

	test.Printf(_L("Authenticate completed with code=%d\n"),ret);

	checkError(dlgSv,ret);

	test.Printf(_L("Username=%S Password=%S\n"),&username,&password);

	test.Printf(_L("\nTesting the Reconnection Dialog\n")); 

	TBool b=ETrue;

	dlgSv.Reconnect(b,status);

	User::WaitForRequest(status);

	ret=status.Int();

	checkError(dlgSv,ret);

	if (b)

		test.Printf(_L("Reconnect Required\n"));

	else

		test.Printf(_L("Reconnect Not Required\n"));

	test.Printf(_L("\nTesting the QoS Warning Dialog\n")); 

	TBool dlgResponse=ETrue;

	dlgSv.QoSWarning(dlgResponse,status);

	User::WaitForRequest(status);

	ret=status.Int();

	checkError(dlgSv,ret);

	if (dlgResponse)

		test.Printf(_L("Disconnect\n"));

	else

		test.Printf(_L("Do Not Disconnect\n"));

	test.Printf(_L("Press a key to continue\n"));

	test.Getch();

	test.Console()->ClearScreen();

	test.Printf(_L("\nTesting the PCT\n")); 

	dlgSv.OpenPct();

	TRequestStatus destroyStatus;

	dlgSv.DestroyPctNotification(destroyStatus);

	test.Printf(_L("Requested destroy notification\n"));	

	TBuf<256> writeBuffer=_L("Welcome to Ann's ISP");

	dlgSv.WritePct(writeBuffer);

	writeBuffer=_L("Login:");

	dlgSv.WritePct(writeBuffer);

	TBuf<256> readBuffer=_L("UserName");

	dlgSv.ReadPct(readBuffer,status);

	User::WaitForRequest(status);

	ret=status.Int();

	test.Printf(_L("Read from PCT completed with code = %d\n"),ret);

	checkPctError(dlgSv,ret);

	test.Printf(_L("Read from PCT = %S\n"),&readBuffer);

	writeBuffer=_L("Password:");

	dlgSv.WritePct(writeBuffer);

	readBuffer=_L("PassWord");

	dlgSv.ReadPct(readBuffer,status);

	User::WaitForRequest(status);

	ret=status.Int();

	test.Printf(_L("Read from PCT completed with code = %d\n"),ret);

	checkPctError(dlgSv,ret);

	test.Printf(_L("Read from PCT = %S\n"),&readBuffer);

	writeBuffer=_L("Login correct!");

	dlgSv.WritePct(writeBuffer);

	User::After(2*1000000);	

	dlgSv.CancelDestroyPctNotification();

	User::WaitForRequest(destroyStatus);

	test(destroyStatus.Int()==KErrCancel);

	dlgSv.ClosePct();

	dlgSv.Close();

	}

LOCAL_C void checkError(RGenConAgentDialogServer& aDlgSvr, TInt aError)

	{

	if (aError!=KErrNone && aError!=KErrCancel)

		aDlgSvr.Close();

	test((aError==KErrNone)||(aError==KErrCancel));

	}

LOCAL_C void checkPctError(RGenConAgentDialogServer& aDlgSvr, TInt aError)

	{

	if (aError!=KErrNone)

		{

		aDlgSvr.ClosePct();

		TRequestStatus destroyStatus;

		User::WaitForRequest(destroyStatus);

		aDlgSvr.Close();

		}

	test(aError==KErrNone);

	}