// Copyright (c) 1998-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 <d32dbms.h>

#include <s32file.h>

#include <e32test.h>

#include "crccheck.h"

#undef __UHEAP_MARK

#define __UHEAP_MARK

#undef __UHEAP_MARKEND

#define __UHEAP_MARKEND

LOCAL_D TDBMS_CRCChecks TheCrcChecker;

#ifndef __linux__ //No CRC test on LINUX

#ifdef __TOOLS2__

const TPtrC	KCrcRecord=_L("\\epoc32\\winscw\\c\\dbms-tst\\T_WINDOW.CRC");

#else

const TPtrC	KCrcRecord=_L("C:\\dbms-tst\\T_WINDOW.CRC");

#endif

#endif

LOCAL_D RTest test(_L("T_WINDOW : Testing the 'window' stage"));

LOCAL_D CTrapCleanup* TheTrapCleanup;

LOCAL_D CFileStore* TheStore;

LOCAL_D RDbStoreDatabase TheDatabase;

LOCAL_D RDbView TheView;

LOCAL_D RFs TheFs;

const TInt KTestCleanupStack=0x20;

#ifdef __TOOLS2__

const TPtrC KTestDir=_L(".\\dbms-tst\\");

#else

const TPtrC KTestDir=_L("C:\\dbms-tst\\");

#endif

const TPtrC KTestFile=_S("T_WINDOW.DB");

const TPtrC KTableName=_S("TestTable");

const TPtrC KColumnID=_S("id");

const TPtrC KIndexName=_S("TestIndex");

const TInt KRecords=10;

const TPtrC KCreateTable=_L("CREATE TABLE TestTable (id INTEGER NOT NULL)");

const TPtrC KCreateIndex=_L("CREATE UNIQUE INDEX TestIndex ON TestTable (id)");

const TPtrC KEmptyQuery=_L("select * from TestTable where id is null");

const TPtrC KOrderQuery=_L("select * from TestTable order by id");

const TDbWindow KSingleSlotWindow(0,0);

const TDbWindow KSmallWindow(2,2);

const TDbWindow KLargeWindow(20,0);

//

// Create the database-in-a-store

//

LOCAL_C void CreateDatabaseL()

	{

	CFileStore* store=CPermanentFileStore::ReplaceLC(TheFs,KTestFile,EFileRead|EFileWrite);

	store->SetTypeL(KPermanentFileStoreLayoutUid);

	TStreamId id;

		id=TheDatabase.CreateL(store);

	store->SetRootL(id);

	store->CommitL();

	CleanupStack::Pop();

	TheStore=store;

	}

LOCAL_C void CloseDatabaseL()

	{

	// cannot evaluate size info for store database

	RDbDatabase::TSize size=TheDatabase.Size();

	test (size.iSize<0);

	test (size.iUsage<0);

	test (TheDatabase.UpdateStats()==KErrNone);

	size=TheDatabase.Size();

	test (size.iSize<0);

	test (size.iUsage<0);

	TheDatabase.Close();

	delete TheStore;

	TInt err = TheCrcChecker.GenerateCrcL(KTestFile);

	test(err == KErrNone);

	}

LOCAL_C void CreateTable()

	{

	TheDatabase.Begin();

	test(TheDatabase.Execute(KCreateTable)==KErrNone);

	RDbTable table;

	test(table.Open(TheDatabase,KTableName,table.EInsertOnly)==KErrNone);

	for (TInt ii=0;ii<KRecords;++ii)

		{

		table.InsertL();

		table.SetColL(1,ii);

		table.PutL();

		}

	table.Close();

	test(TheDatabase.Execute(KCreateIndex)==KErrNone);

	test (TheDatabase.Commit()==KErrNone);

	}

LOCAL_C void Init()

	{

	CreateDatabaseL();

	CreateTable();

	}

