// Copyright (c) 2006-2009 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of the License "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:

// f32test\bench\t_fsrdirload.cpp

// 

//

#include <f32file.h>

#include <e32test.h>

#include "t_select.h"

#include "..\server\t_server.h"

#include "t_benchmain.h"

GLDEF_D RTest test(_L("File Server Benchmarks, Dir Load"));

//----------------------------------------------------------------------------------------------

//! @SYMTestCaseID      PBASE-T_FSRDIRLOAD-0273

//! @SYMTestType        CIT

//! @SYMPREQ            PREQ000

//! @SYMTestCaseDesc    This test case is measuring performance of the FAT implementation.  

//! @SYMTestActions     0.  Expects the files to exist in order to successful execution

//!						1.	Time the listing of each directory sorted by name

//!						2.	Time the listing of each directory sorted by extension

//!						3.	Time the listing of each directory sorted by size

//!						4.	Time the listing of each directory sorted by date

//!						5.	Time the search of each file in a directory sorted by name

//!						6.	Time the search of each file in a directory sorted by extension

//!						7.	Time the search of each file in a directory sorted by size

//!						8.	Time the search of each file in a directory sorted by date

//!

//! @SYMTestExpectedResults Finishes if the system behaves as expected, panics otherwise

//! @SYMTestPriority        High

//! @SYMTestStatus          Implemented

//----------------------------------------------------------------------------------------------

LOCAL_D RSemaphore client;

LOCAL_D TRequestStatus stat;

LOCAL_D TBuf8<4096> buf;

LOCAL_D TDriveList gDriveList;

_LIT(KDirMultipleName2, "dir%d_%d\\");

/** Sort a directory with different criterias 

	@param aN 		Number of files in the directory

	@param aKey		Type of sorting to use

	@param aStep 	Test step

*/

LOCAL_C TInt SortFile(TInt aN, TEntryKey aKey, TInt aStep)

	{

	TBuf16<100> dir1;

	TBuf16<100> dir2;

	TBuf16<100> dir3;

    TBuf16<100> temp;

	TInt r = 0;

	TTime startTime;

	TTime endTime;

	TTimeIntervalMicroSeconds timeTaken(0);

	TInt timeTaken1 = -1, timeTaken2 = -1, timeTaken3 = -1;

	if(aN <= gFilesLimit) 

		{	

		CDir* dirPtr;

		dir1 = gSessionPath;

		dir2 = gSessionPath;

		dir3 = gSessionPath;

		temp.Format(KDirMultipleName2, 1, aN);

		dir1.Append(temp);

		temp.Format(KDirMultipleName2, 2, aN);

		dir2.Append(temp);

		temp.Format(KDirMultipleName2, 3, aN);

		dir3.Append(temp);

		dir1.Append(_L("*.*"));

		dir2.Append(_L("*.*"));

		dir3.Append(_L("*.*"));

		if(gTypes >= 1) 

			{		

			startTime.HomeTime();

			r = TheFs.GetDir(dir1,KEntryAttMaskSupported,ESortNone,dirPtr);

			FailIfError(r);

			r = dirPtr->Sort(aKey);

			FailIfError(r);

			endTime.HomeTime();

			delete dirPtr;

			timeTaken = endTime.MicroSecondsFrom(startTime);

			timeTaken1 = I64LOW(timeTaken.Int64() / gTimeUnit);

			}

		if(gTypes >= 2) 

			{	

			startTime.HomeTime();

			r = TheFs.GetDir(dir2,KEntryAttMaskSupported,ESortNone,dirPtr);

			FailIfError(r);

			r = dirPtr->Sort(aKey);

			FailIfError(r);

			endTime.HomeTime();

			timeTaken = endTime.MicroSecondsFrom(startTime);

			delete dirPtr;

			timeTaken2 = I64LOW(timeTaken.Int64() / gTimeUnit);

			}

		if(gTypes >= 3) 

			{	

			startTime.HomeTime();

			r = TheFs.GetDir(dir3,KEntryAttMaskSupported,ESortNone,dirPtr);

			FailIfError(r);

			r = dirPtr->Sort(aKey);

			FailIfError(r);

			endTime.HomeTime();

			timeTaken=endTime.MicroSecondsFrom(startTime);

			timeTaken3 = I64LOW(timeTaken.Int64() / gTimeUnit);

			delete dirPtr;

			}

		}

	PrintResult(aStep, 1, aN);

	PrintResultTime(aStep, 2, timeTaken1);

	PrintResultTime(aStep, 3, timeTaken2);

	PrintResultTime(aStep, 4, timeTaken3);

	return KErrNone;

	}

