// Copyright (c) 2005-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 <f32file.h>

#include <e32test.h>

#include <bautils.h>

#include <hal.h>

#include <e32std.h>

#include <e32math.h>

#include "backup_std.h"

LOCAL_D CTrapCleanup*		TheTrapCleanup=NULL;

LOCAL_D CActiveScheduler*	TheActiveScheduler=NULL;

LOCAL_D RTest				TheTest (_L("T_BaflDefect"));

LOCAL_D RFs					TheFs;

_LIT(KServerLauncherProcess, "T_BackupServerLauncher");

_LIT(KServerName, "!BackupServer");

_LIT(KBURServerName,"baksrvs");

class RIpcServerCloseTest : public RSessionBase

{

public: // Constructors and destructor

	/**

	* Constructor for performing 1st stage construction

	*/

	RIpcServerCloseTest();

	/**

	* Destructor.

	*/

	~RIpcServerCloseTest();

	/**

	* Performs test steps

	*/

	void RunTestL(const TDesC& aTargetSrvName, TInt aNumber, TInt aArgCount);

};

RIpcServerCloseTest::RIpcServerCloseTest()

	{

	// No implementation required

	}

RIpcServerCloseTest::~RIpcServerCloseTest()

	{

	Close();	

	}

void RIpcServerCloseTest::RunTestL(const TDesC& aTargetSrvName, TInt aNumber, TInt aArgCount)

	{

	TVersion version(0,0,0);

	TInt err = KErrNotFound;

	TInt numberOfAttempts = 3;

	while(err!=KErrNone && numberOfAttempts>0)

		{

		err = CreateSession(aTargetSrvName, version, 200);

		if(err!=KErrNone)

			{

			// wait then try again if err!=0

			TheTest.Printf(_L("CreateSession returned: %d"), err);

			User::After(1000000);

			numberOfAttempts--;

			}

		}

	TheTest(err == KErrNone);

	HBufC8* buf = HBufC8::NewLC(255);

	TPtr8 ptr = buf->Des();

	ptr.Fill(Math::Random(),255);

	TIpcArgs args;

	for(TInt i = 0; i < aArgCount ;i++)

		{

		args.Set(i,&ptr);

		}

	TheTest.Printf(_L("Sending request to: %d with %d args"), aNumber, aArgCount);

	TRequestStatus status;

	SendReceive(aNumber, args, status);

	User::WaitForRequest(status);

	TheTest.Printf(_L("Status value from sending request: %d with %d args"), status.Int(), aArgCount);

	TheTest(status.Int() == KErrNotSupported);

	CleanupStack::PopAndDestroy(buf);

	}

//This function is used in the test code to kill backupSrv or the backuplauncher process.

// It creates a separate process to do this as killing a process requires

// PwrMgmt capability which we don't want to grant to all test exes.

TInt KillProcess(const TDesC& aProcessName)

	{

	_LIT(KProcessKiller, "t_processkiller");

	TRequestStatus stat;

	RProcess p;

	TInt result = p.Create(KProcessKiller, aProcessName);

	if(result == KErrNone)

		{

		// Asynchronous logon: completes when process terminates with process exit code

		p.Logon(stat);

		p.Resume();

		User::WaitForRequest(stat);

		result = p.ExitReason();

		p.Close();			

		}

	return result;

	}

TInt LaunchServer(RProcess& aServer)

	{	

	TheTest.Printf(_L("Launching BackupServer...\n"));

	TInt err = aServer.Create(KServerLauncherProcess, _L(""));

	TheTest(err == KErrNone);

	//Start server and wait until it is running

	TRequestStatus serverStat;

	aServer.SetJustInTime(false);   

	aServer.Resume(); 

	aServer.Rendezvous(serverStat);

	User::WaitForRequest(serverStat);

	err = serverStat.Int();

	return err;

	}

/**

@SYMTestCaseID          SYSLIB-BAFL-UT-4052

@SYMTestCaseDesc        Tests BackupServer crashes under IPC fuzzing and freezes phone 

@SYMTestPriority        High

@SYMTestActions         Calls BackupServer with EBakOpCodeCloseServer with 0-4 args. Verifies that server returns KErrNotSupported.

@SYMTestExpectedResults Server should not process the  CloseServer message and should return KErrNotSupported

*/

