// Copyright (c) 2010 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 "SqlSrvMain.h"

#include "SqlSrvStartup.h"

#include "SqlSrvUtil.h"

#include "SqlSrvDatabase.h"

#include "SqlSrvFileData.h"

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

RTest TheTest(_L("t_sqloom5 test"));

RFs TheFs;

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

_LIT(KDbFile, "c:\\test\\t_sqloom5.db");

_LIT(KDbFile2, "c:[10281E17]t_sqloom5.db");

_LIT(KDbFile3, "c:[10281E17]t_sqloom5_2.db");

_LIT(KDbFile4, "c:[10281E17]t_sqloom5_3.db");

_LIT8(KConfig, "encoding=UTF-8");

extern CSqlServer* TheServer;

static TInt TheProcessHandleCount = 0;

static TInt TheThreadHandleCount = 0;

static TInt TheAllocatedCellsCount = 0;

#ifdef _DEBUG

static const TInt KBurstRate = 20;

#endif

enum TSqlDbEncoding

    {

    ESqlDbUtf16,

    ESqlDbUtf8

    };

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

void DestroyTestEnv()

	{

    (void)TheFs.Delete(KDbFile4);

    (void)TheFs.Delete(KDbFile3);

    (void)TheFs.Delete(KDbFile2);

    (void)TheFs.Delete(KDbFile);

	TheFs.Close();

	}

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

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

//Test macros and functions