/** Sort a directory with different type of files and find a particular one

	@param aN 		Number of files in the directory

	@param aKey		Type of sorting to use

	@param aStep 	Test step

*/

LOCAL_C TInt SortFindFile(TInt aN, TEntryKey aKey, TInt aStep )

	{

	TBuf16<100> dir1;

	TBuf16<100> dir2;

	TBuf16<100> dir3;

    TBuf16<100> temp;

	TInt r = 0;

	TTime startTime;

	TTime endTime;

	TTimeIntervalMicroSeconds timeTaken(0);

	TInt timeTaken1 = -1, timeTaken2 = -1, timeTaken3 = -1;

	if(aN <= gFilesLimit) 

		{	

		CDir* dirPtr;

		TInt i = 0;

		TBool found = EFalse;

		dir1 = gSessionPath;

		dir2 = gSessionPath;

		dir3 = gSessionPath;

		temp.Format(KDirMultipleName2, 1, aN);

		dir1.Append(temp);

		temp.Format(KDirMultipleName2, 2, aN);

		dir2.Append(temp);

		temp.Format(KDirMultipleName2, 3, aN);

		dir3.Append(temp);

		dir1.Append(_L("*.*"));

		dir2.Append(_L("*.*"));

		dir3.Append(_L("*.*"));

		if(gTypes >= 1) 

			{	

			startTime.HomeTime();

			r = TheFs.GetDir(dir1, KEntryAttMaskSupported, aKey, dirPtr);

			FailIfError(r);

			found = EFalse; 

			i = 0;

			while((i < dirPtr->Count()) && (!found))

				{

				TEntry e = (*dirPtr)[i];

				if(e.iName == _L("last.txt")) found = ETrue;		

				i++;	

				}

			endTime.HomeTime();

			delete dirPtr;

			timeTaken = endTime.MicroSecondsFrom(startTime);

			timeTaken1 = I64LOW(timeTaken.Int64() / gTimeUnit);

			}

		if(gTypes >= 2) 

			{	

			startTime.HomeTime();

			r = TheFs.GetDir(dir2, KEntryAttMaskSupported, aKey, dirPtr);

			FailIfError(r);

			found = EFalse; 

			i = 0;

			while((i < dirPtr->Count()) && (!found))

				{

				TEntry e = (*dirPtr)[i];

				if(e.iName == _L("last.txt")) found = ETrue;

				i++;	

				}

			endTime.HomeTime();

			timeTaken = endTime.MicroSecondsFrom(startTime);

			delete dirPtr;

			timeTaken2 = I64LOW(timeTaken.Int64() / gTimeUnit);

			}

		if(gTypes >= 3) 

			{		

			startTime.HomeTime();

			r = TheFs.GetDir(dir3, KEntryAttMaskSupported, aKey, dirPtr);

			FailIfError(r);

			found = EFalse; 

			i = 0;

			while((i<dirPtr->Count()) && (!found))

				{

				TEntry e = (*dirPtr)[i];

				if(e.iName == _L("last.txt")) found = ETrue;

				i++;	

				}

			endTime.HomeTime();

			timeTaken = endTime.MicroSecondsFrom(startTime);

			timeTaken3 = I64LOW(timeTaken.Int64() / gTimeUnit);

			delete dirPtr;

			}

		}

	PrintResult(aStep, 1, aN);

	PrintResultTime(aStep, 2, timeTaken1);

	PrintResultTime(aStep, 3, timeTaken2);

	PrintResultTime(aStep, 4, timeTaken3);

	return KErrNone;

	}

/** Sort a directory and find a file opens it and reads first 4Kb and last 4Kb

	@param aN 		Number of files in the directory

	@param aKey		Type of sorting to use

	@param aStep 	Test step

*/

