// 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 <f32file.h>

#include <e32test.h>

#include <bautils.h>

#include <hal.h>

#include <e32std.h>

LOCAL_D CTrapCleanup*		TheTrapCleanup=NULL;

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

LOCAL_D RFs					TheFs;

// Our test diectory and files...

_LIT (KNullFilename, "");

_LIT (KRscFilename,  "C:\\abc.rsc");

_LIT (KRscFilenameNoSuffix,  "C:\\abc.");

_LIT (KAmericanLang, "C:\\abc.r10");

_LIT (KFrenchLang,   "C:\\abc.r02");

_LIT (KJapanEnglishLang, "C:\\abc.r160");

_LIT (KEnglishLang, "C:\\abc.r01");

LOCAL_C void DeleteTestFiles()

{

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

	::CleanupClosePushL (TheFs);

	BaflUtils::DeleteFile (TheFs, KRscFilename);

	BaflUtils::DeleteFile (TheFs, KAmericanLang);

	BaflUtils::DeleteFile (TheFs, KFrenchLang);

	BaflUtils::DeleteFile (TheFs, KJapanEnglishLang);

	BaflUtils::DeleteFile (TheFs, KEnglishLang);

	CleanupStack::PopAndDestroy (&::TheFs);

}

//

//Test macroses and functions

LOCAL_C void Check(TInt aValue, TInt aLine)

	{

	if(!aValue)

		{

		::DeleteTestFiles();

		TheTest(EFalse, aLine);

		}

	}

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

LOCAL_C void CreateTestFiles()

{

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

	::CleanupClosePushL (TheFs);

	TEST (BaflUtils::FileExists (TheFs, KRscFilename) == EFalse);

	TEST (BaflUtils::FileExists (TheFs, KAmericanLang) == EFalse);

	TEST (BaflUtils::FileExists (TheFs, KFrenchLang) == EFalse);

	TEST (BaflUtils::FileExists (TheFs, KJapanEnglishLang) == EFalse);

	TEST (BaflUtils::FileExists (TheFs, KEnglishLang) == EFalse);

	// Create the files...

	RFile rFile;

	// KFilename1 can't be created

	rFile.Create (TheFs, KRscFilename, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KAmericanLang, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KFrenchLang, EFileRead);

	rFile.Close ();

	CleanupStack::PopAndDestroy (&::TheFs);

}

/**

@SYMTestCaseID SYSLIB-BAFL-CT-0070

@SYMTestCaseDesc Tests the configuration of the ideal language.

@SYMTestPriority High

@SYMTestActions  Set the ideal language and look for nearest language files.

@SYMTestExpectedResults The test must not fail.

@SYMREQ 3770: Configurable "ideal language" in BaflUtils::NearestLanguageFile.

*/

