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

// DBMS security policy - testing new APIs

// All tests assume that drive C is presented in the system and is not a ROM drive.

// Please, ensure that t_dbenvcreate test is executed before t_dbplatsec<N>/t_dbplatsecperf tests!

// Please, ensure that t_dbenvdestroy test is executed after t_dbplatsec<N>/t_dbplatsecperf tests!

// 

//

#include <d32dbms.h>

#include <e32test.h>

#include "t_dbplatsecdef.h"

#include "t_dbplatsecutl.h"

#include "t_dbplatsecdb.h"

#include "t_dbplatsectbl.h"

//Global definitions

RTest 				TheTest(_L("t_dbplatsec : DBMS platform security testing"));

RDbs 				TheDbs;

RDbNamedDatabase 	TheDb1;

RDbNamedDatabase 	TheDb2;

RDbTable			TheTbl1;

RDbTable			TheTbl2;

void 		DeleteDatabases();

TDBSCUtils 	TheDbscUtils(TheTest, &DeleteDatabases);

void DeleteDatabases()

	{

	TheTbl1.Close();

	TheTbl2.Close();

	TheDb2.Close();

	TheDb1.Close();

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb1Name);

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb2Name);

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb3Name);

	}

static void GetDatabaseRPolicyTest()

	{

	TSecurityPolicy policy;

	TInt err = TheDbs.GetDatabasePolicy(KSecureDbUid, RDbs::EReadPolicy, policy);

	TEST2(err, KErrNone);

	TCompiledSecurityPolicy testSecurityPolicy(policy);

	TSecurityPolicy::TType type = testSecurityPolicy.Type();

	TEST(type == TSecurityPolicy::ETypeC3);

	TEST(TDBSCUtils::HasCapability(testSecurityPolicy, ECapabilityCommDD));

	TEST(TDBSCUtils::HasCapability(testSecurityPolicy, ECapabilityPowerMgmt));

	TEST(TDBSCUtils::HasCapability(testSecurityPolicy, ECapabilityTrustedUI));

	}

static void GetDatabaseWPolicyTest()

	{

	TSecurityPolicy policy;

	TInt err = TheDbs.GetDatabasePolicy(KSecureDbUid, RDbs::EWritePolicy, policy);

	TEST2(err, KErrNone);

	TCompiledSecurityPolicy testSecurityPolicy(policy);

	TSecurityPolicy::TType type = testSecurityPolicy.Type();

	TEST(type == TSecurityPolicy::ETypeC3);

	TEST(TDBSCUtils::HasCapability(testSecurityPolicy, ECapabilityMultimediaDD));

	TEST(TDBSCUtils::HasCapability(testSecurityPolicy, ECapabilityReadDeviceData));

	TEST(TDBSCUtils::HasCapability(testSecurityPolicy, static_cast <TCapability> (TUint8(ECapability_None))));

	}

static void GetDatabaseSPolicyTest()

	{

	TSecurityPolicy policy;

	TInt err = TheDbs.GetDatabasePolicy(KSecureDbUid, RDbs::ESchemaPolicy, policy);

	TEST2(err, KErrNone);

	TCompiledSecurityPolicy testSecurityPolicy(policy);

	TSecurityPolicy::TType type = testSecurityPolicy.Type();

	TEST(type == TSecurityPolicy::ETypeC7);

	TEST(TDBSCUtils::HasCapability(testSecurityPolicy, ECapabilityWriteDeviceData));

	TEST(TDBSCUtils::HasCapability(testSecurityPolicy, ECapabilityDRM));

	TEST(TDBSCUtils::HasCapability(testSecurityPolicy, ECapabilityProtServ));

	TEST(TDBSCUtils::HasCapability(testSecurityPolicy, ECapabilityDiskAdmin));

	TEST(TDBSCUtils::HasCapability(testSecurityPolicy, ECapabilityNetworkControl));

	TEST(TDBSCUtils::HasCapability(testSecurityPolicy, ECapabilityWriteUserData));

	TEST(TDBSCUtils::HasCapability(testSecurityPolicy, ECapabilitySwEvent));

	}