LOCAL_C TInt SortFindFileAndOpen(TInt aN, TEntryKey aKey, TInt aStep )

	{

	TBuf16<100> dir1;

	TBuf16<100> dir2;

	TBuf16<100> dir3;

    TBuf16<100> temp;

	TInt r = 0;

	TTime startTime;

	TTime endTime;

	TTimeIntervalMicroSeconds timeTaken(0);

	TInt timeTaken1 = -1, timeTaken2 = -1, timeTaken3 = -1;

	CDir* dirPtr;

	TInt i = 0, pos = 0;

	TBool found = EFalse;

	RFile file;

	if(aN <= gFilesLimit) 

		{		

		dir1 = gSessionPath;

		dir2 = gSessionPath;

		dir3 = gSessionPath;

		temp.Format(KDirMultipleName2, 1, aN);

		dir1.Append(temp);

		temp.Format(KDirMultipleName2, 2, aN);

		dir2.Append(temp);

		temp.Format(KDirMultipleName2, 3, aN);

		dir3.Append(temp);

		dir1.Append(_L("*.*"));

		dir2.Append(_L("*.*"));

		dir3.Append(_L("*.*"));

		if(gTypes >= 1) 

			{	

			startTime.HomeTime();

			r = TheFs.GetDir(dir1, KEntryAttMaskSupported, aKey, dirPtr);

			FailIfError(r);

			dir1 = gSessionPath;

			temp.Format(KDirMultipleName2, 1, aN);

			dir1.Append(temp);

			dir1.Append(_L("LAST.TXT"));

			found = EFalse; 

			i = 0;

			while((i < dirPtr->Count()) && (!found))

				{

				TEntry e = (*dirPtr)[i];

				if(e.iName == _L("LAST.TXT")) 

					{

					found = ETrue;		

					}

				else 

					{

					i++;	

					}

				}

			test(found);

			file.Open(TheFs, dir1, EFileShareAny|EFileRead);

			pos = 0;

			file.Seek(ESeekStart, pos);

			r = file.Read(buf);

			FailIfError(r);

			pos = -4 * KOneK; // 4 KB before the end of the file

			file.Seek(ESeekEnd, pos);

			r = file.Read(buf);

			FailIfError(r);

			endTime.HomeTime();

			delete dirPtr;

			file.Close();

			timeTaken = endTime.MicroSecondsFrom(startTime);

			timeTaken1 = I64LOW(timeTaken.Int64() / gTimeUnit);

			}

		if(gTypes >= 2) 

			{		

			startTime.HomeTime();

			r = TheFs.GetDir(dir2, KEntryAttMaskSupported, aKey, dirPtr);

			FailIfError(r);

			dir2 = gSessionPath;

			temp.Format(KDirMultipleName2, 2, aN); 

			dir2.Append(temp);

			dir2.Append(_L("LAST.TXT"));

			found = EFalse; 

			i = 0;

			while((i < dirPtr->Count()) && (!found))

				{

				TEntry e = (*dirPtr)[i];

				if(e.iName == _L("LAST.TXT")) 

					{

					found = ETrue;

					}

				else 

					{

					i++;	

					}

				}

			test(found);

			file.Open(TheFs, dir2, EFileShareAny|EFileRead);

			pos = 0;

			file.Seek(ESeekStart, pos);

			r = file.Read(buf);

			FailIfError(r);

			pos = -4 * KOneK;  // 4 KB before the end of the file

			file.Seek(ESeekEnd, pos);

			r = file.Read(buf);

			FailIfError(r);

			endTime.HomeTime();

			timeTaken = endTime.MicroSecondsFrom(startTime);

			delete dirPtr;

			file.Close();

			timeTaken2 = I64LOW(timeTaken.Int64() / gTimeUnit);

			}

		if(gTypes >= 3) 

			{	

			startTime.HomeTime();

			r = TheFs.GetDir(dir3, KEntryAttMaskSupported, aKey, dirPtr);

			FailIfError(r);

			dir3 = gSessionPath;

			temp.Format(KDirMultipleName2, 3, aN);

			dir3.Append(temp);

			dir3.Append(_L("LAST.TXT"));

			found = EFalse; 

			i = 0;

			while((i < dirPtr->Count()) && (!found))

				{

				TEntry e = (*dirPtr)[i];

				if(e.iName == _L("LAST.TXT")) 

					{

					found = ETrue;

					}

				else 

					{

					i++;	

					}

				}

			file.Open(TheFs, dir3, EFileShareAny|EFileRead);

			pos = 0;

			file.Seek(ESeekStart, pos);

			r = file.Read(buf);

			FailIfError(r);

			pos = -4 * KOneK;  // 4 KB before the end of the file

			file.Seek(ESeekEnd, pos);

			r = file.Read(buf);

			FailIfError(r);

			endTime.HomeTime();

			timeTaken = endTime.MicroSecondsFrom(startTime);

			file.Close();

			timeTaken3 = I64LOW(timeTaken.Int64() / gTimeUnit);

			delete dirPtr;

			}

		}

	PrintResult(aStep, 1, aN);

	PrintResultTime(aStep, 2, timeTaken1);

	PrintResultTime(aStep, 3, timeTaken2);

	PrintResultTime(aStep, 4, timeTaken3);

	return KErrNone;

	}