void REQ3770L()

	{

    TheTest.Next (_L (" @SYMTestCaseID SYSLIB-BAFL-CT-0070 REQ3770L "));

    __UHEAP_MARK;

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

	::CleanupClosePushL (TheFs);

	TBuf <256> filename;

	TLanguage language;

	// Test ideal language code

	// Check initial value of ideal language

	language=BaflUtils::IdealLanguage();

	TEST(language == ELangNone);

	// Set and read back the ideal language

	BaflUtils::SetIdealLanguage( ELangGerman);

	language=BaflUtils::IdealLanguage();

	TEST(language == ELangGerman);

	BaflUtils::SetIdealLanguage( ELangAmerican);

	language=BaflUtils::IdealLanguage();

	TEST(language == ELangAmerican);

	// Test NearestLanguageFile with empty name

	TFileName resPath;

	BaflUtils::NearestLanguageFile (TheFs, resPath);

	TEST(resPath.Length()==0);

	TheTest.Printf (_L ("The NearestLanguageFile for the null file - %S - is - %S -\n"), &KNullFilename, &filename);

	// Test NearestLanguageFile with no suffix

	filename.Copy (KRscFilenameNoSuffix);

	BaflUtils::NearestLanguageFile (TheFs, filename);

	TEST(filename==KRscFilenameNoSuffix);

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

	// Test NearestLanguageFile

	filename.Copy (KRscFilename);

	BaflUtils::NearestLanguageFile (TheFs, filename);

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

	TEST(filename == KAmericanLang);

	// Set ideal language to one we don't have

	BaflUtils::SetIdealLanguage( ELangGerman);

	language=BaflUtils::IdealLanguage();

	TEST(language == ELangGerman);

	// Test NearestLanguageFile

	filename.Copy (KRscFilename);

	BaflUtils::NearestLanguageFile (TheFs, filename);

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

	TEST(filename == KRscFilename);

	// Restore ideal language to default

	BaflUtils::SetIdealLanguage( ELangNone);

	language=BaflUtils::IdealLanguage();

	TEST(language == ELangNone);

	// Test NearestLanguageFile

	filename.Copy (KRscFilename);

	BaflUtils::NearestLanguageFile (TheFs, filename);

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

	TEST(filename == KRscFilename);

	// Set ideal language to French

	BaflUtils::SetIdealLanguage( ELangFrench);

	language=BaflUtils::IdealLanguage();

	TEST(language == ELangFrench);

	// Test NearestLanguageFile

	filename.Copy (KRscFilename);

	BaflUtils::NearestLanguageFile (TheFs, filename);

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

	TEST(filename == KFrenchLang);

	// Restore ideal language to default

	BaflUtils::SetIdealLanguage( ELangNone);

	language=BaflUtils::IdealLanguage();

	TEST(language == ELangNone);

	// Release ideal language - free's TLS

	BaflUtils::ReleaseIdealLanguage();

	CleanupStack::PopAndDestroy (&::TheFs);

	__UHEAP_MARKEND;

	}

/**

@SYMTestCaseID SYSLIB-BAFL-CT-0071

@SYMTestCaseDesc Tests the overload of BaflUtils::NearestLanguageFile.

@SYMTestPriority High

@SYMTestActions  Calls the overload of BaflUtils::NearestLanguageFile and checks the returned language.

@SYMTestExpectedResults The test must not fail.

@SYMREQ 3785: Overload of BaflUtils::NearestLanguageFile.

*/

void REQ3785L()

	{

    TheTest.Next (_L (" @SYMTestCaseID SYSLIB-BAFL-CT-0071 REQ3785L "));

    __UHEAP_MARK;

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

	::CleanupClosePushL (TheFs);

	TBuf <256> filename;

	TLanguage language;

	// Ensure that ideal language is default

	BaflUtils::SetIdealLanguage( ELangNone);

	language=BaflUtils::IdealLanguage();

	TEST(language == ELangNone);

	// Test NearestLanguageFile overload with language returned

	language=ELangAmerican;

	filename.Copy (KRscFilename);

	BaflUtils::NearestLanguageFile (TheFs, filename, language);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S, language = %d\n"), &KRscFilename, &filename, language);

	TEST(language == ELangNone);

	TEST(filename == KRscFilename);

	// Set ideal language to American

	BaflUtils::SetIdealLanguage( ELangAmerican);

	language=BaflUtils::IdealLanguage();

	TEST(language == ELangAmerican);

	// Test NearestLanguageFile overload with language returned

	language=ELangNone;

	filename.Copy (KRscFilename);

	BaflUtils::NearestLanguageFile (TheFs, filename, language);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S, language = %d\n"), &KRscFilename, &filename, language);

	TEST(language == ELangAmerican);

	TEST(filename == KAmericanLang);

	// Set ideal language to French

	BaflUtils::SetIdealLanguage( ELangFrench);

	language=BaflUtils::IdealLanguage();

	TEST(language == ELangFrench);

	// Test NearestLanguageFile overload with language returned

	language=ELangNone;

	filename.Copy (KRscFilename);

	BaflUtils::NearestLanguageFile (TheFs, filename, language);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S, language = %d\n"), &KRscFilename, &filename, language);

	TEST(language == ELangFrench);

	TEST(filename == KFrenchLang);

	// Set ideal language to one we don't have

	BaflUtils::SetIdealLanguage( ELangGerman);

	language=BaflUtils::IdealLanguage();

	TEST(language == ELangGerman);

	// Test NearestLanguageFile overload with language returned

	language=ELangAmerican;

	filename.Copy (KRscFilename);

	BaflUtils::NearestLanguageFile (TheFs, filename, language);

	TheTest.Printf (_L ("The NearestLanguageFile for %S is %S, language = %d\n"), &KRscFilename, &filename, language);

	TEST(language == ELangNone);

	TEST(filename == KRscFilename);

	// Restore ideal language to default

	BaflUtils::SetIdealLanguage( ELangNone);

	language=BaflUtils::IdealLanguage();

	TEST(language == ELangNone);

	// Release ideal language - free's TLS

	BaflUtils::ReleaseIdealLanguage();

	CleanupStack::PopAndDestroy (&::TheFs);

	__UHEAP_MARKEND;

	}