/**

@SYMTestCaseID          SYSLIB-DBMS-CT-0638

@SYMTestCaseDesc        Tests for navigation 

@SYMTestPriority        Medium

@SYMTestActions         Tests for navigation in an empty window

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

LOCAL_C void TestEmpty()

	{

	test.Start(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-0638 Unevaluated "));

	test(TheView.Prepare(TheDatabase,KEmptyQuery,TDbWindow::EUnlimited)==KErrNone);

	test(TheView.CountL(TheView.EQuick)==0);

	test(!TheView.FirstL());

	test(TheView.AtEnd());

	test(!TheView.PreviousL());

	test(TheView.AtBeginning());

	test(!TheView.LastL());

	test(TheView.AtBeginning());

	test(!TheView.NextL());

	test(TheView.AtEnd());

	test.Next(_L("Evaluated"));

	test(TheView.EvaluateAll()==KErrNone);

	test(TheView.CountL()==0);

	test(!TheView.FirstL());

	test(TheView.AtEnd());

	test(!TheView.PreviousL());

	test(TheView.AtBeginning());

	test(!TheView.LastL());

	test(TheView.AtBeginning());

	test(!TheView.NextL());

	test(TheView.AtEnd());

	test.End();

	TheView.Close();

	}

/**

@SYMTestCaseID          SYSLIB-DBMS-CT-0639

@SYMTestCaseDesc        Tests for navigation 

@SYMTestPriority        Medium

@SYMTestActions         Tests for the unlimited (dynaset) window

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

LOCAL_C void TestUnlimited()

	{

	test.Start(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-0639 EvaluateAll "));

	test(TheView.Prepare(TheDatabase,KOrderQuery,TDbWindow::EUnlimited)==KErrNone);

	test(TheView.EvaluateAll()==KErrNone);

	test(!TheView.Unevaluated());

	test(TheView.CountL()==KRecords);

	TInt cc=0;

	for (TheView.BeginningL();TheView.NextL();)

		++cc;

	test(cc==KRecords);

	for (TheView.EndL();TheView.PreviousL();)

		--cc;

	test(cc==0);

	test(!TheView.Unevaluated());

	test.Next(_L("Incremental evaluate"));

	TheView.Reset();

	cc=TheView.CountL(TheView.EQuick);

	test(cc==0);

	test(!TheView.FirstL());

	while (TheView.Unevaluated())

		{

		test(TheView.Evaluate()>=KErrNone);

		TInt ii=TheView.CountL()-cc;

		test(ii>=0);

		cc+=ii;

		while (--ii>=0)

			{

			test(TheView.AtRow());

			TheView.NextL();

			}

		test(!TheView.AtRow());

		}

	test(cc==KRecords);

	test.Next(_L("Insert"));

// The new records should go on the end of the set

	TheView.InsertL();

	TheView.SetColL(1,TInt(-1));

	TheView.PutL();

	test(TheView.CountL()==KRecords+1);

	test(TheView.LastL());

	TheView.GetL();

	test(TheView.ColInt(1)==-1);

// because of order, it should appear at beginning on re-evaluation

	TheView.Reset();

	test(TheView.EvaluateAll()==KErrNone);

	test(TheView.CountL()==KRecords+1);

	test(TheView.FirstL());

	TheView.GetL();

	test(TheView.ColInt(1)==-1);

	test.Next(_L("Update"));

// updated records should not move (or disappear) in the set

	TheView.UpdateL();

	TheView.SetColL(1,KRecords);

	TheView.PutL();

	test(TheView.CountL()==KRecords+1);

	test(TheView.FirstL());

	TheView.GetL();

	test(TheView.ColInt(1)==KRecords);

// because of order, it should appear at end on re-evaluation

	TheView.Reset();

	test(TheView.EvaluateAll()==KErrNone);

	test(TheView.CountL()==KRecords+1);

	test(TheView.LastL());

	TheView.GetL();

	test(TheView.ColInt(1)==KRecords);

	test.Next(_L("Bookmarks"));

	TDbBookmark mark=TheView.Bookmark();

	TheView.BeginningL();

	TRAPD(r,TheView.GotoL(mark));

	test(r==KErrNone);

	TheView.GetL();

	test(TheView.ColInt(1)==KRecords);

	test(!TheView.NextL());

	test(TheView.PreviousL());

	test.Next(_L("Delete"));

// should disappear from the set

	TheView.DeleteL();

	test(TheView.CountL()==KRecords);

	for (TheView.BeginningL();TheView.NextL();)

		{

		TheView.GetL();

		test(TheView.ColInt(1)!=KRecords);

		}

	TRAP(r,TheView.GotoL(mark));

	test(r!=KErrNone);

	TheView.Reset();

	test(TheView.EvaluateAll()==KErrNone);

	test(TheView.CountL()==KRecords);

	for (TheView.BeginningL();TheView.NextL();)

		{

		TheView.GetL();

		test(TheView.ColInt(1)!=KRecords);

		}

	TRAP(r,TheView.GotoL(mark));

	test(r!=KErrNone);

	test.End();

	TheView.Close();

	}

//

// do as much incremental evaluation as possible

//

LOCAL_C void Evaluate()

	{

	test(TheView.EvaluateAll()==KErrNone);

	}

//

// get to the true end of set

//

LOCAL_C void GotoEnd()

	{

	for (;;)

		{

		while (TheView.AtRow())

			TheView.NextL();

		if (!TheView.Unevaluated())

			break;

		Evaluate();

		}

	}

LOCAL_C void CheckWindow(TInt forward,TInt back)

	{

	TInt ii;

	for (ii=0;ii<forward;++ii)

		test(TheView.NextL());

	test(!TheView.NextL());

	for (ii=0;ii<forward+back+1;++ii)

		test(TheView.PreviousL());

	test(!TheView.PreviousL());

	for (ii=0;ii<back+1;++ii)

		test(TheView.NextL());

	}

/**

@SYMTestCaseID          SYSLIB-DBMS-CT-0640

@SYMTestCaseDesc        Tests for RDbView 

@SYMTestPriority        Medium

@SYMTestActions         Tests for a restricted sized window

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

LOCAL_C void TestRestricted()

	{

	test.Start(_L("	@SYMTestCaseID:SYSLIB-DBMS-CT-0640 Behaviour at start of set "));

	test(TheView.Prepare(TheDatabase,KOrderQuery,KSingleSlotWindow)==KErrNone);

	test(TheView.EvaluateAll()==KErrNone);

	test(TheView.CountL()==1);

	test(!TheView.Unevaluated());

	test(TheView.NextL());

	test(!TheView.Unevaluated());

	TheView.GetL();

	TInt id=TheView.ColInt(1);

	test(!TheView.NextL());

	test(TheView.Unevaluated());

	Evaluate();

	test(TheView.CountL()==1);

	test(TheView.AtRow());

	test(!TheView.PreviousL());

	test(TheView.Unevaluated());

	Evaluate();

	test(TheView.CountL()==1);

	test(TheView.AtRow());

	TheView.GetL();

	test(TheView.ColInt(1)==id);

	test(!TheView.PreviousL());

	test(TheView.Unevaluated());

	Evaluate();

	test(TheView.CountL()==1);

	test(TheView.AtBeginning());

	test(TheView.NextL());

	TheView.GetL();

	test(TheView.ColInt(1)==id);

	test(!TheView.Unevaluated());

	test.Next(_L("Behaviour at end of set"));

	GotoEnd();

	test(TheView.LastL());

	test(!TheView.Unevaluated());

	TheView.GetL();

	id=TheView.ColInt(1);

	test(!TheView.PreviousL());

	test(TheView.Unevaluated());

	Evaluate();

	test(TheView.CountL()==1);

	test(TheView.AtRow());

	test(!TheView.NextL());

	test(TheView.Unevaluated());

	Evaluate();

	test(TheView.CountL()==1);

	test(TheView.AtRow());

	TheView.GetL();

	test(TheView.ColInt(1)==id);

	test(!TheView.NextL());

	test(TheView.Unevaluated());

	Evaluate();

	test(TheView.CountL()==1);

	test(TheView.AtEnd());

	test(TheView.PreviousL());

	TheView.GetL();

	test(TheView.ColInt(1)==id);

	test(!TheView.Unevaluated());

	TheView.Close();

//

	test.Next(_L("Forward and backwards slots"));

	test(TheView.Prepare(TheDatabase,KOrderQuery,KSmallWindow)==KErrNone);

	test(TheView.EvaluateAll()==KErrNone);

	test(TheView.CountL()==5);

	test(TheView.FirstL());

	CheckWindow(4,0);

	test(TheView.NextL());

	test(TheView.NextL());		// now on preferred slot (id=2)

	test(!TheView.Unevaluated());

	test(TheView.NextL());

	test(TheView.Unevaluated());

	Evaluate();

	CheckWindow(2,2);

	test(TheView.LastL());		// id=5

	Evaluate();

	test(TheView.LastL());		// id=7

	Evaluate();					// should now have last five rows

	CheckWindow(2,2);

	test(TheView.LastL());		// id=9

	Evaluate();					// no more rows

	CheckWindow(0,4);			// all behind us now

	TheView.GetL();

	test(TheView.ColInt(1)==9);

	TheView.FirstL();			// id=5

	Evaluate();

	TheView.FirstL();			// id=3

	Evaluate();

	TheView.FirstL();			// id=1

	Evaluate();

	CheckWindow(3,1);

//

	test.Next(_L("Bookmarks"));

	TDbBookmark mark=TheView.Bookmark();

	test(TheView.NextL());

	test(TheView.NextL());

	test(TheView.NextL());

	Evaluate();

	TRAPD(r,TheView.GotoL(mark));

	test(r!=KErrNone);

	TheView.FirstL();

	Evaluate();

	TRAP(r,TheView.GotoL(mark));

	test(r==KErrNone);

	test.Next(_L("Delete"));

	test(TheView.FirstL());

	TheView.GetL();

	test(TheView.ColInt(1)==0);

	TheView.DeleteL();

	test(TheView.CountL()==4);

	TheView.FirstL();

	CheckWindow(3,0);

	test.Next(_L("Insert"));

	TheView.InsertL();

	TheView.SetColL(1,TInt(0));

	TheView.PutL();

	test(TheView.CountL()==4);

	TheView.FirstL();

	TheView.GetL();

	test(TheView.ColInt(1)==1);

	TheView.Reset();

	test(TheView.EvaluateAll()==KErrNone);

	test(TheView.FirstL());

	TheView.GetL();

	test(TheView.ColInt(1)==0);

//

	test.End();

	TheView.Close();

	}

LOCAL_C void Test()

	{

	__UHEAP_MARK;

	test.Start(_L("Setting up test table"));

	TRAPD(r,Init();)

	test(r==KErrNone);

	test.Next(_L("Empty Window"));

	TRAP(r,TestEmpty();)

	test(r==KErrNone);

	test.Next(_L("Unlimited Window"));

	TRAP(r,TestUnlimited();)

	test(r==KErrNone);

	test.Next(_L("Sized window"));

	TRAP(r,TestRestricted();)

	test(r==KErrNone);

	test.Next(_L("Cleanup"));

	TRAP(r,CloseDatabaseL();)

	test(r==KErrNone);

	test.End();

	__UHEAP_MARKEND;

	}

//

// Prepare the test directory.

//

LOCAL_C void setupTestDirectory()

    {

	TInt r=TheFs.Connect();

	test(r==KErrNone);

//

	r=TheFs.MkDir(KTestDir);

	test(r==KErrNone || r==KErrAlreadyExists);

	r=TheFs.SetSessionPath(KTestDir);

	test(r==KErrNone);

// On TOOLS2 - RFs::SetSessionPath() will affect all RFs Sessions, 

// the two RFs need same session path anyway

#ifdef __WINSCW__ 

	r=TheCrcChecker.SetSessionPath(KTestDir);

	test(r==KErrNone);

#endif

	}

//

// Initialise the cleanup stack.

//

LOCAL_C void setupCleanup()

    {

	TheTrapCleanup=CTrapCleanup::New();

	test(TheTrapCleanup!=NULL);

	TRAPD(r,\

		{\

		for (TInt i=KTestCleanupStack;i>0;i--)\

			CleanupStack::PushL((TAny*)0);\

		CleanupStack::Pop(KTestCleanupStack);\

		});

	test(r==KErrNone);

	}

LOCAL_C void DeleteDataFile(const TDesC& aFullName)

	{

	RFs fsSession;

	TInt err = fsSession.Connect();

	if(err == KErrNone)

		{

		TEntry entry;

		if(fsSession.Entry(aFullName, entry) == KErrNone)

			{

			RDebug::Print(_L("Deleting \"%S\" file.\n"), &aFullName);

			err = fsSession.SetAtt(aFullName, 0, KEntryAttReadOnly);

			if(err != KErrNone) 

				{

				RDebug::Print(_L("Error %d changing \"%S\" file attributes.\n"), err, &aFullName);

				}

			err = fsSession.Delete(aFullName);

			if(err != KErrNone) 

				{

				RDebug::Print(_L("Error %d deleting \"%S\" file.\n"), err, &aFullName);

				}

			}

		fsSession.Close();

		}

	else

		{

		RDebug::Print(_L("Error %d connecting file session. File: %S.\n"), err, &aFullName);

		}

	}

//

// Test streaming conversions.

//

GLDEF_C TInt E32Main()

    {

	test.Title();

	setupTestDirectory();

	setupCleanup();

//

	test.Start(_L("Standard database"));

	Test();

	test.Next(_L("Secure database"));

	Test();

	//deletion of data files must be done before call to end - DEF047652

#ifndef __TOOLS2__

	_LIT(KTestDbName, "C:\\dbms-tst\\T_WINDOW.DB");

	::DeleteDataFile(KTestDbName);

#else

	::DeleteDataFile(KTestFile);

#endif

#ifndef __linux__

	TInt err;

#ifndef __TOOLS2__

	TRAPD(lc, err = TheCrcChecker.DumpCrcRecordsL(KCrcRecord));

	test(err==KErrNone);

	test(lc==KErrNone);

#else

	TRAPD(lc, err = TheCrcChecker.ValidateCrcRecordsL(KCrcRecord));

	TPtrC errmsg;

	TheCrcChecker.ErrorReportL(err, errmsg);

	RDebug::Print(errmsg);

	test(err==KErrNone || err==TDBMS_CRCChecks::ECrcCheckOk);

#endif

#endif

	test.End();

//

	delete TheTrapCleanup;

	TheFs.Close();

	test.Close();

	return 0;

    }