// Copyright (c) 1996-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:

 // Capability test

 // 

 //

 /**

  @file

  @test

  @internalComponent - Internal Symbian test code

 */

 #include "TCAPABILITY.H"

 _LIT(KTestResultsFile, "C:\\DATA\\TestResult.Dat");

 _LIT(KSpace, " ");

 _LIT(KTest0Name, "All capabilities");

 _LIT(KTest0Exe, "TCAP_ALL.exe");

 _LIT(KTest0Cap, "CAPABILITY_ALL");

 _LIT(KTest1Name, "No capabilities");

 _LIT(KTest1Exe, "TCAP_NONE.exe");

 _LIT(KTest1Cap, "CAPABILITY_NONE");

 _LIT(KTest2Name, "WriteDeviceData and SwEvent capabilities");

 _LIT(KTest2Exe, "TCAP_ONE.exe");

 _LIT(KTest2Cap, "WRITEDATA+SWEVENT");

 _LIT(KTest3Name, "WriteDeviceData and PowerMgnt capabilities");

 _LIT(KTest3Exe, "TCAP_TWO.exe");

 _LIT(KTest3Cap, "WRITEDATA+POWERMGMT");

 _LIT(KTest4Name, "PowerMgnt and SwEvent capabilities");

 _LIT(KTest4Exe, "TCAP_THREE.exe");

 _LIT(KTest4Cap, "POWERMGMT+SWEVENT");

 //CCapabilityTest 

 CTCapability::CTCapability(CTestStep* aStep):

 	CTWsGraphicsBase(aStep)

 	{

 	}

 CTCapability::~CTCapability()

 	{

 	}

 void CTCapability::ConstructL()

 	{

 	//Empty function ConstructL is pure virtual function and this 

 	//definition required to satisfy the compiler

 	}

 //Reads the shared files which contains the total tests	run and tests passed.

 void CTCapability::GetCapabilityTestResultsL(TInt& aNoOfTests, TInt& aNoOfTestsPass)

 	{	

 	TBuf<256> noOfTest;

 	TBuf<256> noOfTestPass;

 	RFs fileSession;

 	RFile file;

 	TFileText textFile;

 	User::LeaveIfError(fileSession.Connect());

 	CleanupClosePushL(fileSession);

 	User::LeaveIfError(file.Open(fileSession,KTestResultsFile,EFileRead));

 	CleanupClosePushL(file);

 	textFile.Set(file);

 	if(textFile.Read(noOfTest)==KErrNone)

 		{

 		TLex lexVar(noOfTest);

 		lexVar.Val(aNoOfTests);

 		if(textFile.Read(noOfTestPass)==KErrNone)

 			{

 			lexVar=noOfTestPass;

 			lexVar.Val(aNoOfTestsPass);

 			}

 		else

 			{

 			aNoOfTestsPass=0;

 			}

 		}

 	CleanupStack::PopAndDestroy(&file);

 	CleanupStack::PopAndDestroy(&fileSession);

 	}

  void CTCapability::LaunchNewProcess(const TDesC& aExecutable,const TDesC& aCapability)

 	{

 	TBuf<128> args;

  	args.Append(aCapability);

  	args.Append(KSpace);

  	args.AppendNum(TheClient->iGroup->GroupWin()->Identifier());

 	RProcess pr;

 //	TInt noOfTest,noOfTestPass;

 	if (pr.Create(aExecutable,args)==KErrNone)

 		{

 		TRequestStatus status=NULL;

 		pr.Logon(status);

 		pr.Resume();

 		User::WaitForRequest(status);

 		//Close all the panic windows to avoid "Hangs the H4" 

 		//PDEF100501: TEF Migrated Test TCapability Hangs the H4 

 	   	if (iTest->iScreenNumber == 0)

 			iTest->CloseAllPanicWindows();

 		pr.Close();

 //		GetCapabilityTestResultsL(noOfTest,noOfTestPass);

 //		UpdateTestResults(noOfTest,noOfTestPass);

 		}

 	}

 void CTCapability::RunTestCaseL(TInt /*aCurTestCase*/)

 	{

 	((CTCapabilityStep*)iStep)->SetTestStepID(KUnknownSYMTestCaseIDName);

 	switch(++iTest->iState)

 		{

 /**

   @SYMTestCaseID GRAPHICS-WSERV-0305

   @SYMDEF             DEF081259

   @SYMTestCaseDesc Capability test with a process with all capability

   @SYMTestPriority High

   @SYMTestStatus Implemented

   @SYMTestActions The security threat API's are called with all 

  				 capability to test whether the API's are accessible or not.

   @SYMTestExpectedResults If the required capability is defined to test code then API should 

  							 accessible, otherwise it should panic the test.

 */

 		case 1:

 			((CTCapabilityStep*)iStep)->SetTestStepID(_L("GRAPHICS-WSERV-0305"));

 			iTest->LogSubTest(KTest0Name);

  			LaunchNewProcess(KTest0Exe, KTest0Cap);

 			break;

 /**

   @SYMTestCaseID GRAPHICS-WSERV-0306

   @SYMDEF             DEF081259

   @SYMTestCaseDesc Capability test with a process with no capability

   @SYMTestPriority High

   @SYMTestStatus Implemented

   @SYMTestActions The security threat API's are called with no 

  				 capability to test whether the API's are accessible or not.

   @SYMTestExpectedResults If the required capability is defined to test code then API should 

  							 accessible, otherwise it should panic the test.

 */

 		case 2:

 			((CTCapabilityStep*)iStep)->SetTestStepID(_L("GRAPHICS-WSERV-0306"));

 			//create process with no capability 

 			RDebug::Print(KPlatsecBegin);

 			iTest->LogSubTest(KTest1Name);

  			LaunchNewProcess(KTest1Exe,KTest1Cap);

 			break;

 /**

   @SYMTestCaseID GRAPHICS-WSERV-0307

   @SYMDEF             DEF081259

   @SYMTestCaseDesc Capability test with a process with WriteDevicedata and SwEvent capability

   @SYMTestPriority High

   @SYMTestStatus Implemented

   @SYMTestActions The security threat API's are called with WriteDevicedata and SwEvent 

  				 capability to test whether the API's are accessible or not.

   @SYMTestExpectedResults If the required capability is defined to test code then API should 

  							 accessible, otherwise it should panic the test.

 */

 		case 3:

 			((CTCapabilityStep*)iStep)->SetTestStepID(_L("GRAPHICS-WSERV-0307"));

 			//create process with WriteDevicedata and SwEvent capability 

 			iTest->LogSubTest(KTest2Name);

  			LaunchNewProcess(KTest2Exe,KTest2Cap);

 			break;

 /**

   @SYMTestCaseID GRAPHICS-WSERV-0308

   @SYMDEF             DEF081259

   @SYMTestCaseDesc Capability test with a process with WriteDevicedata and PowerMgmt capability

   @SYMTestPriority High

   @SYMTestStatus Implemented

   @SYMTestActions The security threat API's are called with WriteDevicedata and PowerMgmt 

  				 capability to test whether the API's are accessible or not.

   @SYMTestExpectedResults If the required capability is defined to test code then API should 

  							 accessible, otherwise it should panic the test.

 */

 		case 4:

 			((CTCapabilityStep*)iStep)->SetTestStepID(_L("GRAPHICS-WSERV-0308"));

 			//create process with WriteDevicedata and PowerMgmt capability 

 			iTest->LogSubTest(KTest3Name);

  			LaunchNewProcess(KTest3Exe,KTest3Cap);

 			break;

 /**

   @SYMTestCaseID GRAPHICS-WSERV-0309

   @SYMDEF             DEF081259

   @SYMTestCaseDesc Capability test with a process with PowerMgmt and SwEvent capability

   @SYMTestPriority High

   @SYMTestStatus Implemented

   @SYMTestActions The security threat API's are called with PowerMgmt and SwEvent 

  				 capability to test whether the API's are accessible or not.

   @SYMTestExpectedResults If the required capability is defined to test code then API should 

  							 accessible, otherwise it should panic the test.

 */

 		case 5:

 			((CTCapabilityStep*)iStep)->SetTestStepID(_L("GRAPHICS-WSERV-0309"));

 			//create process with PowerMgmt and SwEvent capability 

 			iTest->LogSubTest(KTest4Name);

  			LaunchNewProcess(KTest4Exe, KTest4Cap);

 			break;

 		default :

 			((CTCapabilityStep*)iStep)->SetTestStepID(KNotATestSYMTestCaseIDName);

 			((CTCapabilityStep*)iStep)->CloseTMSGraphicsStep();

 			RDebug::Print(KPlatsecEnd);

 			RFs fileSession;

 			User::LeaveIfError(fileSession.Connect());

 			CleanupClosePushL(fileSession);

 			CFileMan *fileMan=CFileMan::NewL(fileSession);

 			fileMan->Delete(KTestResultsFile);

 			delete fileMan;

 			CleanupStack::PopAndDestroy(&fileSession);

 			TestComplete();		

 			break;

 		}

 	((CTCapabilityStep*)iStep)->RecordTestResultL();

 	}

 __WS_CONSTRUCT_STEP__(Capability)