/** Times the directory listing sorted by name, extension, size and date

	@param aSelector Configuration in case of manual execution

*/

LOCAL_C TInt TestDirListing(TAny* aSelector)

	{

	TInt i = 100;

	TInt testStep;

	Validate(aSelector);

	test.Printf(_L("#~TS_Title_%d,%d: Directory listing sorted by name \n"), gTestHarness, gTestCase);

	testStep = 1;

	while(i <= KMaxFiles)

		{

		if(i == 100 || i == 1000 || i == 5000 || i == 10000)

			{

			SortFile(i, ESortByName, testStep++);

			}

		i += 100;

		}

	gTestCase++;

	test.Printf(_L("#~TS_Title_%d,%d: Directory listing sorted by extension\n"), gTestHarness, gTestCase);

	i = 100;

	testStep = 1;

	while(i <= KMaxFiles)

		{

		if(i == 100 || i == 1000 || i == 5000 || i == 10000)

			{

			SortFile(i, ESortByExt, testStep++);

			}

		i += 100;

		}

	gTestCase++;

	test.Printf(_L("#~TS_Title_%d,%d: Directory listing sorted by size \n"), gTestHarness, gTestCase);

	i = 100;

	testStep = 1;

	while(i <= KMaxFiles)

		{

		if(i == 100 || i == 1000 || i == 5000 || i == 10000)

			{

			SortFile(i, ESortBySize, testStep++);

			}

		i += 100;

		}

	gTestCase++;

	test.Printf(_L("#~TS_Title_%d,%d: Directory listing sorted by date \n"), gTestHarness, gTestCase);

	i = 100;

	testStep = 1;

	while(i <= KMaxFiles)

		{

		if(i == 100 || i == 1000 || i == 5000 || i == 10000)

			{

			SortFile(i, ESortByDate, testStep++);

			}

		i += 100;

		}

	gTestCase++;

	return KErrNone;

	}

/** Times the operations required to find a file ordering the list of files by orted by name,

	extension, size and date

	@param aSelector Configuration in case of manual execution

*/

LOCAL_C TInt TestFindFile(TAny* aSelector)

	{

	TInt i = 100;

	TInt testStep;

	Validate(aSelector);

	test.Printf(_L("#~TS_Title_%d,%d: Find file when sorted by name \n"), gTestHarness, gTestCase);

	i = 100;

	testStep = 1;

	while(i <= KMaxFiles)

		{

		if(i == 100 || i == 1000 || i == 5000 || i == 10000)

			{

			SortFindFile(i, ESortByName, testStep++);

			}

		i += 100;

		}

	gTestCase++;

	test.Printf(_L("#~TS_Title_%d,%d: Find file when sorted by extension\n"), gTestHarness, gTestCase);

	i = 100;

	testStep = 1;

	while(i <= KMaxFiles)

		{

		if(i == 100 || i == 1000 || i == 5000 || i == 10000)

			{

			SortFindFile(i, ESortByExt, testStep++);

			}

		i += 100;

		}

	gTestCase++;

	test.Printf(_L("#~TS_Title_%d,%d: Find file when sorted by size \n"), gTestHarness, gTestCase);

	i = 100;

	testStep = 1;

	while(i <= KMaxFiles)

		{

		if(i == 100 || i == 1000 || i == 5000 || i == 10000)

			{

			SortFindFile(i, ESortBySize, testStep++);

			}

		i += 100;

		}

	gTestCase++;	

	test.Printf(_L("#~TS_Title_%d,%d: Find file when sorted by date \n"), gTestHarness, gTestCase);

	i = 100;

	testStep = 1;

	while(i <= KMaxFiles)

		{

		if(i == 100 || i == 1000 || i == 5000 || i == 10000)

			{

			SortFindFile(i, ESortByDate, testStep++);

			}

		i += 100;

		}

	gTestCase++;

	return KErrNone;

	}