LOCAL_C void Defect_INC120743L()

    {

	TheTest.Next (_L ("Defect_INC120743L"));

	__UHEAP_MARK;

    RProcess server;

    TInt messageToTest = EBakOpCodeCloseServer;

    //Clean up any chance of launcher or baksrvs still running

    TInt err = KillProcess(KServerLauncherProcess);

    if((err != KErrNotFound)&&(err != KErrDied))

    	{

    	User::LeaveIfError(err);	

    	}

    err = KillProcess(KBURServerName);

    if((err != KErrNotFound)&&(err != KErrDied))

    	{

    	User::LeaveIfError(err);	

    	}

    TInt startedFlag = LaunchServer(server);

    TheTest.Printf(_L("LaunchServer has returned: %d"), startedFlag);

    TheTest(startedFlag == 0 || startedFlag == KErrAlreadyExists);

 	CTrapCleanup* cleanup=CTrapCleanup::New();

   	err=KErrNoMemory;

   	if (cleanup)

   		{

		//Carry out each test with number of arguments 1 - 4

		for(TInt argCount = 0; argCount <= 4; argCount++)

			{

			RIpcServerCloseTest closeTest;

			TRAP(err,closeTest.RunTestL(KServerName, messageToTest, argCount));

			closeTest.Close();

			}

   		delete cleanup;

   		}

	__UHEAP_MARKEND;

    }

/**

@SYMTestCaseID          SYSLIB-BAFL-CT-1390

@SYMTestCaseDesc        Tests BaflUtils::PersistScreenCalibration

@SYMTestPriority        Medium

@SYMTestActions         Deletes screen calibration file, calls PersistScreenCalibration()

and checks that file now exists

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

void Defect_DEF068052L()

	{

	TheTest.Next (_L (" @SYMTestCaseID:SYSLIB-BAFL-CT-1390 Defect_DEF068052L "));

    __UHEAP_MARK;

	User::LeaveIfError (TheFs.Connect ());

	::CleanupClosePushL (TheFs);

	const TInt KDriveLength = 2;

	const TInt KScreenPathLength = 26;

	const TInt KScreenPathLengthTemp = 30;

	_LIT (KDriveColon, ":");

	_LIT (KScreen, "\\System\\Data\\Screen.DAT");

	_LIT (KScreenTemp, "\\System\\Data\\ScreenTemp.DAT");

	// Find the system drive

	TDriveNumber systemDrive = TheFs.GetSystemDrive();

	// Set up a full file path name incorporating the system drive

	// (for example if system drive is EDriveC pathname will be:

	// C:\System\Data\Screen.DAT)

	TBuf<KDriveLength+KScreenPathLength> screenFilePath;

	screenFilePath.Append(systemDrive + 'A');

	screenFilePath.Append(KDriveColon);

	screenFilePath.Append(KScreen);

	// Set up a full file path name to make a copy of the screen.dat

	// file.

	TBuf<KDriveLength+KScreenPathLengthTemp> screenFilePathTemp;

	screenFilePathTemp.Append(systemDrive + 'A');

	screenFilePathTemp.Append(KDriveColon);

	screenFilePathTemp.Append(KScreenTemp);

	// Make a copy of the screen.dat file (if it exists)

	BaflUtils::CopyFile(TheFs, screenFilePath, screenFilePathTemp);

	// Delete the Screen.DAT file (if it exists)

	BaflUtils::DeleteFile(TheFs, screenFilePath);

	// Saving Screen settings - call API to write the screen

	// calibration to file

	TDigitizerCalibration calib;

	BaflUtils::PersistScreenCalibration(calib);

	// Check if screen.dat file now exists

	TBool exists = BaflUtils::FileExists(TheFs, screenFilePath);

	TheTest(exists);

	TheTest.Printf(_L("Screen settings were saved in %S\n"), &screenFilePath);

	// Cleaning up, restore files to original state

	User::LeaveIfError(BaflUtils::DeleteFile(TheFs, screenFilePath));

	BaflUtils::CopyFile(TheFs, screenFilePathTemp, screenFilePath);

	BaflUtils::DeleteFile(TheFs, screenFilePathTemp);

	CleanupStack::PopAndDestroy (&::TheFs);

	__UHEAP_MARKEND;

	}

/**

@SYMTestCaseID          SYSLIB-BAFL-CT-0487

@SYMTestCaseDesc        Tests for defect number INC045169L

@SYMTestPriority        High

@SYMTestActions         Tests for creation of files

@SYMTestExpectedResults Tests must not fail

@SYMREQ                 REQ0000

*/

