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

 //

 #include <e32test.h>

 #include <bautils.h>

 #include <e32math.h>

 #include <hal.h>

 #include <sqldb.h>

 #include "sqliteTestUtl.h"

 #include "t_sqliteperf.h"

 ///////////////////////////////////////////////////////////////////////////////////////

 const char* const KTestName = "t_sqliteperf test";

 _LIT(KTestDir, "c:\\test\\");

 _LIT(KTestDbName,   "c:\\test\\t_sqliteperf.db");

 _LIT8(KTestDbName8, "c:\\test\\t_sqliteperf.db\x0");

 _LIT(KSqlSrvName, "sqlsrv.exe");

 static RSqlDatabase TheDb;

 const TInt KInsertRecCnt = 1000;

 const TInt KUpdateRecCnt = KInsertRecCnt / 10;

 const TInt KDeleteRecCnt = KInsertRecCnt / 10;

 const TInt KSelectRecCnt = KInsertRecCnt / 10;

 static TInt TheUpdateRecIds[KUpdateRecCnt] = {0};

 static TInt TheDeleteRecIds[KDeleteRecCnt] = {0};

 static TInt TheSelectRecIds[KSelectRecCnt] = {0};

 static TInt TheInsertRecId = 0;

 static TInt TheUpdateRecId = 0;

 static TInt TheDeleteRecId = 0;

 static TInt TheSelectRecId = 0;

 const char KMultiInsertSql[] = "INSERT INTO Tbl VALUES(:Id, 9234567890, 99.998, 'TEXT VALUE', x'AABBCCDDEEFF')";

 const char KMultiUpdateSql[] = "UPDATE Tbl SET D=11.113 WHERE I IN";

 const char KMultiDeleteSql[] = "DELETE FROM Tbl WHERE I IN";

 const char KMultiSelectSql[] = "SELECT I64,D,T,B FROM Tbl WHERE I IN";

 const char KSingleInsertSql[] = "INSERT INTO Tbl VALUES(%d, 9234567890, 99.998, 'TEXT VALUE', x'AABBCCDDEEFF')";

 const char KSingleUpdateSql[] = "UPDATE Tbl SET D=11.113 WHERE I=";

 const char KSingleDeleteSql[] = "DELETE FROM Tbl WHERE I=";

 const char KSingleSelectSql[] = "SELECT I64,D,T,B FROM Tbl WHERE I=";

 //This buffer is used for SQL statement formatting. 2000 bytes should be enough as a buffer max length.

 static TBuf8<2000> TheSqlBuf;

 //This buffer is used for printf related formatting. 500 characters should be enough.

 static TBuf<500> ThePrintBuf;

 #define UNUSED_VAR(a) (a) = (a)

 #define UNUSED_PTR(a) a.Set(a)

 ///////////////////////////////////////////////////////////////////////////////////////

 extern "C" const char* TestDbName(void)

 	{

 	return (const char*)KTestDbName8().Ptr();

 	}

 static void DeleteTestFiles()

 	{

 	TheDb.Close();

 	(void)RSqlDatabase::Delete(KTestDbName);

 	}

 ///////////////////////////////////////////////////////////////////////////////////////

 //Test macros and functions

 static void Check(TInt aValue, TInt aLine)

 	{

 	if(!aValue)

 		{

 		DeleteTestFiles();

 		TestTestLine(EFalse, aLine);

 		}

 	}

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

 	{

 	if(aValue != aExpected)

 		{

 		DeleteTestFiles();

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

 		TestTestLine(EFalse, aLine);

 		}

 	}

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

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

 ///////////////////////////////////////////////////////////////////////////////////////

 static TInt KillProcess(const TDesC& aProcessName)

 	{

 	TFullName name;

 	//RDebug::Print(_L("Find and kill \"%S\" process.\n"), &aProcessName);

 	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)

 			{

 			proc.Kill(0);

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

 			}

 		proc.Close();

 		}

 	return KErrNone;

 	}

 static TInt TheCounterFreq = -10000000;

 const TInt KMicroSecIn1Sec = 1000000;

 //Prints aFastCount parameter (converted to us)

 static TInt FcDiff2Us(TUint32 aFastCount)

 	{

 	double v = ((double)aFastCount * KMicroSecIn1Sec) / (double)TheCounterFreq;

 	TInt v2 = (TInt)v;

 	return v2;

 	}

 static void GetFastCounterFrequency()

 	{

 	TEST2(HAL::Get(HAL::EFastCounterFrequency, TheCounterFreq), KErrNone);

 	TBuf8<32> printString;

 	printString.Format(_L8("Counter frequency=%d\r\n"), TheCounterFreq);

 	TestPrintf((const char*)printString.PtrZ());

 	}

 extern "C" unsigned int FastCounterValue(void)

 	{

 	return User::FastCounter();

 	}

 //The performance test case results are stored in the ThePerfTestResult array.

 static TUint32 ThePerfTestResult[EPerfTestModeCnt][EPerfTestTypeCnt];

 extern "C" void StorePerfTestResult(TPerfTestMode aMode, TPerfTestType aType, unsigned int aResult)

 	{

 	ThePerfTestResult[aMode][aType] = aResult;

 	}

 static void PrintPerfTestResults()

 	{

 	TBuf8<256> printString;

 	TInt r1 = FcDiff2Us(ThePerfTestResult[EPerfTestSqlMode]          [EPerfTestMultiInsert]);

 	TInt r2 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteSqlMode]    [EPerfTestMultiInsert]);

 	TInt r3 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteDefaultMode][EPerfTestMultiInsert]);

 	TInt r4 = (TInt)((Abs(r2 - r1) * 100.0) / r1);

 	TInt r5 = (TInt)((Abs(r3 - r1) * 100.0) / r1);

 	TestPrintf("###                 SQL            SQLITE-SQL     SQLITE-DEFAULT\r\n");

 	printString.Format(_L8("###Multi Insert:  %8dus     %8dus     %8dus   %8d%%%%   %8d%%%%\r\n"), r1, r2, r3, r2 > r1 ? -r4 : +r4, r3 > r1 ? -r5 : +r5);

 	TestPrintf((const char*)printString.PtrZ());

 	r1 = FcDiff2Us(ThePerfTestResult[EPerfTestSqlMode]          [EPerfTestMultiUpdate]);

 	r2 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteSqlMode]    [EPerfTestMultiUpdate]);

 	r3 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteDefaultMode][EPerfTestMultiUpdate]);

 	r4 = (TInt)((Abs(r2 - r1) * 100.0) / r1);

 	r5 = (TInt)((Abs(r3 - r1) * 100.0) / r1);

 	printString.Format(_L8("###Multi Update:  %8dus     %8dus     %8dus   %8d%%%%   %8d%%%%\r\n"), r1, r2, r3, r2 > r1 ? -r4 : +r4, r3 > r1 ? -r5 : +r5);

 	TestPrintf((const char*)printString.PtrZ());

 	r1 = FcDiff2Us(ThePerfTestResult[EPerfTestSqlMode]          [EPerfTestMultiDelete]);

 	r2 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteSqlMode]    [EPerfTestMultiDelete]);

 	r3 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteDefaultMode][EPerfTestMultiDelete]);

 	r4 = (TInt)((Abs(r2 - r1) * 100.0) / r1);

 	r5 = (TInt)((Abs(r3 - r1) * 100.0) / r1);

 	printString.Format(_L8("###Multi Delete:  %8dus     %8dus     %8dus   %8d%%%%   %8d%%%%\r\n"), r1, r2, r3, r2 > r1 ? -r4 : +r4, r3 > r1 ? -r5 : +r5);

 	TestPrintf((const char*)printString.PtrZ());

 	r1 = FcDiff2Us(ThePerfTestResult[EPerfTestSqlMode]          [EPerfTestMultiSelect]);

 	r2 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteSqlMode]    [EPerfTestMultiSelect]);

 	r3 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteDefaultMode][EPerfTestMultiSelect]);

 	r4 = (TInt)((Abs(r2 - r1) * 100.0) / r1);

 	r5 = (TInt)((Abs(r3 - r1) * 100.0) / r1);

 	printString.Format(_L8("###Multi Select:  %8dus     %8dus     %8dus   %8d%%%%   %8d%%%%\r\n"), r1, r2, r3, r2 > r1 ? -r4 : +r4, r3 > r1 ? -r5 : +r5);

 	TestPrintf((const char*)printString.PtrZ());

 	r1 = FcDiff2Us(ThePerfTestResult[EPerfTestSqlMode]          [EPerfTestSingleInsert]);

 	r2 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteSqlMode]    [EPerfTestSingleInsert]);

 	r3 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteDefaultMode][EPerfTestSingleInsert]);

 	r4 = (TInt)((Abs(r2 - r1) * 100.0) / r1);

 	r5 = (TInt)((Abs(r3 - r1) * 100.0) / r1);

 	printString.Format(_L8("##Single Insert:  %8dus     %8dus     %8dus   %8d%%%%   %8d%%%%\r\n"), r1, r2, r3, r2 > r1 ? -r4 : +r4, r3 > r1 ? -r5 : +r5);

 	TestPrintf((const char*)printString.PtrZ());

 	r1 = FcDiff2Us(ThePerfTestResult[EPerfTestSqlMode]          [EPerfTestSingleUpdate]);

 	r2 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteSqlMode]    [EPerfTestSingleUpdate]);

 	r3 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteDefaultMode][EPerfTestSingleUpdate]);

 	r4 = (TInt)((Abs(r2 - r1) * 100.0) / r1);

 	r5 = (TInt)((Abs(r3 - r1) * 100.0) / r1);

 	printString.Format(_L8("##Single Update:  %8dus     %8dus     %8dus   %8d%%%%   %8d%%%%\r\n"), r1, r2, r3, r2 > r1 ? -r4 : +r4, r3 > r1 ? -r5 : +r5);

 	TestPrintf((const char*)printString.PtrZ());

 	r1 = FcDiff2Us(ThePerfTestResult[EPerfTestSqlMode]          [EPerfTestSingleDelete]);

 	r2 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteSqlMode]    [EPerfTestSingleDelete]);

 	r3 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteDefaultMode][EPerfTestSingleDelete]);

 	r4 = (TInt)((Abs(r2 - r1) * 100.0) / r1);

 	r5 = (TInt)((Abs(r3 - r1) * 100.0) / r1);

 	printString.Format(_L8("##Single Delete:  %8dus     %8dus     %8dus   %8d%%%%   %8d%%%%\r\n"), r1, r2, r3, r2 > r1 ? -r4 : +r4, r3 > r1 ? -r5 : +r5);

 	TestPrintf((const char*)printString.PtrZ());

 	r1 = FcDiff2Us(ThePerfTestResult[EPerfTestSqlMode]          [EPerfTestSingleSelect]);

 	r2 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteSqlMode]    [EPerfTestSingleSelect]);

 	r3 = FcDiff2Us(ThePerfTestResult[EPerfTestSqliteDefaultMode][EPerfTestSingleSelect]);

 	r4 = (TInt)((Abs(r2 - r1) * 100.0) / r1);

 	r5 = (TInt)((Abs(r3 - r1) * 100.0) / r1);

 	printString.Format(_L8("##Single Select:  %8dus     %8dus     %8dus   %8d%%%%   %8d%%%%\r\n"), r1, r2, r3, r2 > r1 ? -r4 : +r4, r3 > r1 ? -r5 : +r5);

 	TestPrintf((const char*)printString.PtrZ());

 	}

 ///////////////////////////////////////////////////////////////////////////////////////

 static void CreateTestDir()

     {

     RFs fs;

 	TInt err = fs.Connect();

 	TEST2(err, KErrNone);

 	err = fs.MkDir(KTestDir);

 	TEST(err == KErrNone || err == KErrAlreadyExists);

 	err = fs.CreatePrivatePath(EDriveC);

 	TEST(err == KErrNone || err == KErrAlreadyExists);

 	fs.Close();

 	}

 ///////////////////////////////////////////////////////////////////////////////////////

 static void CreateTestDatabase()

 	{

 	RSqlDatabase::Delete(KTestDbName);

 	_LIT8(KConfigStr, "encoding=\"UTF-8\"");

 	TInt err = TheDb.Create(KTestDbName, &KConfigStr);

 	TEST2(err, KErrNone);

 	err = TheDb.Exec(_L8("CREATE TABLE Tbl(I INTEGER PRIMARY KEY, I64 BIGINT, D DOUBLE, T TEXT, B BINARY)"));

 	TEST2(err, 1);

 	TheDb.Close();

 	}

 ///////////////////////////////////////////////////////////////////////////////////////

 ////////////////////             SQL server tests           ///////////////////////////

 ///////////////////////////////////////////////////////////////////////////////////////

 /**

 @SYMTestCaseID			SYSLIB-SQLITE3-UT-4010

 @SYMTestCaseDesc		SQL server multi-insert performance test.

 						The test inserts 1000 records in a single transaction and stores

 						the execution time for later use (comparison and printing).

 @SYMTestPriority		High

 @SYMTestActions			SQL server multi-insert performance test.

 @SYMTestExpectedResults Test must not fail

 @SYMREQ					REQ8782

 */

 static void SqlServerMultiInsertTest(const char aInsertSql[], TInt aInsertRecCnt)

 	{

 	TestNext(" @SYMTestCaseID:SYSLIB-SQLITE3-UT-4010 ");

 	(void)KillProcess(KSqlSrvName);

 	TInt err = TheDb.Open(KTestDbName);

 	TEST2(err, KErrNone);

 	RSqlStatement stmt;

 	err = stmt.Prepare(TheDb, TPtrC8((const TUint8*)aInsertSql));

 	TEST2(err, KErrNone);

 	TUint32 fc = FastCounterValue();

 	err = TheDb.Exec(_L8("BEGIN"));

 	TEST(err >= 0);

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

 		{

 		err = stmt.BindInt(0, i + 1);

 		TEST2(err, KErrNone);

 		err = stmt.Exec();

 		TEST2(err, 1);

 		err = stmt.Reset();

 		TEST2(err, KErrNone);

 		}

 	err = TheDb.Exec(_L8("COMMIT"));

 	TEST(err >= 0);

 	StorePerfTestResult(EPerfTestSqlMode, EPerfTestMultiInsert, FastCounterValue() - fc);

 	stmt.Close();

 	TheDb.Close();

 	}

 static void FormatSqlStmt(TDes8& aSqlBuf, const char aSql[], TInt aRecIds[], TInt aRecCnt)

 	{

 	aSqlBuf.Copy(TPtrC8((const TUint8*)aSql));

 	aSqlBuf.Append(_L8("("));

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

 		{

 		aSqlBuf.AppendNum((TInt64)aRecIds[i]);

 		aSqlBuf.Append(_L8(","));

 		}

 	aSqlBuf.SetLength(aSqlBuf.Length() - 1);

 	aSqlBuf.Append(_L8(")"));

 	}

 /**

 @SYMTestCaseID			SYSLIB-SQLITE3-UT-4011

 @SYMTestCaseDesc		SQL server multi-update performance test.

 						The test updates 100 randomly chosen records and stores

 						the execution time for later use (comparison and printing).

 @SYMTestPriority		High

 @SYMTestActions			SQL server multi-update performance test.

 @SYMTestExpectedResults Test must not fail

 @SYMREQ					REQ8782

 */

 static void SqlServerMultiUpdateTest(const char aUpdateSql[], TInt aUpdateRecIds[], TInt aUpdateRecCnt)

 	{

     TestNext(" @SYMTestCaseID:SYSLIB-SQLITE3-UT-4011 ");

 	(void)KillProcess(KSqlSrvName);

 	TInt err = TheDb.Open(KTestDbName);

 	TEST2(err, KErrNone);

 	FormatSqlStmt(TheSqlBuf, aUpdateSql, aUpdateRecIds, aUpdateRecCnt);

 	TUint32 fc = FastCounterValue();

 	err = TheDb.Exec(TheSqlBuf);

 	StorePerfTestResult(EPerfTestSqlMode, EPerfTestMultiUpdate, FastCounterValue() - fc);

 	TEST2(err, aUpdateRecCnt);

 	TheDb.Close();

 	}

 /**

 @SYMTestCaseID			SYSLIB-SQLITE3-UT-4012

 @SYMTestCaseDesc		SQL server multi-delete performance test.

 						The test deletes 100 randomly chosen records and stores

 						the execution time for later use (comparison and printing).

 @SYMTestPriority		High

 @SYMTestActions			SQL server multi-delete performance test.

 @SYMTestExpectedResults Test must not fail

 @SYMREQ					REQ8782

 */

 static void SqlServerMultiDeleteTest(const char aDeleteSql[], TInt aDeleteRecIds[], TInt aDeleteRecCnt)

 	{

 	TestNext(" @SYMTestCaseID:SYSLIB-SQLITE3-UT-4012 ");

 	(void)KillProcess(KSqlSrvName);

 	TInt err = TheDb.Open(KTestDbName);

 	TEST2(err, KErrNone);

 	FormatSqlStmt(TheSqlBuf, aDeleteSql, aDeleteRecIds, aDeleteRecCnt);

 	TUint32 fc = FastCounterValue();

 	err = TheDb.Exec(TheSqlBuf);

 	StorePerfTestResult(EPerfTestSqlMode, EPerfTestMultiDelete, FastCounterValue() - fc);

 	TEST2(err, aDeleteRecCnt);

 	TheDb.Close();

 	}

 /**

 @SYMTestCaseID			SYSLIB-SQLITE3-UT-4013

 @SYMTestCaseDesc		SQL server multi-select performance test.

 						The test selects 100 randomly chosen records and stores

 						the execution time for later use (comparison and printing).

 @SYMTestPriority		High

 @SYMTestActions			SQL server multi-select performance test.

 @SYMTestExpectedResults Test must not fail

 @SYMREQ					REQ8782

 */

 static void SqlServerMultiSelectTest(const char aSelectSql[], TInt aSelectRecIds[], TInt aSelectRecCnt)

 	{

 	TestNext(" @SYMTestCaseID:SYSLIB-SQLITE3-UT-4013 ");

 	(void)KillProcess(KSqlSrvName);

 	TInt err = TheDb.Open(KTestDbName);

 	TEST2(err, KErrNone);

 	FormatSqlStmt(TheSqlBuf, aSelectSql, aSelectRecIds, aSelectRecCnt);

 	RSqlStatement stmt;

 	err = stmt.Prepare(TheDb, TheSqlBuf);

 	TEST2(err, KErrNone);

 	TInt recCnt = 0;

 	TUint32 fc = FastCounterValue();

 	while((err = stmt.Next()) == KSqlAtRow)

 		{

 		TInt64 i64 = stmt.ColumnInt64(0);

 		UNUSED_VAR(i64);

 		TReal d = stmt.ColumnReal(1);

 		UNUSED_VAR(d);

 		TPtrC t;

 		err = stmt.ColumnText(2, t);

 		TEST2(err, KErrNone);

 		UNUSED_PTR(t);

 		TPtrC8 b;

 		err = stmt.ColumnBinary(3, b);

 		TEST2(err, KErrNone);

 		UNUSED_PTR(b);

 		++recCnt;

 		}

 	StorePerfTestResult(EPerfTestSqlMode, EPerfTestMultiSelect, FastCounterValue() - fc);

 	TEST2(err, KSqlAtEnd);

 	TEST2(recCnt, aSelectRecCnt);

 	stmt.Close();

 	TheDb.Close();

 	}

 /**

 @SYMTestCaseID			SYSLIB-SQLITE3-UT-4014

 @SYMTestCaseDesc		SQL server single-insert performance test.

 						The test inserts one record and stores

 						the execution time for later use (comparison and printing).

 @SYMTestPriority		High

 @SYMTestActions			SQL server single-insert performance test.

 @SYMTestExpectedResults Test must not fail

 @SYMREQ					REQ8782

 */

 static void SqlServerSingleInsertTest(const char aSingleInsertSql[], TInt aInsertRecId)

 	{

 	TestNext(" @SYMTestCaseID:SYSLIB-SQLITE3-UT-4014 ");

 	(void)KillProcess(KSqlSrvName);

 	TInt err = TheDb.Open(KTestDbName);

 	TEST2(err, KErrNone);

 	TheSqlBuf.Format(TPtrC8((const TUint8*)aSingleInsertSql), aInsertRecId);

 	TUint32 fc = FastCounterValue();

 	err = TheDb.Exec(TheSqlBuf);

 	StorePerfTestResult(EPerfTestSqlMode, EPerfTestSingleInsert, FastCounterValue() - fc);

 	TEST2(err, 1);

 	TheDb.Close();

 	}

 /**

 @SYMTestCaseID			SYSLIB-SQLITE3-UT-4015

 @SYMTestCaseDesc		SQL server single-update performance test.

 						The test updates one randomly chosen record and stores

 						the execution time for later use (comparison and printing).

 @SYMTestPriority		High

 @SYMTestActions			SQL server single-update performance test.

 @SYMTestExpectedResults Test must not fail

 @SYMREQ					REQ8782

 */

 static void SqlServerSingleUpdateTest(const char aSingleUpdateSql[], TInt aUpdateRecId)

 	{

 	TestNext(" @SYMTestCaseID:SYSLIB-SQLITE3-UT-4015 ");

 	(void)KillProcess(KSqlSrvName);

 	TInt err = TheDb.Open(KTestDbName);

 	TEST2(err, KErrNone);

 	TheSqlBuf.Copy(TPtrC8((const TUint8*)aSingleUpdateSql));

 	TheSqlBuf.AppendNum((TInt64)aUpdateRecId);

 	TUint32 fc = FastCounterValue();

 	err = TheDb.Exec(TheSqlBuf);

 	StorePerfTestResult(EPerfTestSqlMode, EPerfTestSingleUpdate, FastCounterValue() - fc);

 	TEST2(err, 1);

 	TheDb.Close();

 	}

 /**

 @SYMTestCaseID			SYSLIB-SQLITE3-UT-4016

 @SYMTestCaseDesc		SQL server single-delete performance test.

 						The test deletes one randomly chosen record and stores

 						the execution time for later use (comparison and printing).

 @SYMTestPriority		High

 @SYMTestActions			SQL server single-delete performance test.

 @SYMTestExpectedResults Test must not fail

 @SYMREQ					REQ8782

 */

 static void SqlServerSingleDeleteTest(const char aSingleDeleteSql[], TInt aDeleteRecId)

 	{

 	TestNext(" @SYMTestCaseID:SYSLIB-SQLITE3-UT-4016 ");

 	(void)KillProcess(KSqlSrvName);

 	TInt err = TheDb.Open(KTestDbName);

 	TEST2(err, KErrNone);

 	TheSqlBuf.Copy(TPtrC8((const TUint8*)aSingleDeleteSql));

 	TheSqlBuf.AppendNum((TInt64)aDeleteRecId);

 	TUint32 fc = FastCounterValue();

 	err = TheDb.Exec(TheSqlBuf);

 	StorePerfTestResult(EPerfTestSqlMode, EPerfTestSingleDelete, FastCounterValue() - fc);

 	TEST2(err, 1);

 	TheDb.Close();

 	}

 /**

 @SYMTestCaseID			SYSLIB-SQLITE3-UT-4017

 @SYMTestCaseDesc		SQL server single-select performance test.

 						The test selects one randomly chosen record and stores

 						the execution time for later use (comparison and printing).

 @SYMTestPriority		High

 @SYMTestActions			SQL server single-select performance test.

 @SYMTestExpectedResults Test must not fail

 @SYMREQ					REQ8782

 */

 static void SqlServerSingleSelectTest(const char aSingleSelectSql[], TInt aSelectRecId)

 	{

 	TestNext(" @SYMTestCaseID:SYSLIB-SQLITE3-UT-4017 ");

 	(void)KillProcess(KSqlSrvName);

 	TInt err = TheDb.Open(KTestDbName);

 	TEST2(err, KErrNone);

 	TheSqlBuf.Copy(TPtrC8((const TUint8*)aSingleSelectSql));

 	TheSqlBuf.AppendNum((TInt64)aSelectRecId);

 	RSqlStatement stmt;

 	err = stmt.Prepare(TheDb, TheSqlBuf);

 	TEST2(err, KErrNone);

 	TInt recCnt = 0;

 	TUint32 fc = FastCounterValue();

 	while((err = stmt.Next()) == KSqlAtRow)

 		{

 		TInt64 i64 = stmt.ColumnInt64(0);

 		UNUSED_VAR(i64);

 		TReal d = stmt.ColumnReal(1);

 		UNUSED_VAR(d);

 		TPtrC t;

 		err = stmt.ColumnText(2, t);

 		TEST2(err, KErrNone);

 		UNUSED_PTR(t);

 		TPtrC8 b;

 		err = stmt.ColumnBinary(3, b);

 		TEST2(err, KErrNone);

 		UNUSED_PTR(b);

 		++recCnt;

 		}

 	StorePerfTestResult(EPerfTestSqlMode, EPerfTestSingleSelect, FastCounterValue() - fc);

 	TEST2(err, KSqlAtEnd);

 	TEST2(recCnt, 1);

 	stmt.Close();

 	TheDb.Close();

 	}

 ///////////////////////////////////////////////////////////////////////////////////////

 ///////////////////////////////////////////////////////////////////////////////////////

 ///////////////////////////////////////////////////////////////////////////////////////

 static void DoSqlServerTests()

 	{

 	TestNext("SQL: Create the test database");

 	CreateTestDatabase();

 	TBuf8<100> msgbuf;

 	msgbuf.Format(_L8("SQL: insert %d records in a single transaction"), KInsertRecCnt);

 	TestNext((const char*)msgbuf.PtrZ());

 	SqlServerMultiInsertTest(KMultiInsertSql, KInsertRecCnt);

 	msgbuf.Format(_L8("SQL: update %d records in a single transaction"), KUpdateRecCnt);

 	TestNext((const char*)msgbuf.PtrZ());

 	SqlServerMultiUpdateTest(KMultiUpdateSql, TheUpdateRecIds, KUpdateRecCnt);

 	msgbuf.Format(_L8("SQL: delete %d records in a single transaction"), KDeleteRecCnt);

 	TestNext((const char*)msgbuf.PtrZ());

 	SqlServerMultiDeleteTest(KMultiDeleteSql, TheDeleteRecIds, KDeleteRecCnt);

 	msgbuf.Format(_L8("SQL: select %d records"), KSelectRecCnt);

 	msgbuf.Copy(msgbuf);

 	TestNext((const char*)msgbuf.PtrZ());

 	SqlServerMultiSelectTest(KMultiSelectSql, TheSelectRecIds, KSelectRecCnt);

 	TestNext("SQL: insert a single record");

 	SqlServerSingleInsertTest(KSingleInsertSql, TheInsertRecId);

 	TestNext("SQL: update a single record");

 	SqlServerSingleUpdateTest(KSingleUpdateSql, TheUpdateRecId);

 	TestNext("SQL: delete a single record");

 	SqlServerSingleDeleteTest(KSingleDeleteSql, TheDeleteRecId);

 	TestNext("SQL: select a single record");

 	SqlServerSingleSelectTest(KSingleSelectSql, TheSelectRecId);

 	(void)RSqlDatabase::Delete(KTestDbName);

 	}

 static void DoSqliteLibraryTests(TPerfTestMode aPerfTestMode)

 	{

 	TEST(aPerfTestMode > EPerfTestSqlMode && aPerfTestMode < EPerfTestModeCnt);

 	SqliteInitialize(aPerfTestMode);

 	TestNext("SQLite: Create the test database");

 	CreateTestDatabase();

 	TBuf8<200> msgbuf;

 	_LIT8(KSqliteConfigSql, "\"SQL\"");

 	_LIT8(KSqliteConfigDefault, "\"Default\"");

 	msgbuf.Format(_L8("@SYMTestCaseID:SYSLIB-SQLITE3-UT-4018: SQLite, configuration: %S: insert %d records in a single transaction"),

 							aPerfTestMode == EPerfTestSqliteSqlMode ? &KSqliteConfigSql : &KSqliteConfigDefault, KInsertRecCnt);

 	TestNext((const char*)msgbuf.PtrZ());

 	SqliteMultiInsertTest(aPerfTestMode, KMultiInsertSql, KInsertRecCnt);

 	msgbuf.Format(_L8("@SYMTestCaseID:SYSLIB-SQLITE3-UT-4019: SQLite, configuration: %S: update %d records in a single transaction"),

 							aPerfTestMode == EPerfTestSqliteSqlMode ? &KSqliteConfigSql : &KSqliteConfigDefault, KUpdateRecCnt);

 	TestNext((const char*)msgbuf.PtrZ());

 	SqliteMultiUpdateTest(aPerfTestMode, KMultiUpdateSql, TheUpdateRecIds, KUpdateRecCnt);

 	msgbuf.Format(_L8("@SYMTestCaseID:SYSLIB-SQLITE3-UT-4020: SQLite, configuration: %S: delete %d records in a single transaction"),

 							aPerfTestMode == EPerfTestSqliteSqlMode ? &KSqliteConfigSql : &KSqliteConfigDefault, KDeleteRecCnt);

 	TestNext((const char*)msgbuf.PtrZ());

 	SqliteMultiDeleteTest(aPerfTestMode, KMultiDeleteSql, TheDeleteRecIds, KDeleteRecCnt);

 	msgbuf.Format(_L8("@SYMTestCaseID:SYSLIB-SQLITE3-UT-4021: SQLite, configuration: %S: select %d records"),

 							aPerfTestMode == EPerfTestSqliteSqlMode ? &KSqliteConfigSql : &KSqliteConfigDefault, KSelectRecCnt);

 	TestNext((const char*)msgbuf.PtrZ());

 	SqliteMultiSelectTest(aPerfTestMode, KMultiSelectSql, TheSelectRecIds, KSelectRecCnt);

 	msgbuf.Format(_L8("@SYMTestCaseID:SYSLIB-SQLITE3-UT-4022: SQLite, configuration: %S: insert a single record"),

 							aPerfTestMode == EPerfTestSqliteSqlMode ? &KSqliteConfigSql : &KSqliteConfigDefault);

 	TestNext((const char*)msgbuf.PtrZ());

 	SqliteSingleInsertTest(aPerfTestMode, KSingleInsertSql, TheInsertRecId);

 	msgbuf.Format(_L8("@SYMTestCaseID:SYSLIB-SQLITE3-UT-4023: SQLite, configuration: %S: update a single record"),

 							aPerfTestMode == EPerfTestSqliteSqlMode ? &KSqliteConfigSql : &KSqliteConfigDefault);

 	TestNext((const char*)msgbuf.PtrZ());

 	SqliteSingleUpdateTest(aPerfTestMode, KSingleUpdateSql, TheUpdateRecId);

 	msgbuf.Format(_L8("@SYMTestCaseID:SYSLIB-SQLITE3-UT-4024: SQLite, configuration: %S: delete a single record"),

 							aPerfTestMode == EPerfTestSqliteSqlMode ? &KSqliteConfigSql : &KSqliteConfigDefault);

 	TestNext((const char*)msgbuf.PtrZ());

 	SqliteSingleDeleteTest(aPerfTestMode, KSingleDeleteSql, TheDeleteRecId);

 	msgbuf.Format(_L8("@SYMTestCaseID:SYSLIB-SQLITE3-UT-4025: SQLite, configuration: %S: select a single record"),

 							aPerfTestMode == EPerfTestSqliteSqlMode ? &KSqliteConfigSql : &KSqliteConfigDefault);

 	TestNext((const char*)msgbuf.PtrZ());

 	SqliteSingleSelectTest(aPerfTestMode, KSingleSelectSql, TheSelectRecId);

 	(void)RSqlDatabase::Delete(KTestDbName);

 	SqliteFinalize(aPerfTestMode);

 	}

 static TBool IdIn(TInt aId, const TInt aData[], TInt aDataSize)

 	{

 	TEST(aId > 0);

 	TEST(aDataSize >= 0);

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

 		{

 		TEST(aData[i] > 0);

 		if(aData[i] == aId)

 			{

 			return ETrue;

 			}

 		}

 	return EFalse;

 	}

 static void VerifyGeneratedRecIds()

 	{

 	TInt i;

 	for(i=0;i<KUpdateRecCnt;++i)

 		{

 		TEST(TheUpdateRecIds[i] > 0 && TheUpdateRecIds[i] <= KInsertRecCnt);

 		TEST(!IdIn(TheUpdateRecIds[i], TheUpdateRecIds, i));

 		TEST(!IdIn(TheUpdateRecIds[i], TheDeleteRecIds, KDeleteRecCnt));

 		TEST(!IdIn(TheUpdateRecIds[i], TheSelectRecIds, KSelectRecCnt));

 		}

 	for(i=0;i<KDeleteRecCnt;++i)

 		{

 		TEST(TheDeleteRecIds[i] > 0 && TheDeleteRecIds[i] <= KInsertRecCnt);

 		TEST(!IdIn(TheDeleteRecIds[i], TheDeleteRecIds, i));

 		TEST(!IdIn(TheDeleteRecIds[i], TheUpdateRecIds, KUpdateRecCnt));

 		TEST(!IdIn(TheDeleteRecIds[i], TheSelectRecIds, KSelectRecCnt));

 		}

 	for(i=0;i<KSelectRecCnt;++i)

 		{

 		TEST(TheSelectRecIds[i] > 0 && TheSelectRecIds[i] <= KInsertRecCnt);

 		TEST(!IdIn(TheSelectRecIds[i], TheSelectRecIds, i));

 		TEST(!IdIn(TheSelectRecIds[i], TheUpdateRecIds, KUpdateRecCnt));

 		TEST(!IdIn(TheSelectRecIds[i], TheDeleteRecIds, KDeleteRecCnt));

 		}

 	TEST(TheInsertRecId > 0);

 	TEST(TheUpdateRecId > 0 && TheUpdateRecId <= KInsertRecCnt);

 	TEST(!IdIn(TheUpdateRecId, TheUpdateRecIds, KUpdateRecCnt));

 	TEST(!IdIn(TheUpdateRecId, TheDeleteRecIds, KDeleteRecCnt));

 	TEST(!IdIn(TheUpdateRecId, TheSelectRecIds, KSelectRecCnt));

 	TEST(TheDeleteRecId > 0 && TheDeleteRecId <= KInsertRecCnt);

 	TEST(!IdIn(TheDeleteRecId, TheUpdateRecIds, KUpdateRecCnt));

 	TEST(!IdIn(TheDeleteRecId, TheDeleteRecIds, KDeleteRecCnt));

 	TEST(!IdIn(TheDeleteRecId, TheSelectRecIds, KSelectRecCnt));

 	TEST(TheSelectRecId > 0 && TheSelectRecId <= KInsertRecCnt);

 	TEST(!IdIn(TheSelectRecId, TheUpdateRecIds, KUpdateRecCnt));

 	TEST(!IdIn(TheSelectRecId, TheDeleteRecIds, KDeleteRecCnt));

 	TEST(!IdIn(TheSelectRecId, TheSelectRecIds, KSelectRecCnt));

 	}

 static void GenerateTestRecIds()

 	{

 	TTime now;

 	now.UniversalTime();

 	TInt64 seed = now.Int64();

 	TInt i;

 	//Update multi

 	for(i=0;i<KUpdateRecCnt;)

 		{

 		TInt id = Math::Rand(seed) % KInsertRecCnt;

 		if(id > 0 && !IdIn(id, TheUpdateRecIds, i))

 			{

 			TheUpdateRecIds[i++] = id;

 			}

 		}

 	//Delete multi

 	for(i=0;i<KDeleteRecCnt;)

 		{

 		TInt id = Math::Rand(seed) % KInsertRecCnt;

 		if(id > 0 && !IdIn(id, TheDeleteRecIds, i) && !IdIn(id, TheUpdateRecIds, KUpdateRecCnt))

 			{

 			TheDeleteRecIds[i++] = id;

 			}

 		}

 	//Select multi

 	for(i=0;i<KSelectRecCnt;)

 		{

 		TInt id = Math::Rand(seed) % KInsertRecCnt;

 		if(id > 0 && !IdIn(id, TheSelectRecIds, i) && !IdIn(id, TheUpdateRecIds, KUpdateRecCnt) &&

 		             !IdIn(id, TheDeleteRecIds, KDeleteRecCnt))

 			{

 			TheSelectRecIds[i++] = id;

 			}

 		}

 	//Insert one

 	TheInsertRecId = KInsertRecCnt + 1;

 	//Update one

 	for(;;)

 		{

 		TInt id = Math::Rand(seed) % KInsertRecCnt;

 		if(id > 0 && !IdIn(id, TheUpdateRecIds, KUpdateRecCnt) && !IdIn(id, TheDeleteRecIds, KDeleteRecCnt) &&

 		             !IdIn(id, TheSelectRecIds, KSelectRecCnt))

 			{

 			TheUpdateRecId = id;

 			break;

 			}

 		}

 	//Delete one

 	for(;;)

 		{

 		TInt id = Math::Rand(seed) % KInsertRecCnt;

 		if(id > 0 && id != TheUpdateRecId && !IdIn(id, TheUpdateRecIds, KUpdateRecCnt) &&

 		                                     !IdIn(id, TheDeleteRecIds, KDeleteRecCnt) && !IdIn(id, TheSelectRecIds, KSelectRecCnt))

 			{

 			TheDeleteRecId = id;

 			break;

 			}

 		}

 	//Select one

 	for(;;)

 		{

 		TInt id = Math::Rand(seed) % KInsertRecCnt;

 		if(id > 0 && id != TheUpdateRecId && id != TheDeleteRecId && !IdIn(id, TheUpdateRecIds, KUpdateRecCnt) &&

 		                                                             !IdIn(id, TheDeleteRecIds, KDeleteRecCnt) &&

 		                                                             !IdIn(id, TheSelectRecIds, KSelectRecCnt))

 			{

 			TheSelectRecId = id;

 			break;

 			}

 		}

 	}

 static void DoTests()

 	{

 	TestStart("Get fast counter frequency");

 	GetFastCounterFrequency();

 	TestNext("Generate test record ids");

 	GenerateTestRecIds();

 	TestNext("Verify generated test record ids");

 	VerifyGeneratedRecIds();

 	DoSqlServerTests();

 	(void)KillProcess(KSqlSrvName);

 	DoSqliteLibraryTests(EPerfTestSqliteDefaultMode);

 	DoSqliteLibraryTests(EPerfTestSqliteSqlMode);

 	PrintPerfTestResults();

 	}

 TInt E32Main()

 	{

 	TestOpen(KTestName);

 	TestTitle();

 	CTrapCleanup* tc = CTrapCleanup::New();

 	__UHEAP_MARK;

 	CreateTestDir();

 	DeleteTestFiles();

 	DoTests();

 	DeleteTestFiles();

 	__UHEAP_MARKEND;

 	TestEnd();

 	TestClose();

 	delete tc;

 	User::Heap().Check();

 	return KErrNone;

 	}