/** Times the opening of a file and read of the first 4 Kb when sorted by name, 

	extension, size and date

	@param aSelector Configuration in case of manual execution

*/

LOCAL_C TInt TestOpenReadFile(TAny* aSelector)

	{

	TInt i = 100;

	TInt testStep;

	Validate(aSelector);

	test.Printf(_L("#~TS_Title_%d,%d: Open and read file when sorted by name \n"), gTestHarness, gTestCase);

	i = 100;

	testStep = 1;

	while(i <= KMaxFiles)

		{

		if(i == 100 || i == 1000 || i == 5000 || i == 10000)

			{

			SortFindFileAndOpen(i, ESortByName, testStep++);

			}

		i += 100;

		}

	gTestCase++;

	test.Printf(_L("#~TS_Title_%d,%d: Open and read file when sorted by extension\n"), gTestHarness, gTestCase);

	i = 100;

	testStep = 1;

	while(i <= KMaxFiles)

		{

		if(i == 100 || i == 1000 || i == 5000 || i == 10000)

			{

			SortFindFileAndOpen(i, ESortByExt, testStep++);

			}

		i += 100;

		}

	gTestCase++;

	test.Printf(_L("#~TS_Title_%d,%d: Open and read when sorted by size \n"), gTestHarness, gTestCase);

	i=100;

	testStep = 1;

	while(i <= KMaxFiles)

		{

		if(i == 100 || i == 1000 || i == 5000 || i == 10000)

			{

			SortFindFileAndOpen(i, ESortBySize, testStep++);

			}

		i += 100;

		}

	gTestCase++;

	test.Printf(_L("#~TS_Title_%d,%d: Open and read file when sorted by date \n"), gTestHarness, gTestCase);

	i = 100;

	testStep = 1;

	while(i <= KMaxFiles)

		{

		if(i == 100 || i == 1000 || i == 5000 || i == 10000)

			{

			SortFindFileAndOpen(i, ESortByDate, testStep++);

			}

		i += 100;

		}

	gTestCase++;

	return KErrNone;

	}

/** It goes automatically through all the options

	@param aSelector Configuration in case of manual execution

*/

LOCAL_C TInt TestAll(TAny* aSelector)

	{

	Validate(aSelector);

	TestDirListing(aSelector);

	TestFindFile(aSelector);

	TestOpenReadFile(aSelector);

	return KErrNone;

	}

/** Call all tests

*/

GLDEF_C void CallTestsL()

	{

	TInt r = client.CreateLocal(0);

	FailIfError(r);

	CSelectionBox* TheSelector = CSelectionBox::NewL(test.Console());

	gFileSize = 8;

	// Each test case of the suite has an identifyer for parsing purposes of the results

	gTestHarness = 2; 	

	gTestCase = 1;

	PrintHeaders(1, _L("t_fsrdirload. Directory loading"));

	if(gMode==0) 

		{ // Manual	

		gSessionPath = _L("?:\\");

		TCallBack createFiles(TestFileCreate,TheSelector);

		TCallBack dirListFile(TestDirListing,TheSelector);

		TCallBack findFile(TestFindFile,TheSelector);

		TCallBack openReadFile(TestOpenReadFile,TheSelector);

		TCallBack allFile(TestAll,TheSelector);

		TheSelector->AddDriveSelectorL(TheFs);

		TheSelector->AddLineL(_L("Create all files"),createFiles);

		TheSelector->AddLineL(_L("Directory listings"),dirListFile);

		TheSelector->AddLineL(_L("Find file in the listing"),findFile);

		TheSelector->AddLineL(_L("Open and read first and last 4KB "),openReadFile);

		TheSelector->AddLineL(_L("Three last options together"),allFile);

		TheSelector->Run();

		}

	else 

		{ // Automatic

		TestAll(TheSelector);

		}

	client.Close();

	test.Printf(_L("#~TestEnd_%d\n"), gTestHarness);

	delete TheSelector;

	}