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

//

#include <d32dbms.h>

#include <s32file.h>

#include <e32test.h>

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

static CTrapCleanup* TheTrapCleanup;

const TInt KTestCleanupStack=0x40;

RFs TheFsSession;

_LIT( KTestDir, "c:\\DBMS-TST\\" );

_LIT( KSearchTestDbPath, "c:\\DBMS-TST\\eposlmserachtest.ldb" );

//Delete "aFullName" file.

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

		}

	}

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

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

//Tests macros and functions.

//If (!aValue) then the test will be panicked, the test data files will be deleted.

static void Check(TInt aValue, TInt aLine)

	{

	if(!aValue)

		{

		::DeleteDataFile(KSearchTestDbPath);

		TheTest(EFalse, aLine);

		}

	}

//If (aValue != aExpected) then the test will be panicked, the test data files will be deleted.

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

	{

	if(aValue != aExpected)

		{

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

		::DeleteDataFile(KSearchTestDbPath);

		TheTest(EFalse, aLine);

		}

	}

//Use these to test conditions.

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

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

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

static void LeaveL(TInt aLine, TInt aError)

	{

	RDebug::Print(_L("*** Leave. Error: %d, line: %d\r\n"), aError, aLine);

	User::Leave(aError);

	}

static void LeaveIfErrorL(TInt aLine, TInt aError)

	{

	if(aError < KErrNone)

		{

		LeaveL(aLine, aError);

		}

	}

#define __LEAVE(err) LeaveL(__LINE__, err)

#define __LEAVE_IF_ERROR(err) LeaveIfErrorL(__LINE__, err)

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

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

//

// Prepare the test directory.

//

static void SetupTestDirectory()

    {

	TInt r=TheFsSession.MkDir(KTestDir);

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

	r=TheFsSession.SetSessionPath(KTestDir);

	TEST2(r,KErrNone);

	}

static TInt SearchForL( const TPtrC& aSearchString, RDbNamedDatabase& aDb )

	{

	_LIT( KSQLSearchStatement, "select Notes from CDs where Notes like '%S'" );

	TBuf<512> query;

	query.Format( KSQLSearchStatement, &aSearchString );

	// Display query

	_LIT( KQueryFormatter, "\r\n %S\r\n" );

	TBuf<512> msg;

	msg.Format( KQueryFormatter, &query );

	TheTest.Printf( msg );

	// create a view on the database

	RDbView view;

	// use EDbCompareCollated in order to search case-insensitive

	__LEAVE_IF_ERROR( view.Prepare( aDb, TDbQuery( query, EDbCompareCollated ) ) );

	__LEAVE_IF_ERROR( view.EvaluateAll() );

	// iterate across the row set

	TInt noOfMatches = 0;

	for ( view.FirstL(); view.AtRow(); view.NextL() )

		{

		// retrieve the row

		view.GetL();

		noOfMatches++;

		}

	// Display no of matches

	_LIT( KNoOfMatchFormatter, " Found %d matches\r\n" );

	msg.Format( KNoOfMatchFormatter, noOfMatches );

	TheTest.Printf( msg );

	// close the view

	view.Close();

	return noOfMatches;

	}

