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

// This file contains the functions to construct the Test Step and the 

// Exec_SendReceiveL() function that connects to the server and makes IPC calls.

// 

//

// Test Step header

#include "EASShdOpCodeAlarmAdd1_CStep.h"

// TO BE SAFE

IMPORT_C TInt StartDialogThread();

/** 

Constructor called from the respective Suite.cpp from their "AddTestStep" function

Each test step initialises it's own name

*/

CEASShdOpCodeAlarmAdd1Step::CEASShdOpCodeAlarmAdd1Step()

	{

	// The server name and IPC number is obtained and all messages are checked Sync

	iSrServerName		= _L("!AlarmServer");

	iSrMessageType		= 2;

	iSrMessageId		= 200;

	iSrMessageMask		= 65536;

	iServerPanic		= _L("ALARMSERVER");

	TCapability cap[] = {ECapabilityWriteUserData, ECapability_Limit};

	TSecurityInfo info;

	info.Set(RProcess());

	TBool result = EFalse;

	TInt i;

	for (i = 0; cap[i] != ECapability_Limit; i++) 

		{

		if (!(info.iCaps.HasCapability(cap[i])))

			{

			result=ETrue;

			}

		}

	iExpectRejection = result;

	iStepCap = 65536;

	// Get a unique thread name

	iSrChildThread.Format(_L("ChildThread_%S_%d"),&iSrServerName,iSrMessageId);

	}

/**

This function is called by the Child Thread

1.	Create a session with the server

2.	Test an SendReceive call

3.	Informs the main thread about the status of the call using

	a.	iSessionCreated, if the a connection is established

	b.	iResultServer, holds the return value for connection 

	c.	iResultSr, the return value of SendReceive	call

*/

TInt CEASShdOpCodeAlarmAdd1Step::Exec_SendReceiveL()

	{

	iResultServer = CreateSession(iSrServerName,Version(),KAlarmServerAsynchronousSlotCount);

	if (iResultServer!=KErrNone)

		{

		iResultServer=StartServer();

		if (iResultServer!=KErrNone)

			{

			return(iResultServer);

			}

		iResultServer = CreateSession(iSrServerName,Version(),KAlarmServerAsynchronousSlotCount);

		}

	if(iResultServer == 0)

		{

		iSessionCreated = ETrue;

		if(iSrMessageId >= 0)

			{

			// Modifications made to tool generated code

			// Create a TASShdAlarm object and set its properties

			TASShdAlarm alarm;

			alarm.Category() = KASCliCategoryClock;

			alarm.RepeatDefinition() = EAlarmRepeatDefintionRepeatOnce;

			alarm.NextDueTime().HomeTime();

			// Set the alarm to go off after 20 seconds.

			// The alarm is intended to go off when EASShdOpCodeNotifyChange1_CStep, 

			// the next test step that will be executed, is waiting for an event to occur.

			TInt seconds = 20;

			alarm.NextDueTime() += TTimeIntervalSeconds(seconds);

			// Construct the TIpcArgs for SendReceive

			TPckg<TASShdAlarm> package(alarm);

			TDesC8 emptydata = KNullDesC8;

			TIpcArgs args(&package, emptydata.Length(), &emptydata);

			// Make the IPC call

			iResultSr =	SendReceive(iSrMessageId, args);

			// Create one more alarm as AlarmCancelAndDeque test step will 

			// remove one from the server

			TASShdAlarm alarm1;

			alarm1.Category() = KASCliCategoryClock;

			alarm1.RepeatDefinition() = EAlarmRepeatDefintionRepeatOnce;

			alarm1.NextDueTime().HomeTime();

			seconds = 50;

			alarm1.NextDueTime() += TTimeIntervalSeconds(seconds);

			TPckg<TASShdAlarm> package1(alarm1);

			TDesC8 emptydata1 = KNullDesC8;

			TIpcArgs args1(&package1, emptydata1.Length(), &emptydata1);

			iResultSr =	SendReceive(iSrMessageId, args1);

			// And one more just in case

			TASShdAlarm alarm2;

			alarm2.Category() = KASCliCategoryClock;

			alarm2.RepeatDefinition() = EAlarmRepeatDefintionRepeatOnce;

			alarm2.NextDueTime().HomeTime();

			seconds = 70;

			alarm2.NextDueTime() += TTimeIntervalSeconds(seconds);

			TPckg<TASShdAlarm> package2(alarm2);

			TDesC8 emptydata2 = KNullDesC8;

			TIpcArgs args2(&package2, emptydata2.Length(), &emptydata2);

			iResultSr =	SendReceive(iSrMessageId, args2);

			}

		}

	return iResultServer;

	}