void Defect_INC045169L()

	{

	TheTest.Next (_L (" @SYMTestCaseID:SYSLIB-BAFL-CT-0487 Defect_INC045169L "));

	__UHEAP_MARK;

  	// find out the number of open handles

	TInt startProcessHandleCount;

	TInt startThreadHandleCount;

	RThread ().HandleCount (startProcessHandleCount, startThreadHandleCount);

	//

	// The Test Setup

	User::LeaveIfError (TheFs.Connect ());

	::CleanupClosePushL (TheFs);

	//

	// The Test Begins...

	// Our test diectory and files...

	_LIT (KDirectory, "C:\\System\\Data\\");

	// ++++++++++++++

	// When creating test file names be careful to use different

	// combinations of charaters as you may get ambiguity!

	// i.e. '.aaa' will find files '.a' or 'a' if on disk.

	// similarly, 'abc158' will find files 'abc' or 'abc.'.

	// Also, file name ending in a period will have them

	// stripped off by the Fs, so 'abcd.' will give you 'abcd'

	// Finally, don't have like names like 'abc.rsc' and 'abc.r'

	// Failure cases

	_LIT (KFilename1, "c:"); // not supported

	_LIT (KFilename2, "x"); // not supported

	_LIT (KFilename3, "C:\\System\\Data\\a"); // not supported

	_LIT (KFilename4, "C:\\System\\Data\\ab"); // not supported

	_LIT (KFilename5, "C:\\System\\Data\\i.j"); // no 'i.01' available

	_LIT (KFilename6, "C:\\System\\Data\\abc.r12345678901234567890"); // suffix too large

	_LIT (KFilename7, "C:\\System\\Data\\"); // not supported

	// Successful cases

	_LIT (KFilename10, "C:\\System\\Data\\cde");

	_LIT (KFilename11, "C:\\System\\Data\\abc158");

	_LIT (KFilename12, "C:\\System\\Data\\C01abc001");

	_LIT (KFilename13, "C:\\System\\Data\\0123456789.012");

	_LIT (KFilename14, "C:\\System\\Data\\0123");

	_LIT (KFilename15, "C:\\System\\Data\\0123456789012");

	_LIT (KFilename16, "C:\\System\\Data\\C.01a1");

	_LIT (KFilename17, "C:\\System\\Data\\C.a0a1");

	_LIT (KFilename18, "C:\\System\\Data\\.b");

	_LIT (KFilename19, "C:\\System\\Data\\.ccc");

	_LIT (KFilename20, "C:\\System\\Data\\rfg.3a");

	_LIT (KFilename21, "C:\\System\\Data\\abc.r158");

	_LIT (KFilename22, "C:\\System\\Data\\abc.rsc");

	_LIT (KFilename23, "C:\\System\\Data\\efg.r");

	_LIT (KFilename24, "C:\\System\\Data\\klmn.");

	_LIT (KFilename25, "C:\\System\\Data\\jhgdfgd.123456789abc");

	_LIT (KFilename26, "\\abc.r158");

	_LIT (KFilename27, "abc.r158");

	_LIT (KFilename28, "c:abc.r158");

	// ++++++++++++++

	// ELangAmerican

	_LIT (KLocale, "ELOCL.10");

	_LIT (KNearestLang, "C:\\System\\Data\\abc.r10");

	// Tidy the files if there...

	// KFilename1 can't be created

	BaflUtils::DeleteFile (TheFs, KFilename2);

	BaflUtils::DeleteFile (TheFs, KFilename3);

	BaflUtils::DeleteFile (TheFs, KFilename4);

	BaflUtils::DeleteFile (TheFs, KFilename5);

	BaflUtils::DeleteFile (TheFs, KFilename6);

 	// Do not delete KFileName7, there may be other

 	// files in this directory unrelated to this test

 	// which are required by other tests.

 	// See defect DEF108808

 	// BaflUtils::DeleteFile (TheFs, KFilename7);

	BaflUtils::DeleteFile (TheFs, KFilename10);

	BaflUtils::DeleteFile (TheFs, KFilename11);

	BaflUtils::DeleteFile (TheFs, KFilename12);

	BaflUtils::DeleteFile (TheFs, KFilename13);

	BaflUtils::DeleteFile (TheFs, KFilename14);

	BaflUtils::DeleteFile (TheFs, KFilename15);

	BaflUtils::DeleteFile (TheFs, KFilename16);

	BaflUtils::DeleteFile (TheFs, KFilename17);

	BaflUtils::DeleteFile (TheFs, KFilename18);

	BaflUtils::DeleteFile (TheFs, KFilename19);

	BaflUtils::DeleteFile (TheFs, KFilename20);

	BaflUtils::DeleteFile (TheFs, KFilename21);

	BaflUtils::DeleteFile (TheFs, KFilename22);

	BaflUtils::DeleteFile (TheFs, KFilename23);

#ifdef __EPOC32__

	BaflUtils::DeleteFile (TheFs, KFilename24);

#else

	// Windows strips off trailing periods

	BaflUtils::DeleteFile (TheFs, _L("C:\\System\\Data\\klmn"));

#endif

	BaflUtils::DeleteFile (TheFs, KFilename25);

	BaflUtils::DeleteFile (TheFs, KFilename26);

	BaflUtils::DeleteFile (TheFs, KFilename27);

	BaflUtils::DeleteFile (TheFs, KFilename28);

	BaflUtils::DeleteFile (TheFs, KNearestLang);

	// Confirm the prerequisites for this test...

	if (!BaflUtils::PathExists (TheFs, KDirectory))

		{

		BaflUtils::EnsurePathExistsL(TheFs, KDirectory);

		}

	// KFilename1 can't be created

	TheTest (BaflUtils::FileExists (TheFs, KFilename2) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename3) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename4) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename5) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename6) == EFalse);

	// KFilename7 can't be created, not a file

	TheTest (BaflUtils::FileExists (TheFs, KFilename10) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename11) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename12) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename13) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename14) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename15) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename16) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename17) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename18) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename19) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename20) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename21) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename22) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename23) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename24) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename25) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename26) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename27) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KFilename28) == EFalse);

	TheTest (BaflUtils::FileExists (TheFs, KNearestLang) == EFalse);

	// Create the files...

	RFile rFile;

	// KFilename1 can't be created

	rFile.Create (TheFs, KFilename2, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename3, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename4, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename5, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename6, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename7, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename10, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename11, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename12, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename13, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename14, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename15, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename16, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename17, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename18, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename19, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename20, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename21, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename22, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename23, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename24, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename25, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename26, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename27, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFilename28, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KNearestLang, EFileRead);

	rFile.Close ();

	TBuf <256> filename (KFilename1);

	// Test the defect...

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename1, &filename);

	TheTest(filename == KFilename1);

	filename.Copy (KFilename2);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename2, &filename);

	TheTest(filename == _L("x"));

	filename.Copy (KFilename3);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename3, &filename);

	TheTest(filename == KFilename3);

	filename.Copy (KFilename4);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename4, &filename);

	TheTest(filename == KFilename4);

	filename.Copy (KFilename5);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename5, &filename);

	TheTest(filename == KFilename5);

	filename.Copy (KFilename6);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename6, &filename);

	TheTest(filename == KFilename6);

	filename.Copy (KFilename7);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename7, &filename);

	TheTest(filename == KFilename7);

	filename.Copy (KFilename10);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename10, &filename);

	TheTest(filename == KFilename10);

	filename.Copy (KFilename11);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename11, &filename);

	TheTest(filename == KFilename11);

	filename.Copy (KFilename12);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename12, &filename);

	TheTest(filename == KFilename12);

	filename.Copy (KFilename13);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename13, &filename);

	TheTest(filename == KFilename13);

	filename.Copy (KFilename14);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename14, &filename);

	TheTest(filename == KFilename14);

	filename.Copy (KFilename15);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename15, &filename);

	TheTest(filename == KFilename15);

	filename.Copy (KFilename16);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename16, &filename);

	TheTest(filename == KFilename16);

	filename.Copy (KFilename17);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename17, &filename);

	TheTest(filename == KFilename17);

	filename.Copy (KFilename18);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename18, &filename);

	TheTest(filename == KFilename18);

	filename.Copy (KFilename19);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename19, &filename);

	TheTest(filename == KFilename19);

	filename.Copy (KFilename20);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename20, &filename);

	TheTest(filename == KFilename20);

	filename.Copy (KFilename21);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename21, &filename);

	TheTest(filename == KFilename21);

	filename.Copy (KFilename22);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename22, &filename);

	TheTest(filename == KFilename22);

	filename.Copy (KFilename23);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename23, &filename);

	TheTest(filename == KFilename23);

	filename.Copy (KFilename24);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename24, &filename);

	TheTest(filename == KFilename24);

	filename.Copy (KFilename25);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename25, &filename);

	TheTest(filename == KFilename25);

	filename.Copy (KFilename26);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename26, &filename);

	TheTest(filename == KFilename26);

	filename.Copy (KFilename27);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename27, &filename);

	TheTest(filename == KFilename27);

	filename.Copy (KFilename28);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename28, &filename);

	TheTest(filename == KFilename28);

	// Store the original locale settings so they can be restored at the

	// end of the test.

	TExtendedLocale originalLocale;

	originalLocale.LoadSystemSettings();

	// Change locale

	TExtendedLocale newLocale;

	TBuf<50> libraryName;

	libraryName.Format(KLocale);

	TInt err = newLocale.LoadLocale(libraryName);

	User::LeaveIfError (err);

	newLocale.SaveSystemSettings();

	User::After (5000000);

	filename.Copy (KFilename1);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename1, &filename);

	TheTest(filename == KFilename1);

	filename.Copy (KFilename2);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename2, &filename);

	TheTest(filename == _L("x"));

	filename.Copy (KFilename3);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename3, &filename);

	TheTest(filename == KFilename3);

	filename.Copy (KFilename4);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename4, &filename);

	TheTest(filename == KFilename4);

	filename.Copy (KFilename5);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename5, &filename);

	TheTest(filename == KFilename5);

	filename.Copy (KFilename6);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename6, &filename);

	TheTest(filename == KFilename6);

	filename.Copy (KFilename7);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename7, &filename);

	TheTest(filename == KFilename7);

	filename.Copy (KFilename10);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename10, &filename);

	TheTest(filename == KFilename10);

	filename.Copy (KFilename11);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename11, &filename);

	TheTest(filename == KFilename11);

	filename.Copy (KFilename12);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename12, &filename);

	TheTest(filename == KFilename12);

	filename.Copy (KFilename13);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename13, &filename);

	TheTest(filename == KFilename13);

	filename.Copy (KFilename14);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename14, &filename);

	TheTest(filename == KFilename14);

	filename.Copy (KFilename15);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename15, &filename);

	TheTest(filename == KFilename15);

	filename.Copy (KFilename16);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename16, &filename);

	TheTest(filename == KFilename16);

	filename.Copy (KFilename17);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename17, &filename);

	TheTest(filename == KFilename17);

	filename.Copy (KFilename18);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename18, &filename);

	TheTest(filename == KFilename18);

	filename.Copy (KFilename19);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename19, &filename);

	TheTest(filename == KFilename19);

	filename.Copy (KFilename20);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename20, &filename);

	TheTest(filename == KFilename20);

	filename.Copy (KFilename21);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename21, &filename);

	TheTest(filename == KNearestLang);

	filename.Copy (KFilename22);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename22, &filename);

	TheTest(filename == KNearestLang);

	filename.Copy (KFilename23);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename23, &filename);

	TheTest(filename == KFilename23);

	filename.Copy (KFilename24);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename24, &filename);

	TheTest(filename == KFilename24);

	filename.Copy (KFilename25);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename25, &filename);

	TheTest(filename == KFilename25);

	filename.Copy (KFilename26);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename26, &filename);

	TheTest(filename == KFilename26);

	filename.Copy (KFilename27);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename27, &filename);

	TheTest(filename == KFilename27);

	filename.Copy (KFilename28);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S\n"), &KFilename28, &filename);

	TheTest(filename == KFilename28);

	// Tidy the files...

	// KFilename1 can't be created

	BaflUtils::DeleteFile (TheFs, KFilename2);

	BaflUtils::DeleteFile (TheFs, KFilename3);

	BaflUtils::DeleteFile (TheFs, KFilename4);

	BaflUtils::DeleteFile (TheFs, KFilename5);

	BaflUtils::DeleteFile (TheFs, KFilename6);

	// Do not delete KFileName7, there may be other

 	// files in this directory unrelated to this test

 	// which are required by other tests.

 	// See defect DEF108808

 	// BaflUtils::DeleteFile (TheFs, KFilename7);

	BaflUtils::DeleteFile (TheFs, KFilename10);

	BaflUtils::DeleteFile (TheFs, KFilename11);

	BaflUtils::DeleteFile (TheFs, KFilename12);

	BaflUtils::DeleteFile (TheFs, KFilename13);

	BaflUtils::DeleteFile (TheFs, KFilename14);

	BaflUtils::DeleteFile (TheFs, KFilename15);

	BaflUtils::DeleteFile (TheFs, KFilename16);

	BaflUtils::DeleteFile (TheFs, KFilename17);

	BaflUtils::DeleteFile (TheFs, KFilename18);

	BaflUtils::DeleteFile (TheFs, KFilename19);

	BaflUtils::DeleteFile (TheFs, KFilename20);

	BaflUtils::DeleteFile (TheFs, KFilename21);

	BaflUtils::DeleteFile (TheFs, KFilename22);

	BaflUtils::DeleteFile (TheFs, KFilename23);