/**

@SYMTestCaseID          SYSLIB-DBMS-CT-0645

@SYMTestCaseDesc        Searching for data from a database

@SYMTestPriority        Medium

@SYMTestActions         Tests for EDbColText,EDbColLongText column type

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

static void TestSearchL( TInt aIndex )

	{

	// Default database

	_LIT( KComposer1, "Elgar" );

	_LIT( KCol1, "Artist" );

	_LIT( KCol2, "Notes" );

	_LIT( KTable, "CDs" );

	TInt err = TheFsSession.Delete( KSearchTestDbPath );

	if ( ( err != KErrNone ) && ( err != KErrNotFound ) && ( err != KErrPathNotFound ) )

		{

		__LEAVE( err );

		}

	RDbNamedDatabase db;

	CleanupClosePushL( db );

	__LEAVE_IF_ERROR( db.Create( TheFsSession, KSearchTestDbPath ) );

	//

	// Create the database table

	//

	// Create a table definition

	CDbColSet* columns = CDbColSet::NewLC();

	// add the columns

	columns->AddL( TDbCol( KCol1, EDbColText ) );

	if ( aIndex == 0 )

		columns->AddL( TDbCol( KCol2, EDbColText ) );

	else

		columns->AddL( TDbCol( KCol2, EDbColLongText ) );

	// if the column is of type "EDbColText" instead,

	// all searching is working properly

	// Create a table

	__LEAVE_IF_ERROR( db.CreateTable( KTable, *columns ) );

	// cleanup the column set

	CleanupStack::PopAndDestroy( columns );

	//

	// Add data

	//

	// create a view on the database

	_LIT( KSQLStatement, "select Artist,Notes from CDs order by Artist" );

	RDbView view;

	__LEAVE_IF_ERROR( view.Prepare( db, TDbQuery( KSQLStatement, EDbCompareNormal ) ) );

	__LEAVE_IF_ERROR( view.EvaluateAll() );

	// Get the structure of rowset

	CDbColSet* colSet = view.ColSetL();

	// insert a row

	view.InsertL();

	view.SetColL( colSet->ColNo( KCol1 ), KComposer1 ); // Artist

	// Use the stream

	// RDbColWriteStream out;

	// TDbColNo col = colSet->ColNo( KCol2 ); // Ordinal position of long column

	//

	// out.OpenLC( view, col );

	// out.WriteL( _L( "Some additional comment here." ) );

	// out.Close();

	//

	// CleanupStack::PopAndDestroy(); // out

	view.SetColL( colSet->ColNo( KCol2 ), _L( "Some additional comment here." ) );

	view.PutL();

	// close the view

	view.Close();

	delete colSet;

	//

	// Display the data

	//

	_LIT( KRowFormatter, "\r\n Artist: %S \r\n Notes: %S \r\n" );

	__LEAVE_IF_ERROR( view.Prepare( db, TDbQuery( KSQLStatement, EDbCompareNormal ) ) );

	__LEAVE_IF_ERROR( view.EvaluateAll() );

	// Get the structure of the rowset

	colSet = view.ColSetL();

	// iterate across the row set

	for ( view.FirstL(); view.AtRow(); view.NextL() )

		{

		// retrieve the row

		view.GetL();

		// while the rowset is on this row, can use a TPtrC to

		// refer to any text columns

		TPtrC artist = view.ColDes( colSet->ColNo( KCol1 ) );

		// and a stream for long columns

		RDbColReadStream in;

		TDbColNo col = colSet->ColNo( KCol2 ); // Ordinal position of long column

		TBuf<256> notes; // Buffer for out notes

		in.OpenLC( view, col );

		in.ReadL( notes, view.ColLength( col ) );

		in.Close();

		CleanupStack::PopAndDestroy(); // in

		// Display the artist and notes

		TBuf<512> msg;

		msg.Format( KRowFormatter, &artist, &notes );

		TheTest.Printf( msg );

		}

	// close the view

	view.Close();

	delete colSet;

	//

	// Search for the data

	//

	TInt result;

	result = SearchForL( _L( "Some*" ), db ); // matches

	TEST(result == 1);

	result = SearchForL( _L( "some*" ), db ); // defect causes no match, should match

	TEST(result == 1);

	result = SearchForL( _L( "*some*" ), db ); // matches

	TEST(result == 1);

	result = SearchForL( _L( "s?me*" ), db ); // matches

	TEST(result == 1);

	result = SearchForL( _L( "Some additional comment here." ), db ); // matches

	TEST(result == 1);

	result = SearchForL( _L( "some additional comment here." ), db ); // defect causes no match, should match

	TEST(result == 1);

	CleanupStack::PopAndDestroy( &db );

	}

//

// Initialise the cleanup stack.

//

static void setupCleanup()

	{

	TheTrapCleanup=CTrapCleanup::New();

	TEST(TheTrapCleanup!=NULL);

	TRAPD(r,\

		{\

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

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

		CleanupStack::Pop(KTestCleanupStack);\

		});

	TEST2(r,KErrNone);

	}

//

// Test streaming conversions.

//

GLDEF_C TInt E32Main()

	{

	TheTest.Title();

	setupCleanup();

	__UHEAP_MARK;

	TInt err = TheFsSession.Connect();

	TEST2(err, KErrNone);

	::SetupTestDirectory();

	TheTest.Next(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-0645 Testing DBMS - EDbColText "));

	TRAP(err, TestSearchL( 0 ));

	TEST2(err,KErrNone);

	TheTest.Start(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-0645 Testing DBMS - EDbColLongText "));

	TRAP(err, TestSearchL( 1 ));

	TEST2(err,KErrNone);

	::DeleteDataFile(KSearchTestDbPath);

	TheTest.End();

	TheFsSession.Close();

	__UHEAP_MARKEND;

	delete TheTrapCleanup;

	TheTest.Close();

	return 0;

	}