/**

@SYMTestCaseID SYSLIB-BAFL-CT-3158

@SYMTestCaseDesc Test the downgrade path from ELangMalay_Apac to ELangMalay

@SYMTestPriority High

@SYMTestActions Calls the BaflUtils::GetDowngradePathL function to check that ELangMalay_Apac downgrades to ELangMalay

@SYMTestExpectedResults The test must not fail.

@SYMDEF DEF094490

*/

void DEF094490L()

	{

    TheTest.Next (_L (" @SYMTestCaseID SYSLIB-BAFL-CT-3158 DEF094490L "));

	__UHEAP_MARK;

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

	::CleanupClosePushL (TheFs);

	RArray<TLanguage> aLanguageArray;

	//Test GetDowngradePathL to see if ELangMalay is included in the path

	BaflUtils::GetDowngradePathL(TheFs,ELangMalay_Apac,aLanguageArray);

	TEST(aLanguageArray.Find(ELangMalay)!= KErrNotFound);

	aLanguageArray.Close();

	CleanupStack::PopAndDestroy (&::TheFs);

	__UHEAP_MARKEND;

	}

/**

@SYMTestCaseID SYSLIB-BAFL-CT-3359

@SYMTestCaseDesc Test correct and incorrect usage of NearestLanguageFile as documented in the developer library

@SYMTestPriority High

@SYMTestActions Calls the BaflUtils::NearestLanguageFile function with different contructed

language downgrade path cases along with different input paths

@SYMTestExpectedResults The test must not fail.

@SYMDEF DEF096421

*/