static void GetTablePolicyTest(const TDesC& aTableName,

							   RDbs::TPolicyType aPolicyType,

							   TSecurityPolicy::TType aType,

							   TSecureId aSecureId,

							   TVendorId aVendorId,

							   const TCapability* aCapabilities, TInt aCapCount)

	{

	TSecurityPolicy policy;

	TInt err = TheDbs.GetTablePolicy(KSecureDbUid, aTableName, aPolicyType, policy);

	TEST2(err, KErrNone);

	TCompiledSecurityPolicy testSecurityPolicy(policy);

	TEST(testSecurityPolicy.Type() == aType);

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

		{

		TEST(TDBSCUtils::HasCapability(testSecurityPolicy, aCapabilities[i]));

		}

	if(testSecurityPolicy.Type() == TSecurityPolicy::ETypeS3)

		{

		TEST(testSecurityPolicy.SecureId() == aSecureId);

		}

	else if(testSecurityPolicy.Type() == TSecurityPolicy::ETypeV3)

		{

		TEST(testSecurityPolicy.VendorId() == aVendorId);

		}

	}

//Tests RDbs::GetDatabasePolicy()/RDbs::GetTablePolicy() with invalid arguments

static void InvalidPolicyArgTestsL()

	{

	TheTest.Printf(_L("--Invalid UID\n"));

	const TUid KInvalidUid = {0x490122};

	TSecurityPolicy policy;

	TInt err = TheDbs.GetDatabasePolicy(KInvalidUid, RDbs::EWritePolicy, policy);

	TEST2(err, KErrArgument);

	err = TheDbs.GetDatabasePolicy(KNullUid, RDbs::EWritePolicy, policy);

	TEST2(err, KErrArgument);

	err = TheDbs.GetTablePolicy(KInvalidUid, KTableName1, RDbs::EWritePolicy, policy);

	TEST2(err, KErrArgument);

	err = TheDbs.GetTablePolicy(KNullUid, KTableName1, RDbs::EWritePolicy, policy);

	TEST2(err, KErrArgument);

	TheTest.Printf(_L("--Invalid policy type\n"));

	err = TheDbs.GetDatabasePolicy(KSecureDbUid, static_cast <RDbs::TPolicyType> (100), policy);

	TEST2(err, KErrArgument);

	err = TheDbs.GetTablePolicy(KSecureDbUid, KTableName2, static_cast <RDbs::TPolicyType> (101), policy);

	TEST2(err, KErrArgument);

	TheTest.Printf(_L("--Table name, which is not in the policy file\n"));

	_LIT(KMissingTableName, "AAAAAA");

	err = TheDbs.GetTablePolicy(KSecureDbUid, KMissingTableName, RDbs::EWritePolicy, policy);

	TEST2(err, KErrNone);//This must be the related database policy

	TSecurityPolicy dbPolicy;

	err = TheDbs.GetDatabasePolicy(KSecureDbUid, RDbs::EWritePolicy, dbPolicy);

	TEST2(err, KErrNone);

	TCompiledSecurityPolicy sp1(policy);

	TCompiledSecurityPolicy sp2(dbPolicy);

	TEST(sp1 == sp2);

	TheTest.Printf(_L("--Table name - zero length\n"));

	_LIT(KInvTableName, "");

	err = TheDbs.GetTablePolicy(KSecureDbUid, KInvTableName, RDbs::EWritePolicy, policy);

	TEST2(err, KErrArgument);

	TheTest.Printf(_L("--Table name - Schema policy request\n"));

	err = TheDbs.GetTablePolicy(KSecureDbUid, KTableName3, RDbs::ESchemaPolicy, policy);

	TEST2(err, KErrNotSupported);

	}

//Returns a valid drive number, but not presented in the system

static TDriveNumber FirstNotPresentedDriveNumber()

	{

	RFs fs;

	TEST2(fs.Connect(), KErrNone);

	TDriveNumber drvNumber = static_cast <TDriveNumber> (1000);

	for(TInt i=EDriveA;i<=EDriveZ;++i)

		{

		TDriveInfo driveInfo;

		if(fs.Drive(driveInfo, static_cast <TDriveNumber> (i)) == KErrNone)

			{

			if(driveInfo.iType == EMediaNotPresent)

				{

				drvNumber = static_cast <TDriveNumber> (i);

				break;

				}

			}

		}

	fs.Close();

	TEST(drvNumber <= EDriveZ);

	return drvNumber;

	}

//Returns the first valid ROM drive number.

