// Copyright (c) 2002-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 <s32file.h>

#include "TEST.H"

/*

This test may fail occasionally, especially after changing the LogEng server code. The reported error is KErrCorrupt.

The typical scenario when the test fails is:

1) Some of the test functions calls "__FILE_FAILNEXT(failCount++)"

2) The test calls some CLogClient method, typically "aClient.GetEventType()".

3) The statement "test(active->iStatus == KErrNone)" fails.

This behaviour might be related to INC044553 "DBMS does not handle OOD error 

scenarios correctly when committing a transaction".

"__FILE_FAILNEXT" is a macro, which calls theFs.SetErrorCondition(KErrGeneral, X).

If you perform a search with "SetErrorCondition" keyword in "Programming" database, you will find

some explanations that the programmer has to be careful when using SetErrorCondition() method,

because:

"You have to be careful if you use this in the same way as you do for heap testing, because you 

can get the file system in a state where it think the file you're working on is corrupted."

Anyway, LOGENG server internally uses DBMS component. Calling SetErrorCondition() we test DBMS 

component actually not LOGENG component!

There is one addidtional thing in the test, which makes me believing that the problem is not 

in LOGENG but in SetErrorCondition()/DBMS interaction - in many if the test functions a statement

like:

  		if (failCount == 5)

			failCount++;

may be found. I think that it is there to prevent exactly the problem with 

SetErrorCondition()/DBMS interaction.

*/

#undef test  //there is a "test" macro which hides "RTest test" declaration.

RTest test(_L("Log Client API File Failure Test Harness"));

const TUid KTestEventUid = {0x10005393};

_LIT(KTestEventDesc1, "Event Type Description");

_LIT(KTestEventDesc2, "Changed Event Description");

_LIT(KTestRemoteParty1, "Remote Party");

_LIT(KTestRemoteParty2, "Changed Remote Party");

_LIT(KTestDirection1, "Direction");

_LIT(KTestDirection2, "Changed Direction");

const TLogDurationType KTestDurationType1 = 1;

const TLogDurationType KTestDurationType2 = 2;

const TLogDuration KTestDuration1 = 0x1234;

const TLogDuration KTestDuration2 = 0x1234567;

_LIT(KTestStatus1, "Status");

_LIT(KTestStatus2, "Changed Status");

_LIT(KTestSubject1, "Subject");

_LIT(KTestSubject2, "Changed Subject");

_LIT(KTestNumber1, "Number");

_LIT(KTestNumber2, "Changed Number");

const TLogContactItemId KTestContact1 = 0x1234;

const TLogContactItemId KTestContact2 = 0x1234567;

const TLogLink KTestLink1 = 0x1234;

const TLogLink KTestLink2 = 0x1234567;

_LIT8(KTestData1, "ABCDEFGH");

_LIT8(KTestData2, "IJKLMNOPQRSTUVWXYZ");

const TLogSize KTestMaxLogSize = 0xFFF;

const TLogRecentSize KTestMaxRecentLogSize = 0xF;

const TLogAge KTestMaxEventAge = 0xFFFFFFF;