void DEF096421L()

	{

    TheTest.Next (_L (" @SYMTestCaseID SYSLIB-BAFL-CT-3359 DEF096421 "));

	__UHEAP_MARK;

	TBuf <256> path;

	TLanguage language;

	RFile rFile;

	//number of characters in the suffix is less than KInvNameAndMinSuffixLength(2)

	_LIT (KInvalidSuffix1, "C:\\abc.r");

	//number of digits in the suffix is more than KMaxSuffixLength(5)

	_LIT (KInvalidSuffix2, "C:\\abc.r123456");

	//no proceeding alphabetical characters in the suffix

	_LIT (KInvalidSuffix3, "C:\\abc.10");

	//no drive letters supplied in the path

	_LIT (KRscFilenameNoDrive, "\\abc.rsc");

	_LIT (KRscFileInZDrive, "\\system\\data\\T_CALYPSO_TEST_RESOURCE_FILE_1.RSC");

	_LIT (KRScFullFile, "Z:\\system\\data\\T_CALYPSO_TEST_RESOURCE_FILE_1.RSC");

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

	::CleanupClosePushL (TheFs);

	rFile.Create (TheFs, KJapanEnglishLang, EFileRead);

	rFile.Close ();

	rFile.Create (TheFs, KEnglishLang, EFileRead);

	rFile.Close ();

	BaflUtils::SetIdealLanguage( ELangAmerican);

	language=BaflUtils::IdealLanguage();

	TEST(language == ELangAmerican);

	//Test match for the ideal language

	path.Copy(KRscFilename);

	BaflUtils::NearestLanguageFile (TheFs, path, language);

	TEST(path == KAmericanLang);

	TEST(language == ELangAmerican);

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

	//Test match when supplied with the language file

	path.Copy(KAmericanLang);

	BaflUtils::NearestLanguageFile (TheFs, path, language);

	TEST(path == KAmericanLang);

	TEST(language == ELangAmerican);

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

	//Test when the no. of characters in the suffix is less than KInvNameAndMinSuffixLength(2)

	path.Copy(KInvalidSuffix1);

	BaflUtils::NearestLanguageFile (TheFs, path, language);

	TEST(path == KInvalidSuffix1);

	TEST(language == ELangNone);

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

	//Test when filename ends with a period

	path.Copy(KRscFilenameNoSuffix);

	BaflUtils::NearestLanguageFile (TheFs, path, language);

	TEST(path == KRscFilenameNoSuffix);

	TEST(language == ELangNone);

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

	//Test when the no. of digits in the suffix is more than KMaxSuffixLength(5)

	path.Copy(KInvalidSuffix2);

	BaflUtils::NearestLanguageFile (TheFs, path, language);

	TEST(path == KInvalidSuffix2);

	TEST(language == ELangNone);

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

	//Test when theres no proceeding alphabetical characters in the suffix

	path.Copy(KInvalidSuffix3);

	BaflUtils::NearestLanguageFile (TheFs, path, language);

	TEST(path == KInvalidSuffix3);

	TEST(language == ELangNone);

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

	//Test when no drive letter is supplied in the path and theres no corresponding file in Z:

	path.Copy(KRscFilenameNoDrive);

	BaflUtils::NearestLanguageFile (TheFs, path, language);

	TEST(path == KRscFilenameNoDrive);

	TEST(language == ELangNone);

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

	BaflUtils::SetIdealLanguage(ELangEnglish_Japan);

	TheTest.Printf(_L("The ideal langauge set to ELangEnglish_Japan\n"));

	//Test when the matching language file is 3 digits long

	path.Copy(KRscFilename);

	BaflUtils::NearestLanguageFile (TheFs, path, language);

	TEST(path == KJapanEnglishLang);

	TEST(language == ELangEnglish_Japan);

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

	BaflUtils::DeleteFile (TheFs, KJapanEnglishLang);

	TheTest.Printf(_L("Deleting C:\\abc.r160\n"));

	//Test match for the current locale (2nd best match)

	path.Copy(KRscFilename);

	BaflUtils::NearestLanguageFile (TheFs, path, language);

	TEST(path == KEnglishLang);

	TEST(language == ELangEnglish);

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

	BaflUtils::DeleteFile (TheFs, KEnglishLang);

	TheTest.Printf(_L("Deleting C:\\abc.r01\n"));

	//Test when theres no matching language file

	path.Copy(KRscFilename);

	BaflUtils::NearestLanguageFile (TheFs, path, language);

	TEST(path == KRscFilename);

	TEST(language == ELangNone);

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

	//Test when no drive letter is supplied in the

	//path but theres a corresponding file in Z:

	path.Copy(KRscFileInZDrive);

	BaflUtils::NearestLanguageFile (TheFs, path, language);

	TEST(path == KRScFullFile);

	TEST(language == ELangNone);

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

	CleanupStack::PopAndDestroy (&::TheFs);

	BaflUtils::ReleaseIdealLanguage();

	__UHEAP_MARKEND;

	}

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

/**

Initialise the cleanup stack

*/

LOCAL_C void SetupL ()

    {

	TheTrapCleanup = CTrapCleanup::New ();

	User::LeaveIfNull (TheTrapCleanup);

	}

/**

Cleanup

*/

LOCAL_C void CleanupL ()

    {

	delete TheTrapCleanup;

	}

/**

Invoke the tests

*/

LOCAL_C void DoTestsL ()

    {

    CreateTestFiles();

	REQ3770L ();

	REQ3785L ();

	DEF094490L();

	DEF096421L();

	DeleteTestFiles();

	}

GLDEF_C TInt E32Main ()

	{

	__UHEAP_MARK;

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

	TheTest.Title ();

	TheTest.Start (_L("Ideal language Tests "));

	TRAPD (err, SetupL ());

	TheTest (err == KErrNone);

	TRAP (err, DoTestsL ());

	TheTest (err == KErrNone);

	CleanupL ();

	TheTest.End ();

	TheTest.Close ();

	__UHEAP_MARKEND;

	return (KErrNone);

	}