static TDriveNumber FirstROMDriveNumber()

	{

	RFs fs;

	TEST2(fs.Connect(), KErrNone);

	TDriveNumber drvNumber = static_cast <TDriveNumber> (1000);

	for(TInt i=EDriveA;i<=EDriveZ;++i)

		{

		TDriveInfo driveInfo;

		if(fs.Drive(driveInfo, static_cast <TDriveNumber> (i)) == KErrNone)

			{

			if(driveInfo.iDriveAtt & KDriveAttRom)

				{

				drvNumber = static_cast <TDriveNumber> (i);

				break;

				}

			}

		}

	fs.Close();

	TEST(drvNumber <= EDriveZ);

	return drvNumber;

	}

//Tests RDbs::DatabaseNamesL() with invalid arguments

static void InvalidPolicyArgTests2L()

	{

	CDbDatabaseNames* dbNames = NULL;

	TheTest.Printf(_L("--Invalid UID\n"));

	const TUid KInvalidUid = {0x490122};

	TRAPD(err, dbNames = TheDbs.DatabaseNamesL(EDriveC, KInvalidUid));

	TEST2(err, KErrArgument);

	TEST(dbNames == NULL);

	TheTest.Printf(_L("--Null UID\n"));

	TRAP(err, dbNames = TheDbs.DatabaseNamesL(EDriveC, KNullUid));

	TEST2(err, KErrArgument);

	TEST(dbNames == NULL);

	TheTest.Printf(_L("--Invalid drive\n"));

	TRAP(err, dbNames = TheDbs.DatabaseNamesL(static_cast <TDriveNumber> (-1), KSecureDbUid));

	TEST2(err, KErrBadName);

	TEST(dbNames == NULL);

	TRAP(err, TheDbs.DatabaseNamesL(static_cast <TDriveNumber> (1765), KSecureDbUid));

	TEST2(err, KErrBadName);

	TEST(dbNames == NULL);

	TheTest.Printf(_L("--Valid drive number, but not presented in the system\n"));

	TDriveNumber driveNumber = ::FirstNotPresentedDriveNumber();

	TRAP(err, dbNames = TheDbs.DatabaseNamesL(driveNumber, KSecureDbUid));

	TEST2(err, KErrNotReady);

	TEST(dbNames == NULL);

	}

/**

@SYMTestCaseID SYSLIB-DBMS-CT-0003

@SYMTestCaseDesc Test RDbs::GetDatabasePolicy(), RDbs::GetTablePolicy()

                 getting database or table security policies.

@SYMTestPriority High

@SYMTestActions  A call with valid arguments and result check.

				 A call with an invalid UID.

				 A call with an invalid security policy type.

				 A call with a table name, not presented in the policy file.

				 A call requesting schema security policy of a table.

@SYMTestExpectedResults The test must not fail.

@SYMREQ          REQ2429

                 DBMS shall provide an API to apply security policies to database tables.

*/

static void GetPolicyTestL()

	{

	TheTest.Printf(_L("--Simple GetDatabasePolicy() tests\n"));

	::GetDatabaseRPolicyTest();

	::GetDatabaseWPolicyTest();

	::GetDatabaseSPolicyTest();

	::InvalidPolicyArgTestsL();

	TheTest.Printf(_L("--Simple GetTablePolicy() tests\n"));

	TCapability caps1[] = {ECapabilityCommDD, ECapabilityPowerMgmt, ECapabilityTrustedUI};

	TCapability caps2[] = {ECapabilityMultimediaDD, ECapabilityReadDeviceData};

	::GetTablePolicyTest(KTableName1, RDbs::EReadPolicy, TSecurityPolicy::ETypeC3, 0, 0, caps1, 3);

	::GetTablePolicyTest(KTableName1, RDbs::EWritePolicy, TSecurityPolicy::ETypeC3, 0, 0, caps2, 2);

	TCapability caps3[] = {static_cast <TCapability> (TUint8(ECapability_None))};

	::GetTablePolicyTest(KTableName2, RDbs::EReadPolicy, TSecurityPolicy::ETypeC3, 0, 0, caps3, 1);

	::GetTablePolicyTest(KTableName2, RDbs::EWritePolicy, TSecurityPolicy::ETypeC3, 0, 0, caps2, 2);

	TCapability caps4[] = {ECapabilityReadUserData};

	::GetTablePolicyTest(KTableName3, RDbs::EReadPolicy, TSecurityPolicy::ETypeC3, 0, 0, caps1, 3);

	::GetTablePolicyTest(KTableName3, RDbs::EWritePolicy, TSecurityPolicy::ETypeC3, 0, 0, caps4, 1);

	TCapability caps5[] = {ECapabilityWriteUserData};

	::GetTablePolicyTest(KTableName4, RDbs::EReadPolicy, TSecurityPolicy::ETypeC3, 0, 0, caps5, 1);

	::GetTablePolicyTest(KTableName4, RDbs::EWritePolicy, TSecurityPolicy::ETypeC3, 0, 0, caps2, 2);

	}