#ifdef __EPOC32__

	BaflUtils::DeleteFile (TheFs, KFilename24);

#else

	// Windows strips off trailing periods

	BaflUtils::DeleteFile (TheFs, _L("C:\\System\\Data\\klmn"));

#endif

	BaflUtils::DeleteFile (TheFs, KFilename25);

	BaflUtils::DeleteFile (TheFs, KFilename26);

	BaflUtils::DeleteFile (TheFs, KFilename27);

	BaflUtils::DeleteFile (TheFs, KFilename28);

	BaflUtils::DeleteFile (TheFs, KNearestLang);

	// Restore the original locale settings.

  	originalLocale.SaveSystemSettings();

	CleanupStack::PopAndDestroy (&::TheFs);

	// The Test Ends...

	//

	// check that no handles have leaked

	TInt endProcessHandleCount;

	TInt endThreadHandleCount;

	RThread ().HandleCount (endProcessHandleCount, endThreadHandleCount);

	TheTest (startThreadHandleCount == endThreadHandleCount);

	__UHEAP_MARKEND;

	}

//===============================================================================

/**

Initialise the cleanup stack and active scheduler

*/

LOCAL_C void SetupL ()

    {

	TheTrapCleanup = CTrapCleanup::New ();

	User::LeaveIfNull (TheTrapCleanup);

	// Construct and install the active scheduler

	TheActiveScheduler = new (ELeave) CActiveScheduler;

	CActiveScheduler::Install (TheActiveScheduler);

	}

/**

Cleanup

*/

LOCAL_C void CleanupL ()

    {

	delete TheActiveScheduler;

	delete TheTrapCleanup;

	}

/**

Invoke the tests

*/

LOCAL_C void DoTestsL ()

    {

	Defect_INC045169L ();

	Defect_DEF068052L ();

	Defect_INC120743L ();

	}

GLDEF_C TInt E32Main ()

	{

	__UHEAP_MARK;

	TheTest.Printf (_L ("\n"));

	TheTest.Title ();

	TheTest.Start (_L("Defect Tests "));

	TRAPD (err, SetupL ());

	TheTest (err == KErrNone);

	TRAP (err, DoTestsL ());

	TheTest (err == KErrNone);

	CleanupL ();

	TheTest.End ();

	TheTest.Close ();

	__UHEAP_MARKEND;

	return (KErrNone);

	}