/**

@SYMTestCaseID          SYSLIB-LOGENG-CT-1334

@SYMTestCaseDesc	    Basic test to add events

@SYMTestPriority 	    High

@SYMTestActions  	    Tests for CLogClient::AddEvent() function

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

LOCAL_C void TestBasicL(CLogClient& aClient)

	{

	test.Next(_L(" @SYMTestCaseID:SYSLIB-LOGENG-CT-1334 "));

	CTestActive* active = new(ELeave)CTestActive();

	CleanupStack::PushL(active);

	CLogEvent* event = CLogEvent::NewL();

	CleanupStack::PushL(event);

	TTime now;

	now.UniversalTime();

	event->SetEventType(KLogCallEventTypeUid);

	active->StartL();

	aClient.AddEvent(*event, active->iStatus);

	CActiveScheduler::Start();

	TEST2(active->iStatus.Int(), KErrNone);

	TEST(event->EventType() == KLogCallEventTypeUid);

	TEST(event->Description().Length() > 0);

	TEST(event->Time() >= now);

	now = event->Time();

	TLogId id = event->Id();

	event->SetRemoteParty(KTestRemoteParty1);

	event->SetDirection(KTestDirection1);

	event->SetDurationType(KTestDurationType1);

	event->SetDuration(KTestDuration1);

	event->SetStatus(KTestStatus1);

	event->SetSubject(KTestSubject1);

	event->SetNumber(KTestNumber1);

	event->SetContact(KTestContact1);

	event->SetLink(KTestLink1);

	event->SetDataL(KTestData1);

	active->StartL();

	aClient.ChangeEvent(*event, active->iStatus);

	CActiveScheduler::Start();

	TEST2(active->iStatus.Int(), KErrNone);

	TEST(event->Id() == id);

	TEST(event->EventType() == KLogCallEventTypeUid);

	TEST(event->Description().Length() > 0);

	TEST(event->Time() == now);

	TEST(event->RemoteParty() == KTestRemoteParty1);

	TEST(event->Direction() == KTestDirection1);

	TEST(event->DurationType() == KTestDurationType1);

	TEST(event->Duration() == KTestDuration1);

	TEST(event->Status() == KTestStatus1);

	TEST(event->Subject() == KTestSubject1);

	TEST(event->Number() == KTestNumber1);

	TEST(event->Contact() == KTestContact1);

	TEST(event->Link() == KTestLink1);

	TEST(event->Data() == KTestData1);

	CleanupStack::PopAndDestroy(); // event;

	event = CLogEvent::NewL();

	CleanupStack::PushL(event);

	event->SetId(id);

	active->StartL();

	aClient.GetEvent(*event, active->iStatus);

	CActiveScheduler::Start();

	TEST2(active->iStatus.Int(),KErrNone);

	TEST(event->Id() == id);

	TEST(event->EventType() == KLogCallEventTypeUid);

	TEST(event->Description().Length() > 0);

	TEST(event->Time() == now);

	TEST(event->RemoteParty() == KTestRemoteParty1);

	TEST(event->Direction() == KTestDirection1);

	TEST(event->DurationType() == KTestDurationType1);

	TEST(event->Duration() == KTestDuration1);

	TEST(event->Status() == KTestStatus1);

	TEST(event->Subject() == KTestSubject1);

	TEST(event->Number() == KTestNumber1);

	TEST(event->Contact() == KTestContact1);

	TEST(event->Link() == KTestLink1);

	TEST(event->Data() == KTestData1);

	active->StartL();

	aClient.DeleteEvent(id, active->iStatus);

	CActiveScheduler::Start();

	TEST2(active->iStatus.Int(),KErrNone);

	active->StartL();

	aClient.GetEvent(*event, active->iStatus);

	CActiveScheduler::Start();

	TEST2(active->iStatus.Int(), KErrNotFound);

	CleanupStack::PopAndDestroy(2); // event, active

	}

/**

@SYMTestCaseID          SYSLIB-LOGENG-CT-0911

@SYMTestCaseDesc	    Tests for new CLogClient object creation

@SYMTestPriority 	    High

@SYMTestActions  	    Create a new CLogClient check for memory errors

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

LOCAL_C void TestConstructionL()

	{

	test.Next(_L(" @SYMTestCaseID:SYSLIB-LOGENG-CT-0911 "));

	CLogClient* client = NULL;

	TInt failCount = 0;

	TBool finished = EFalse;

	TInt error;

	while(!finished)

		{

        if(failCount == 4)

            {

            TRAP(error, client = CLogClient::NewL(theFs));

            TEST2(error, KErrNone);

            TestBasicL(*client);

            finished = ETrue;

            continue;

            }

		__FILE_FAILNEXT(++failCount);

		TRAP(error, client = CLogClient::NewL(theFs));

		__FILE_RESET;

		if (error == KErrNone)

			{

			finished = ETrue;

			TestBasicL(*client);

			}

		else

			{

			TEST2(error, KErrGeneral);

			TestUtils::DeleteDatabaseL();

			}

		}

	delete client;

    RDebug::Print(_L("The test has succeeded at iteration %d\n"), failCount);

	}

/**

@SYMTestCaseID          SYSLIB-LOGENG-CT-0912

@SYMTestCaseDesc	    Adding an event type test,

                        Tests for CLogClient::AddEventType() function

@SYMTestPriority 	    High

@SYMTestActions  	    Check for file failure errors while adding event types

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

LOCAL_C void TestAddEventTypeL(CLogClient& aClient)

	{

	test.Next(_L(" @SYMTestCaseID:SYSLIB-LOGENG-CT-0912 "));

	CLogEventType* type = CLogEventType::NewL();

	CleanupStack::PushL(type);

	type->SetUid(KTestEventUid);

	type->SetDescription(KTestEventDesc1);

	type->SetLoggingEnabled(ETrue);

	CTestActive* active = new(ELeave)CTestActive();

	CleanupStack::PushL(active);

	TInt failCount = 0;

	TBool finished = EFalse;

	TInt error;

	while(!finished)

		{

		error = KErrNone;

        if(failCount == 4)

            {

            aClient.AddEventType(*type, active->iStatus);

            active->StartL();

            CActiveScheduler::Start();

            TEST2(active->iStatus.Int(), KErrNone);

            finished = ETrue;

            continue;

            }

		__FILE_FAILNEXT(++failCount);

		aClient.AddEventType(*type, active->iStatus);

		active->StartL();

		CActiveScheduler::Start();

		if (active->iStatus == KErrNone)

			finished = ETrue;

		else

			error = active->iStatus.Int();

		__FILE_RESET;

		if (error == KErrGeneral)

			{

			active->StartL();

			aClient.GetEventType(*type, active->iStatus);

			CActiveScheduler::Start();

			TEST2(active->iStatus.Int(), KErrNotFound);

			}

		else

			TEST2(error, KErrNone);

		}

	active->StartL();

	aClient.AddEventType(*type, active->iStatus);

	CActiveScheduler::Start();

	TEST2(active->iStatus.Int(), KErrAlreadyExists);

	CleanupStack::PopAndDestroy(2); // active, type

    RDebug::Print(_L("The test has succeeded at iteration %d\n"), failCount);

	}

/**

@SYMTestCaseID          SYSLIB-LOGENG-CT-0913

@SYMTestCaseDesc	    Getting an event type test.

                        Tests for CLogClient::GetEventType() function

@SYMTestPriority 	    High

@SYMTestActions  	    Check for file failure errors while getting event types

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

LOCAL_C void TestGetEventTypeL(CLogClient& aClient)

	{

	test.Next(_L(" @SYMTestCaseID:SYSLIB-LOGENG-CT-0913 "));

	CLogEventType* type = CLogEventType::NewL();

	CleanupStack::PushL(type);

	type->SetUid(KTestEventUid);

	CTestActive* active = new(ELeave)CTestActive();

	CleanupStack::PushL(active);

	TInt failCount = 0;

	TBool finished = EFalse;

	while(!finished)

		{

		__FILE_FAILNEXT(++failCount);

		aClient.GetEventType(*type, active->iStatus);

		active->StartL();

		CActiveScheduler::Start();

		if (active->iStatus == KErrNone)

			finished = ETrue;

		else

			{

			TEST2(active->iStatus.Int(), KErrGeneral);

			TEST(type->Description() == KNullDesC);

			}

		__FILE_RESET;

		}

	TEST(type->Uid() == KTestEventUid);

	TEST(type->Description() == KTestEventDesc1);

	TEST(type->LoggingEnabled());

	CleanupStack::PopAndDestroy(2); // active, type

    RDebug::Print(_L("The test has succeeded at iteration %d\n"), failCount);

	}

/**

@SYMTestCaseID          SYSLIB-LOGENG-CT-0914

@SYMTestCaseDesc	    Changing an event type test,

                        Tests for CLogClient::ChangeEventType() function

@SYMTestPriority 	    High

@SYMTestActions  	    Check for file failure errors while changing event types

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

LOCAL_C void TestChangeEventTypeL(CLogClient& aClient)

	{

	test.Next(_L(" @SYMTestCaseID:SYSLIB-LOGENG-CT-0914 "));

	CTestActive* active = new(ELeave)CTestActive();

	CleanupStack::PushL(active);

	CLogEventType* type = CLogEventType::NewL();

	CleanupStack::PushL(type);

	type->SetUid(KTestEventUid);

	TInt failCount = 0;

	TBool finished = EFalse;

	TInt error;

	while(!finished)

		{

		error = KErrNone;

		type->SetDescription(KTestEventDesc2);

		type->SetLoggingEnabled(EFalse);

        if(failCount == 3)

            {

            aClient.ChangeEventType(*type, active->iStatus);

            active->StartL();

            CActiveScheduler::Start();

            TEST2(active->iStatus.Int(), KErrNone);

            finished = ETrue;

            continue;

            }

		__FILE_FAILNEXT(++failCount);

		aClient.ChangeEventType(*type, active->iStatus);

		active->StartL();

		CActiveScheduler::Start();

		if (active->iStatus == KErrNone)

			finished = ETrue;

		else

			error = active->iStatus.Int();

		__FILE_RESET;

		if (error == KErrGeneral)

			{

			active->StartL();

			aClient.GetEventType(*type, active->iStatus);

			CActiveScheduler::Start();

			TEST2(active->iStatus.Int(), KErrNone);

			TEST(type->Description() == KTestEventDesc1);

			TEST(type->LoggingEnabled());

			}

		else

			TEST2(error, KErrNone);

		}

	type->SetUid(KTestEventUid);

	active->StartL();

	aClient.GetEventType(*type, active->iStatus);

	CActiveScheduler::Start();

	TEST2(active->iStatus.Int(), KErrNone);

	TEST(type->Uid() == KTestEventUid);

	TEST(type->Description() == KTestEventDesc2);

	TEST(type->LoggingEnabled() == EFalse);

	CleanupStack::PopAndDestroy(2); // type, active

    RDebug::Print(_L("The test has succeeded at iteration %d\n"), failCount);

	}

/**

@SYMTestCaseID          SYSLIB-LOGENG-CT-0915

@SYMTestCaseDesc	    Deleting an event type test

                        Tests for CLogClient::DeleteEventType() function

@SYMTestPriority 	    High

@SYMTestActions  	    Check for file failure errors while deleting event types

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

LOCAL_C void TestDeleteEventTypeL(CLogClient& aClient)

	{

	test.Next(_L(" @SYMTestCaseID:SYSLIB-LOGENG-CT-0915 "));

	CTestActive* active = new(ELeave)CTestActive();

	CleanupStack::PushL(active);

	CLogEventType* type = CLogEventType::NewL();

	CleanupStack::PushL(type);

	type->SetUid(KTestEventUid);

	TInt failCount = 0;

	TBool finished = EFalse;

	TInt error;

	while(!finished)

		{

		error = KErrNone;

        if(failCount == 3)

            {

            aClient.DeleteEventType(KTestEventUid, active->iStatus);

            active->StartL();

            CActiveScheduler::Start();

            TEST2(active->iStatus.Int(), KErrNone);

            finished = ETrue;

            continue;

            }

		__FILE_FAILNEXT(++failCount);

		aClient.DeleteEventType(KTestEventUid, active->iStatus);

		active->StartL();

		CActiveScheduler::Start();

		if (active->iStatus == KErrNone)

			finished = ETrue;

		else

			error = active->iStatus.Int();

		__FILE_RESET;

		if (error == KErrGeneral)

			{

			active->StartL();

			aClient.GetEventType(*type, active->iStatus);

			CActiveScheduler::Start();

			TEST2(active->iStatus.Int(), KErrNone);

			}

		else

			TEST2(error, KErrNone);

		}

	active->StartL();

	aClient.GetEventType(*type, active->iStatus);

	CActiveScheduler::Start();

	TEST2(active->iStatus.Int(), KErrNotFound);

	CleanupStack::PopAndDestroy(2); // type, active

    RDebug::Print(_L("The test has succeeded at iteration %d\n"), failCount);

	}

/**

@SYMTestCaseID          SYSLIB-LOGENG-CT-0916

@SYMTestCaseDesc	    Adding an event test,

                        Tests for CLogClient::AddEvent() function

@SYMTestPriority 	    High

@SYMTestActions  	    Check for file failure errors while adding event

                        Tests for no error conditons,and the event information 

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

LOCAL_C void TestAddEventL(CLogClient& aClient)

	{

	test.Next(_L(" @SYMTestCaseID:SYSLIB-LOGENG-CT-0916 "));