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

// For testing Persist HAL :

// 

//

/**

 @file

 @internalComponent

 @test

*/

#include <e32base.h>

#include <hal.h>

#include <bautils.h>

#include <e32test.h>

#define TEST(arg) ::Check((arg), __LINE__)

#define TEST2(aValue, aExpected) ::Check(aValue, aExpected, __LINE__)

LOCAL_D RTest 			TheTest (_L ("T_PersistHAL"));

TInt noSample = 25;

LOCAL_C  void Check(TInt aValue, TInt aLine)

	{

	if(!aValue)

		{

		TheTest(EFalse, aLine);

		}

	}

LOCAL_C void Check(TInt aValue, TInt aExpected, TInt aLine)

	{

	if(aValue != aExpected)

		{

		RDebug::Print(_L("*** Expected error: %d, got: %d\r\n"), aExpected, aValue);

		TheTest(EFalse, aLine);

		}

	}

TInt TestPersistHALWaitDirectL()

	{

	RProcess process;

	TEST2(process.Create(_L("HALSettings.exe"), _L("PERSIST")),KErrNone);

	TRequestStatus status;

	process.Logon(status);

	process.Resume();

	User::WaitForRequest(status);

	TInt exitReason = process.ExitReason();

	process.Close();

	return exitReason;

	}

//Tests

//====================================================================

/**

@SYMTestCaseID          SYSLIB-HALSETTINGS-CT-1721

@SYMTestCaseDesc        Performance Test Persist HAL

@SYMTestPriority        Medium

@SYMTestActions         This test trys to persist HAL settings by starting HALSetting.exe

						directly

@SYMTestExpectedResults Tests must not fail

@SYMDEF                 DEF083235: Prop: HAL Attributes (eg screen calibration) lost if the battery is pulled out

*/

void TestPerformancePersistDirectL()

	{

	TheTest.Next (_L (" @SYMTestCaseID:SYSLIB-HALSETTINGS-CT-1721 Performance Persist test directly calling EXE "));

	TInt fastTimerFreq;

	HAL::Get(HALData::EFastCounterFrequency, fastTimerFreq);

	TReal ticksPerMicroSec = 1.0E-6 * fastTimerFreq;

	TUint prevTime;

	TUint timeDiff;

	prevTime = User::FastCounter();

	TInt noSuccessfulSamples=0;

	for(; noSuccessfulSamples < noSample; ++noSuccessfulSamples)

		{

		if(TestPersistHALWaitDirectL() !=KErrNone )

			{

		  	break;//Stop performing the tests, calculate average with no of successful Samples.

		  	}

		}

	TEST(noSuccessfulSamples >0);

	timeDiff = User::FastCounter() - prevTime;

	TReal64 fsSessionMicroSecs = timeDiff / (noSuccessfulSamples * ticksPerMicroSec);

	TheTest.Printf(_L("Time to Persist HAL directly calling exe = %10.2lf microseconds\n"), fsSessionMicroSecs);

	}

/**

@SYMTestCaseID          SYSLIB-HALSETTINGS-CT-1722

@SYMTestCaseDesc        Performance Test Persist HAL through BAFL DLL

@SYMTestPriority        Medium

@SYMTestActions         This test trys to persist HAL settings by calling BAFL

						API

@SYMTestExpectedResults Tests must not fail

@SYMDEF                 DEF083235: Prop: HAL Attributes (eg screen calibration) lost if the battery is pulled out

*/

void TestPerformancePersistThroughBAFL()

	{

	TheTest.Next (_L (" @SYMTestCaseID:SYSLIB-HALSETTINGS-CT-1722 Performance Persist test Through BAFL DLL "));

	TInt fastTimerFreq;

	HAL::Get(HALData::EFastCounterFrequency, fastTimerFreq);

	TReal ticksPerMicroSec = 1.0E-6 * fastTimerFreq;

	TUint prevTime;

	TUint timeDiff;

	prevTime = User::FastCounter();

	TInt noSuccessfulSamples=0;

	for(;noSuccessfulSamples< noSample; ++noSuccessfulSamples)

		{

		if(BaflUtils::PersistHAL()!=KErrNone)

			{

			break;//Stop performing the tests, calculate average with no of successful Samples.

			}

		}

	TEST(noSuccessfulSamples >0);

	timeDiff = User::FastCounter() - prevTime;

	TReal64 fsSessionMicroSecs = timeDiff / (noSuccessfulSamples * ticksPerMicroSec);

	TheTest.Printf(_L("Time to Persist HAL through BAFL DLL = %10.2lf microseconds\n"), fsSessionMicroSecs);

	}

/**

@SYMTestCaseID          SYSLIB-HALSETTINGS-CT-1723

@SYMTestCaseDesc        Capability Test

@SYMTestPriority        Medium

@SYMTestActions         This test exe do not have the capability to initialise HAL settings

						try to initialise HAL setting by starting HALSetting.exe

@SYMTestExpectedResults Tests must not fail

@SYMDEF                 DEF083235: Prop: HAL Attributes (eg screen calibration) lost if the battery is pulled out

*/

void CapabilityTest()

	{

	TheTest.Next (_L (" @SYMTestCaseID:SYSLIB-HALSETTINGS-CT-1723 Capability Test "));

	RProcess process;

	//To initialise processes should have SID == SID of EStart, This process's SID is '0'

	TEST2(process.Create(_L("HALSettings.exe"), _L("INITIALISE")),KErrNone);

	TRequestStatus status;

	process.Logon(status);

	process.Resume();

	User::WaitForRequest(status);

	TInt exitReason = process.ExitReason();

	process.Close();

	TEST2(exitReason,KErrPermissionDenied);

	}

LOCAL_C void RunTestsL()

	{

	TEST2(TestPersistHALWaitDirectL (),KErrNone);

	TEST2(BaflUtils::PersistHAL(),KErrNone);

	CapabilityTest();

	TestPerformancePersistDirectL ();

	TestPerformancePersistThroughBAFL ();

	}

GLDEF_C TInt E32Main()

	{

	__UHEAP_MARK;

	TheTest.Title ();

	TheTest.Start (_L ("HAL Persist test"));

	CTrapCleanup* tc = CTrapCleanup::New();

	TRAPD(err, ::RunTestsL());

	delete tc;

	TheTest.End ();

	TheTest.Close ();

	__UHEAP_MARKEND;

	return err;

	}