void Check(TInt aValue, TInt aLine)

	{

	if(!aValue)

		{

		DestroyTestEnv();

		RDebug::Print(_L("*** Expresssion evaluated to false\r\n"));

		TheTest(EFalse, aLine);

		}

	}

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

	{

	if(aValue != aExpected)

		{

		DestroyTestEnv();

		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__)

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

static void MarkHandles()

    {

    RThread().HandleCount(TheProcessHandleCount, TheThreadHandleCount);

    }

static void MarkAllocatedCells()

    {

    TheAllocatedCellsCount = User::CountAllocCells();

    }

static void CheckAllocatedCells()

    {

    TInt allocatedCellsCount = User::CountAllocCells();

    TEST2(allocatedCellsCount, TheAllocatedCellsCount);

    }

static void CheckHandles()

    {

    TInt endProcessHandleCount;

    TInt endThreadHandleCount;

    RThread().HandleCount(endProcessHandleCount, endThreadHandleCount);

    TEST2(TheProcessHandleCount, endProcessHandleCount);

    TEST2(TheThreadHandleCount, endThreadHandleCount);

    }

static void OomPreStep(TInt

                        #ifdef _DEBUG        

                            aFailingAllocationNo

                        #endif

                      )

    {

    MarkHandles();

    MarkAllocatedCells();

    __UHEAP_MARK;

    __UHEAP_SETBURSTFAIL(RAllocator::EBurstFailNext, aFailingAllocationNo, KBurstRate);

    }

static void OomPostStep()

    {

    __UHEAP_RESET;

    __UHEAP_MARKEND;

    CheckAllocatedCells();

    CheckHandles();

    }

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

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

void CreateTestEnv()

    {

    TInt err = TheFs.Connect();

    TEST2(err, KErrNone);

    err = TheFs.MkDir(KTestDir);

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

    err = TheFs.CreatePrivatePath(EDriveC);

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

    }

static CSqlServer* CreateSqlServerL()

    {

    CSqlServer* server = CSqlServer::NewLC();

    CleanupStack::Pop(server);

    return server;

    }

void CreateDatabaseOomTest(TSqlDbEncoding aEncoding)

    {

    (void)TheFs.Delete(KDbFile);

    TInt failingAllocationNo = 0;

    TheTest.Printf(_L("Iteration:\r\n"));

    TheServer = NULL; 

    TRAPD(err, TheServer = CreateSqlServerL());

    TEST2(err, KErrNone);

    err = KErrNoMemory;

    while(err == KErrNoMemory)

        {

        TheTest.Printf(_L(" %d"), ++failingAllocationNo);

        OomPreStep(failingAllocationNo);

        TSqlSrvFileData& fdata = TheServer->FileData();

        RMessage2 msg;

        TRAP(err, fdata.SetL(msg, KDbFile().Length(), 0, KDbFile, aEncoding == ESqlDbUtf8 ? &KConfig : NULL));

        if(err == KErrNone)

            {

            CSqlSrvDatabase* db = NULL;

            TRAP(err, db = CSqlSrvDatabase::CreateL(fdata));

            delete db;

            }

        OomPostStep();

        }

    delete TheServer;

    TheServer = NULL;

    TEST2(err, KErrNone);   

    TheTest.Printf(_L("\r\n===CSqlSrvDatabase::CreateL() OOM test succeeded at heap failure rate of %d ===\r\n"), failingAllocationNo);

    }

/**

@SYMTestCaseID          PDS-SQL-UT-4167

@SYMTestCaseDesc        CSqlSrvDatabase::CreateL() OOM test.

@SYMTestPriority        High

@SYMTestActions         The test runs CSqlSrvDatabase::CreateL() in an OOM loop.

                        UTF16 encoded database is used.

@SYMTestExpectedResults Test must not fail

@SYMDEF                 DEF144577

*/  

void Utf16CreateDatabaseOomTest()

    {

    CreateDatabaseOomTest(ESqlDbUtf16);

    }

/**

@SYMTestCaseID          PDS-SQL-UT-4182

@SYMTestCaseDesc        CSqlSrvDatabase::CreateL() OOM test.

@SYMTestPriority        High

@SYMTestActions         The test runs CSqlSrvDatabase::CreateL() in an OOM loop.

                        UTF8 encoded database is used.

@SYMTestExpectedResults Test must not fail

@SYMDEF                 DEF145047

*/  

void Utf8CreateDatabaseOomTest()

    {

    CreateDatabaseOomTest(ESqlDbUtf8);

    }

void OpenDatabaseOomTest()

    {

    //The database is created by the previous test: CreateDatabaseOomTest().

    TInt failingAllocationNo = 0;

    TheTest.Printf(_L("Iteration:\r\n"));

    TheServer = NULL; 

    TRAPD(err, TheServer = CreateSqlServerL());

    TEST2(err, KErrNone);

    err = KErrNoMemory;

    while(err == KErrNoMemory)

        {

        TheTest.Printf(_L(" %d"), ++failingAllocationNo);

        OomPreStep(failingAllocationNo);

        TSqlSrvFileData& fdata = TheServer->FileData();

        RMessage2 msg;

        TRAP(err, fdata.SetL(msg, KDbFile().Length(), 0, KDbFile));

        if(err == KErrNone)

            {

            CSqlSrvDatabase* db = NULL;

            TRAP(err, db = CSqlSrvDatabase::OpenL(fdata));

            delete db;

            }

        OomPostStep();

        }

    delete TheServer;

    TheServer = NULL;

    TEST2(err, KErrNone);   

    TheTest.Printf(_L("\r\n===CSqlSrvDatabase::OpenL() [non-secure db] OOM test succeeded at heap failure rate of %d ===\r\n"), failingAllocationNo);

    }

/**

@SYMTestCaseID          PDS-SQL-UT-4168

@SYMTestCaseDesc        CSqlSrvDatabase::OpenL() OOM test - non-secure database.

@SYMTestPriority        High

@SYMTestActions         The test runs CSqlSrvDatabase::OpenL() in an OOM loop.

                        UTF16 encoded database is used.

@SYMTestExpectedResults Test must not fail

@SYMDEF                 DEF144577

*/  

void Utf16OpenDatabaseOomTest()

    {

    OpenDatabaseOomTest();

    }

/**

@SYMTestCaseID          PDS-SQL-UT-4183

@SYMTestCaseDesc        CSqlSrvDatabase::OpenL() OOM test - non-secure database.

@SYMTestPriority        High

@SYMTestActions         The test runs CSqlSrvDatabase::OpenL() in an OOM loop.

                        UTF8 encoded database is used.

@SYMTestExpectedResults Test must not fail

@SYMDEF                 DEF145047

*/  

void Utf8OpenDatabaseOomTest()

    {

    OpenDatabaseOomTest();

    }

void CreateSecureDatabaseOomTest(TSqlDbEncoding aEncoding)

    {

    (void)TheFs.Delete(KDbFile2);

    TInt failingAllocationNo = 0;

    TheTest.Printf(_L("Iteration:\r\n"));

    TheServer = NULL; 

    TRAPD(err, TheServer = CreateSqlServerL());

    TEST2(err, KErrNone);

    err = KErrNoMemory;

    while(err == KErrNoMemory)

        {

        TheTest.Printf(_L(" %d"), ++failingAllocationNo);

        OomPreStep(failingAllocationNo);

        TSqlSrvFileData& fdata = TheServer->FileData();

        RMessage2 msg;

        TRAP(err, fdata.SetL(msg, KDbFile2().Length(), 0, KDbFile2, aEncoding == ESqlDbUtf8 ? &KConfig : NULL));

        if(err == KErrNone)

            {

            TSecurityPolicy defaultPolicy(TSecurityPolicy::EAlwaysPass);

            CSqlSecurityPolicy* policy = NULL;

            TRAP(err, policy = CSqlSecurityPolicy::NewL(defaultPolicy));

            if(err == KErrNone)

                {

                CSqlSrvDatabase* db = NULL;

                TRAP(err, db = CSqlSrvDatabase::CreateSecureL(fdata, policy));

                delete db;

                }

            }

        OomPostStep();

        }

    delete TheServer;

    TheServer = NULL;

    TEST2(err, KErrNone);   

    TheTest.Printf(_L("\r\n===CSqlSrvDatabase::CreateSecureL() OOM test succeeded at heap failure rate of %d ===\r\n"), failingAllocationNo);

    }

/**

@SYMTestCaseID          PDS-SQL-UT-4169

@SYMTestCaseDesc        CSqlSrvDatabase::CreateSecureL() OOM test.

@SYMTestPriority        High

@SYMTestActions         The test runs CSqlSrvDatabase::CreateSecureL() in an OOM loop.

                        UTF16 encoded database is used.

@SYMTestExpectedResults Test must not fail

@SYMDEF                 DEF144577

*/  

void Utf16CreateSecureDatabaseOomTest()

    {

    CreateSecureDatabaseOomTest(ESqlDbUtf16);

    }

/**

@SYMTestCaseID          PDS-SQL-UT-4184

@SYMTestCaseDesc        CSqlSrvDatabase::CreateSecureL() OOM test.

@SYMTestPriority        High

@SYMTestActions         The test runs CSqlSrvDatabase::CreateSecureL() in an OOM loop.

                        UTF8 encoded database is used.

@SYMTestExpectedResults Test must not fail

@SYMDEF                 DEF145047

*/  

void Utf8CreateSecureDatabaseOomTest()

    {

    CreateSecureDatabaseOomTest(ESqlDbUtf8);

    }

void OpenSecureDatabaseOomTest()

    {

    //The database is created by the previous test: CreateSecureDatabaseOomTest().

    TInt failingAllocationNo = 0;

    TheTest.Printf(_L("Iteration:\r\n"));

    TheServer = NULL; 

    TRAPD(err, TheServer = CreateSqlServerL());

    TEST2(err, KErrNone);

    err = KErrNoMemory;

    while(err == KErrNoMemory)

        {

        TheTest.Printf(_L(" %d"), ++failingAllocationNo);

        OomPreStep(failingAllocationNo);

        TSqlSrvFileData& fdata = TheServer->FileData();

        RMessage2 msg;

        TRAP(err, fdata.SetL(msg, KDbFile2().Length(), 0, KDbFile2));

        if(err == KErrNone)

            {

            CSqlSrvDatabase* db = NULL;

            TRAP(err, db = CSqlSrvDatabase::OpenL(fdata));

            delete db;

            }

        OomPostStep();

        }

    delete TheServer;

    TheServer = NULL;

    TEST2(err, KErrNone);   

    TheTest.Printf(_L("\r\n===CSqlSrvDatabase::OpenL() [secure db] OOM test succeeded at heap failure rate of %d ===\r\n"), failingAllocationNo);

    }

/**

@SYMTestCaseID          PDS-SQL-UT-4170

@SYMTestCaseDesc        CSqlSrvDatabase::OpenL() OOM test - secure database.

@SYMTestPriority        High

@SYMTestActions         The test runs CSqlSrvDatabase::OpenL() in an OOM loop.

                        UTF16 encoded database is used.

@SYMTestExpectedResults Test must not fail

@SYMDEF                 DEF144577, PDEF44845

*/  

void Utf16OpenSecureDatabaseOomTest()

    {

    OpenSecureDatabaseOomTest();

    }

/**

@SYMTestCaseID          PDS-SQL-UT-4185

@SYMTestCaseDesc        CSqlSrvDatabase::OpenL() OOM test - secure database.

@SYMTestPriority        High

@SYMTestActions         The test runs CSqlSrvDatabase::OpenL() in an OOM loop.

                        UTF8 encoded database is used.

@SYMTestExpectedResults Test must not fail

@SYMDEF                 DEF145047

*/  

void Utf8OpenSecureDatabaseOomTest()

    {

    OpenSecureDatabaseOomTest();

    }

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

const TInt KDbConnCount = 7; 

#ifdef _DEBUG

const TInt KDbAttachedCount = 10;

#endif

TBuf<10> TheAttachedDbName;

//Declares KDbConnCount "CSqlSrvDatabase*" variables.  

#define TEST_DECLARE_DB_VARS() \

    CSqlSrvDatabase* db[KDbConnCount]; \

    Mem::FillZ(db, sizeof(db));

//Declares all KDbConnCount "CSqlSrvDatabase*" objects.  

#define TEST_DELETE_DB() \

    for(TInt i=0;i<KDbConnCount;++i) \

        { \

        delete db[i]; \

        }

//Creates CSqlSrvDatabase object where the database file is dbFile (the second macro parameter).

//The CSqlSrvDatabase pointer db[N - 1] (N is the first macro parameter) will be set to point to 

//the created CSqlSrvDatabase object. 

//N is the number of the database to be opened, between 1 and KDbConnCount.

#define TEST_OPEN_DB(N, dbFile) \

    __ASSERT_DEBUG(N > 0 && N <= KDbConnCount, User::Invariant()); \

    TRAP(err, fdata.SetL(msg, dbFile.Length(), 0, dbFile)); \

    if(err != KErrNone) \

        { \

        goto Cleanup; \

        } \

    db[N - 1] = NULL; \

    TRAP(err, db[N - 1] = CSqlSrvDatabase::OpenL(fdata)); \

    if(err != KErrNone) \

        { \

        goto Cleanup; \

        }

//Attaches the "dbFile" database to the database number specified by the first macro parameter.

//The attached database name is "A<M>", where M is the third macro parameter.

//N is the number of the database connection, between 1 and KDbConnCount.

//M is the number of the database to be attached, between 1 and KDbAttachedCount.

#define TEST_ATTACH_DB(N, dbFile, M) \

    __ASSERT_DEBUG(N > 0 && N <= KDbConnCount, User::Invariant()); \

    __ASSERT_DEBUG(M > 0 && M <= KDbAttachedCount, User::Invariant()); \

    TRAP(err, fdata.SetL(msg, dbFile.Length(), 0, dbFile)); \

    if(err != KErrNone) \

        { \

        goto Cleanup; \

        } \

    TheAttachedDbName.Copy(_L("A")); \

    TheAttachedDbName.AppendNum(M); \

    TRAP(err, db[N - 1]->AttachDbL(fdata, TheAttachedDbName)); \

    if(err != KErrNone) \

        { \

        goto Cleanup; \

        }

//Detaches database "A<M>" (M is the second macro parameter) from the database identified

//by the number N - the first macro parameter.

//N is the number of the database connection, between 1 and KDbConnCount.

//M is the number of the database to be detached, between 1 and KDbAttachedCount.

#define TEST_DETACH_DB(N, M) \

    __ASSERT_DEBUG(N > 0 && N <= KDbConnCount, User::Invariant()); \

    __ASSERT_DEBUG(M > 0 && M <= KDbAttachedCount, User::Invariant()); \

    if(db[N - 1]) \

        { \

        TheAttachedDbName.Copy(_L("A")); \

        TheAttachedDbName.AppendNum(M); \

        TRAP_IGNORE(db[N - 1]->DetachDbL(TheAttachedDbName)); \

        }

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

void CreateSecureTestDb(const TDesC& aDbFile, TSqlDbEncoding aEncoding)

    {

    (void)TheFs.Delete(aDbFile);

    TSecurityPolicy defaultPolicy(TSecurityPolicy::EAlwaysPass);

    CSqlSecurityPolicy* policy = NULL;

    TRAPD(err, policy = CSqlSecurityPolicy::NewL(defaultPolicy));

    TEST2(err, KErrNone);

    TSqlSrvFileData& fdata = TheServer->FileData();

    RMessage2 msg;

    TRAP(err, fdata.SetL(msg, aDbFile.Length(), 0, aDbFile, aEncoding == ESqlDbUtf8 ? &KConfig : NULL));

    CSqlSrvDatabase* db = NULL;

    TRAP(err, db = CSqlSrvDatabase::CreateSecureL(fdata, policy));

    delete db;

    TEST2(err, KErrNone);

    }

void OpenAttachDatabaseOomTest(TSqlDbEncoding aEncoding)

    {

    //Part of the databases are created by the previous tests.