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

 // The main purpose of this application is to test

 // starting of SysAgt2 server and testing RProperty::Get()/Set() methods on

 // protected by capability properties.

 // 

 //

 #include <e32test.h>

 #include <e32debug.h>

 #include <e32property.h>

 #include <sacls.h>

 #include <e32const.h>

 #include <saclsdefines.h>

 #include "SaPrivate.h"

 #include <saclscommon.h>

 static RTest TheTest(_L("T_SysAgt2"));

 _LIT(KSysAgent2ServerName, "SysAgt2Svr");

 //

 //

 //Test macroses and functions

 LOCAL_C void Check(TInt aValue, TInt aLine)

 	{

 	if(!aValue)

 		{

 		TheTest(EFalse, aLine);

 		}

 	}

 static 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);

 		}

 	}

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

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

 //

 //

 struct keyAssociation 

 {

 	TUid iCategory;

 	TUint iProperty;

 	TBool iIsInt;

 };

 /**

  * These are keys which are defined by SystemAgent2

  * which belong to other subsystems.

  */

 keyAssociation KSaExternalKeys[]=

 	{

 	KUidSystemCategory,KSAUidJavaInstallKeyValue,ETrue, 			// Java Install Key

 	KUidSystemCategory,KSAUidSoftwareInstallKeyValue,ETrue,		// Software Install Key

 	KUidSystemCategory,KUidSwiLatestInstallation,ETrue,

 	KUidSystemCategory,KUidJmiLatestInstallation,ETrue,

 	KUidSystemCategory,KUidUnifiedCertstoreFlag,ETrue,

 	KUidSystemCategory,KUidBackupRestoreKey,ETrue,

 	KSAPosIndicatorCategory,KSAPosIntGpsHwStatus,ETrue,

 	KSAPosLastKnownLocationCategory,KSAPosLastKnownLocation,EFalse

 	};

 TBool IsProcessRunning(const TDesC& aProcessName)

 	{

 	TFullName name;

 	TBool IsProcessRunning(EFalse);

 	TBuf<64> pattern(aProcessName);

 	TInt length = pattern.Length();

 	pattern += _L("*");

 	TFindProcess procFinder(pattern);

 	while(procFinder.Next(name) == KErrNone)

 		{

 		if(name.Length() > length)

 			{//If found name is a string containing aProcessName string.

 			TChar c(name[length]);

 			if(c.IsAlphaDigit() || c == TChar('_') || c == TChar('-'))

 				{//If the found name is other valid application name starting with aProcessName string.

 				RDebug::Print(_L(":: Process name: \"%S\".\n"), &name);

 				continue;

 				}

 			}

 		RProcess proc;

 		if(proc.Open(name) == KErrNone)

 			{

 			if (EExitKill == proc.ExitType())

 			    {

 			    RDebug::Print(_L("\"%S\" process killed.\n"), &name);

 			    proc.Close();

 			    IsProcessRunning = EFalse;

 			    }

 			 else

 			    {

 			    IsProcessRunning = ETrue;

 			    RDebug::Print(_L("\"%S\" process is running.\n"), &name);

 			    }

 			if(IsProcessRunning)

 				{

 				RDebug::Print(_L("Waiting additional time...\n"), &name);

 				User::After(1000000);

 				if (EExitKill == proc.ExitType())

 					{

 					RDebug::Print(_L("\"%S\" process now killed.\n"), &name);

 			    	IsProcessRunning = EFalse;

 					}

 				proc.Close();

 				}

 			}

 		}

 	return IsProcessRunning;

 	}

 //

 //

 /**

 @SYMTestCaseID          SYSLIB-SYSAGENT2-CT-1254

 @SYMTestCaseDesc	    Tests for SysAgt2 server

 @SYMTestPriority 	    High

 @SYMTestActions  	    Tests for RProperty::Set() and RProperty::Get() functions

 @SYMTestExpectedResults Test must not fail

 @SYMREQ                 REQ0000

 */

 static void RunTestsL()

 	{

 	TheTest.Start(_L(" @SYMTestCaseID:SYSLIB-SYSAGENT2-CT-1254 StartSysAgt2() test 1 "));

 	TInt err = ::StartSysAgt2();

 	TEST(err == KErrNone);

 	//proves that server does not run

 	err = IsProcessRunning(KSysAgent2ServerName);

     TEST2(err,EFalse);

 	TheTest.Next(_L("Capability test"));

 	//The access to KUidPhonePwr, KUidSIMStatus, KUidNetworkStatus, KUidNetworkStrength,

 	//KUidChargerStatus, KUidBatteryStrength, KUidCurrentCall capabilities is protected

 	//by different capabilities. T_SAgtTest has only ReadDeviceData. Then, all attempts

 	//to write/read to/from protected capabilities must fail.

     if(PlatSec::ConfigSetting(PlatSec::EPlatSecEnforcement) &&

        PlatSec::IsCapabilityEnforced(ECapabilityWriteDeviceData))

     	{

 		err = RProperty::Set(KUidSystemCategory, KUidPhonePwr.iUid, 1);

 		TEST2(err, KErrPermissionDenied);

 		err = RProperty::Set(KUidSystemCategory, KUidSIMStatus.iUid, 1);

 		TEST2(err, KErrPermissionDenied);

 		err = RProperty::Set(KUidSystemCategory, KUidNetworkStatus.iUid, 1);

 		TEST2(err, KErrPermissionDenied);

 		err = RProperty::Set(KUidSystemCategory, KUidNetworkStrength.iUid, 1);

 		TEST2(err, KErrPermissionDenied);

 		err = RProperty::Set(KUidSystemCategory, KUidChargerStatus.iUid, 1);

 		TEST2(err, KErrPermissionDenied);

 		err = RProperty::Set(KUidSystemCategory, KUidBatteryStrength.iUid, 1);

 		TEST2(err, KErrPermissionDenied);

 		err = RProperty::Set(KUidSystemCategory, KUidCurrentCall.iUid, 1);

 		TEST2(err, KErrPermissionDenied);

     	}

 	TheTest.Next(_L("Capability test 2"));

     //If all 48 predefined properties were registered successfully (by SysAgent server),

     //the test must be able to read their values.

     const TInt KPropertyCount = 48;

 	TUid saUid = TUid::Uid(KUidPhonePwrValue);

     for(TInt i=0;i<KPropertyCount;++i)

 	    {

         TInt val = 0;

 	    err = RProperty::Get(KUidSystemCategory, saUid.iUid, val);

         TEST2(err, KErrNone);

 	    ++saUid.iUid;

         }

 	TheTest.Next(_L("Other defined Properties test"));

 	// This test checks that the other publish and subscribe properties

 	// have been defined by SystemAgent2. These are properties which are used

 	// in other subsystems, mainly defined by this component due to PlatSec

 	// restrictions requiring WriteUserData to define a property.

 	for (TInt i=0; i < sizeof(KSaExternalKeys) / sizeof(KSaExternalKeys[0]); ++i)

 		{

 		if(KSaExternalKeys[i].iIsInt)

 			{

 			TInt propertyValue=0;

 			err = RProperty::Get(KSaExternalKeys[i].iCategory, KSaExternalKeys[i].iProperty, propertyValue);

 			}

 		else

 			{

 			TBuf8<512> propertyValue;

 			err = RProperty::Get(KSaExternalKeys[i].iCategory, KSaExternalKeys[i].iProperty, propertyValue);

 			}

 		// We expect the property to be defined, but we cannot make any assumptions

 		// about what value it will have since it could have been changed before

 		// the test gets here.

 		TEST(err==KErrNone);

 		}

 	}

 GLDEF_C TInt E32Main()

 	{

 	CTrapCleanup* tc = CTrapCleanup::New();

 	__UHEAP_MARK;

 	TheTest.Title();

 	TRAPD(err, ::RunTestsL());

 	TheTest(err == KErrNone);

 	TheTest.End();

 	TheTest.Close();

 	delete tc;

 	__UHEAP_MARKEND;

 	User::Heap().Check();

 	return KErrNone;

 	}