/**

@SYMTestCaseID SYSLIB-DBMS-CT-0004

@SYMTestCaseDesc Test RDbs::DatabaseNamesL(TDriveNumber, const TDesC&, TUid) -

                 getting a list of secure shared databases.

@SYMTestPriority High

@SYMTestActions  A call with valid arguments and result check

				 A call with an invalid drive number.

				 A call with a valid, but not presented in the system, drive number.

				 A call with an invalid UID.

@SYMTestExpectedResults The test must not fail.

@SYMREQ          REQ2429

                 DBMS shall provide an API to apply security policies to database tables.

*/

static void GetDatabaseListTestL()

	{

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb1Name);

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb2Name);

	TheDb1 = TDBSCUtils::CreateDatabase(TheDbs, KSecureDbUid, KDb1Name);

	TheDb1.Close();

	TheDb2 = TDBSCUtils::CreateDatabase(TheDbs, KSecureDbUid, KDb2Name);

	TheDb2.Close();

	TBuf<32> dbName;

	dbName.Copy(KDb1Name().Mid(KDatabaseNamePos));

	TEST(TDBSCUtils::IsDatabaseThereL(TheDbs, KSecureDbUid, EDriveC, dbName));

	dbName.Copy(KDb2Name().Mid(KDatabaseNamePos));

	TEST(TDBSCUtils::IsDatabaseThereL(TheDbs, KSecureDbUid, EDriveC, dbName));

	TheTest.Printf(_L("--An attempt to retrieve the list of database names for an UID, which security policy cannot be satisfied by the current test application\n"));

	CDbDatabaseNames* dbNames = NULL;

	TRAPD(err, dbNames = TheDbs.DatabaseNamesL(EDriveZ, KSecureDbUid2));

	delete dbNames;

	TEST2(err, KErrNone);

	::InvalidPolicyArgTests2L();

	}

/**

@SYMTestCaseID SYSLIB-DBMS-CT-0005

@SYMTestCaseDesc Test RDbs::CopyDatabase(const TDesC&, const TDesC&, TUid) -

                 copying secure shared database .

@SYMTestPriority High

@SYMTestActions  A call with valid arguments and result check

                 A call with an invalid source database name.

				 A call with an invalid target database name.

				 A call with an invalid UID.

				 An attempt to copy an opened database.

				 An attempt to copy a database, which security policy cannot be satisfied.

				 An attempt to copy a database with path specified in the database name.

				 An attempt to copy non-existing database.

@SYMTestExpectedResults The test must not fail.

@SYMREQ          REQ2429

                 DBMS shall provide an API to apply security policies to database tables.

*/

