// 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);
	}