static void CopyDatabaseTestL()

	{

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb1Name);

	TheDb1 = TDBSCUtils::CreateDatabase(TheDbs, KSecureDbUid, KDb1Name);

	TheDb1.Close();

	TheTest.Printf(_L("--Simple copy test\n"));

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb3Name);

	TInt err = TheDbs.CopyDatabase(KDb1Name, KDb3Name, KSecureDbUid);

	TEST2(err, KErrNone);

	TBuf<32> dbName;

	dbName.Copy(KDb3Name().Mid(KDatabaseNamePos));

	TEST(TDBSCUtils::IsDatabaseThereL(TheDbs, KSecureDbUid, EDriveC, dbName));

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb3Name);

	TheTest.Printf(_L("--An attempt to copy a source database, which security policy cannot be satisfied by the current test application\n"));

	err = TheDbs.CopyDatabase(KProtDb1ZName, KDb3Name, KSecureDbUid2);

	TEST2(err, KErrPermissionDenied);

	TheTest.Printf(_L("--Null source database name\n"));

	err = TheDbs.CopyDatabase(KNullDesC, KDb3Name, KSecureDbUid);

	TEST2(err, KErrArgument);

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb3Name);

	TheTest.Printf(_L("--Source database name with not presented drive number\n"));

	TDriveNumber driveNumber = ::FirstNotPresentedDriveNumber();

	TChar driveChar;

	TEST2(RFs::DriveToChar(driveNumber, driveChar), KErrNone);

	TBuf<KDatabaseNamePos> drvBuf;

	drvBuf.Append(driveChar);

	drvBuf.Append(':');

	dbName.Copy(drvBuf);

	dbName.Append(KDb1Name().Mid(KDatabaseNamePos));

	err = TheDbs.CopyDatabase(dbName, KDb3Name, KSecureDbUid);

	TEST2(err, KErrNotReady);

	TheTest.Printf(_L("--Source database name - only with a drive letter and \":\"\n"));

	err = TheDbs.CopyDatabase(drvBuf, KDb3Name, KSecureDbUid);

	TEST2(err, KErrNotReady);

	TheTest.Printf(_L("--Source database name - only with a drive letter\n"));

	drvBuf.SetLength(1);

	err = TheDbs.CopyDatabase(drvBuf, KDb3Name, KSecureDbUid);

	TEST2(err, KErrArgument);

	TheTest.Printf(_L("--Null destination database name\n"));

	err = TheDbs.CopyDatabase(KDb1Name, KNullDesC, KSecureDbUid);

	TEST2(err, KErrArgument);

	TheTest.Printf(_L("--Destination database name with not presented drive number\n"));

	drvBuf.Append(':');

	dbName.Copy(drvBuf);

	dbName.Append(KDb3Name().Mid(KDatabaseNamePos));

	err = TheDbs.CopyDatabase(KDb1Name, dbName, KSecureDbUid);

	TEST2(err, KErrNotReady);

	TheTest.Printf(_L("--Destination database - ROM drive\n"));

	TDriveNumber romDriveNumber = ::FirstROMDriveNumber();

	TEST2(RFs::DriveToChar(romDriveNumber, driveChar), KErrNone);

	drvBuf[0] = static_cast <TText> (driveChar);

	dbName.Copy(drvBuf);

	dbName.Append(KDb3Name().Mid(KDatabaseNamePos));

	err = TheDbs.CopyDatabase(KDb1Name, dbName, KSecureDbUid);

	TEST2(err, KErrAccessDenied);

	TheTest.Printf(_L("--A source database with a valid name, but not presented in the system\n"));

	_LIT(KMissingDb, "C:asdhasfsudfygusdfuierfb.db");

	err = TheDbs.CopyDatabase(KMissingDb, KDb3Name, KSecureDbUid);

	TEST2(err, KErrNotFound);

	TheTest.Printf(_L("--A test with an open source database\n"));

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb1Name);

	TheDb2 = TDBSCUtils::CreateDatabase(TheDbs, KSecureDbUid, KDb1Name);

	err = TheDbs.CopyDatabase(KDb1Name, KDb3Name, KSecureDbUid);

	TheDb2.Close();

	TEST2(err, KErrInUse);

	TheTest.Printf(_L("--An atempt to copy over an existing database\n"));

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb2Name);

	TheDb1 = TDBSCUtils::CreateDatabase(TheDbs, KSecureDbUid, KDb2Name);

	TheDb1.Close();

	err = TheDbs.CopyDatabase(KDb1Name, KDb2Name, KSecureDbUid);

	TEST2(err, KErrAlreadyExists);

	TheTest.Printf(_L("--Too long destination database name > KDbMaxName symbols\n"));

	_LIT(KTooLongDbName, "A_0123456789_0123456789_0123456789_0123456789_0123456789_0123456789_0123456789.db");

	err = TheDbs.CopyDatabase(KDb1Name, KTooLongDbName, KSecureDbUid);

	TEST2(err, KErrArgument);

	TheTest.Printf(_L("--Null UID\n"));

	err = TheDbs.CopyDatabase(KDb1Name, KDb3Name, KNullUid);

	TEST2(err, KErrArgument);

	TheTest.Printf(_L("--Invalid UID\n"));

	const TUid KInvalidUid = {0x490122};

	err = TheDbs.CopyDatabase(KDb1Name, KDb3Name, KInvalidUid);

	TEST2(err, KErrArgument);

	TheTest.Printf(_L("--An attempt to copy a database with the path specified in the name\n"));

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb2Name);

	_LIT(KSrcDbName2, "C:\\a.Db");

	_LIT(KDestDbName2, "C:\\b.dB");

	err = TheDbs.CopyDatabase(KSrcDbName2, KDestDbName2, KSecureDbUid);

	TEST2(err, KErrArgument);

	}

/**

@SYMTestCaseID SYSLIB-DBMS-CT-0006

@SYMTestCaseDesc Test RDbs::Delete(const TDesC&, TUid) - deleting secure shared database .

@SYMTestPriority High

@SYMTestActions  A call with valid arguments and result check

                 A call with an invalid UID.

				 A call with an invalid database name.

				 An attempt to delete an opened database.

				 An attempt to delete a database, which security policy cannot be satisfied.

				 An attempt to delete a database with path specified in the database name.

				 An attempt to delete non-existing database.

@SYMTestExpectedResults The test must not fail.

@SYMREQ          REQ2429

                 DBMS shall provide an API to apply security policies to database tables.

*/

static void DeleteDatabaseTestL()

	{

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb1Name);

	TheDb1 = TDBSCUtils::CreateDatabase(TheDbs, KSecureDbUid, KDb1Name);

	TheDb1.Close();

	TheTest.Printf(_L("--Simple delete database test\n"));

	TInt err = TheDbs.DeleteDatabase(KDb1Name, KSecureDbUid);

	TEST2(err, KErrNone);

	TheTest.Printf(_L("--Null UID\n"));

	err = TheDbs.DeleteDatabase(KDb1Name, KNullUid);

	TEST2(err, KErrArgument);

	TheTest.Printf(_L("--Invalid UID\n"));

	const TUid KInvalidUid = {0x490122};

	err = TheDbs.DeleteDatabase(KDb1Name, KInvalidUid);

	TEST2(err, KErrArgument);

	TheTest.Printf(_L("--Null database name\n"));

	err = TheDbs.DeleteDatabase(KNullDesC, KSecureDbUid);

	TEST2(err, KErrArgument);

	TheTest.Printf(_L("--Non-existing database - no drive letter (the name is invalid)\n"));

	_LIT(KTooLongDbName, "A_0123456789_0123456789_0123456789_0123456789_0123456789_0123456789_0123456789.db");

	err = TheDbs.DeleteDatabase(KTooLongDbName, KSecureDbUid);

	TEST2(err, KErrArgument);

	_LIT(KInvDbName1, "UI789.db");

	err = TheDbs.DeleteDatabase(KInvDbName1, KSecureDbUid);

	TEST2(err, KErrArgument);

	TheTest.Printf(_L("--Non-existing database - valid db name\n"));

	_LIT(KMissingDbName1, "C:A0192345.db");

	err = TheDbs.DeleteDatabase(KMissingDbName1, KSecureDbUid);

	TEST2(err, KErrNotFound);

	TheTest.Printf(_L("--An attempt to delete a database with the path specified in the name\n"));

	_LIT(KMissingDbName2, "C:\\TEMP\\A0192345.db");

	err = TheDbs.DeleteDatabase(KMissingDbName2, KSecureDbUid);

	TEST2(err, KErrArgument);

	TheTest.Printf(_L("--An attempt to delete a database, which security policy cannot be satisfied by the current test application\n"));

	err = TheDbs.DeleteDatabase(KProtDb1CName, KSecureDbUid2);

	TEST2(err, KErrPermissionDenied);

	TheTest.Printf(_L("--An attempt to delete an open database\n"));

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb1Name);

	TheDb1 = TDBSCUtils::CreateDatabase(TheDbs, KSecureDbUid, KDb1Name);

	err = TheDbs.DeleteDatabase(KDb1Name, KSecureDbUid);

	TEST2(err, KErrInUse);

	TheDb1.Close();

	}

/**

@SYMTestCaseID SYSLIB-DBMS-CT-0007

@SYMTestCaseDesc Test RDbNamedDatabase::Create(RDbs&, const TDesC&, const TDesC&) -

                 secure shared database creation.

@SYMTestPriority High

@SYMTestActions  A call with valid arguments and result check

                 An attempt to create already existing database.

				 An attempt to create already existing and opened database.

				 RDbNamedDatabase::Create() called with an invalid format string.

				 RDbNamedDatabase::Create() called with a database name containing '\' symbols.

				 An attempt to create a database, which security policy cannot be satisfied.

@SYMTestExpectedResults The test must not fail.

@SYMREQ          REQ2429

                 DBMS shall provide an API to apply security policies to database tables.

*/

static void CreateDatabaseL()

	{

	TheTest.Printf(_L("--Simple create database test\n"));

	TDBSCUtils::DeleteDatabase(TheDbs, KSecureDbUid, KDb1Name);