// Copyright (c) 1997-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\server\t_dlocl.cpp

// Tests UserSvr::ChangeLocale() function

// 

//

#define __E32TEST_EXTENSION__

#include <e32std.h>

#include <e32std_private.h>

#include <e32test.h>

#include <f32file.h>

#include <e32svr.h>

#include <collate.h>

#include "t_server.h"

LOCAL_D TFindLibrary fLib;

typedef TInt (*TLibEntry)(TInt);

typedef TInt (*TLibEntry2)();

const TBool KEY_DOWN=EFalse;

const TBool EXPECT_KEY_PRESS=ETrue;

RTest test(_L("T_DLOCL"));

_LIT(ELOCL_DEFAULT, "");

_LIT(ELOCLGE, "T_LOCLGE");

_LIT(ELOCLUS, "T_LOCLUS");

_LIT(ELOCLUS1, "T_LOCLUS1");

_LIT(ELOCLUS2, "T_LOCLUS2");

_LIT(EKDATA, "EKDATA");

_LIT(DUMMYDLL, "EDISP");

_LIT(KColonColon, "::");

_LIT(KDLLExtension, ".DLL");

GLDEF_D CKeyTranslator *KeyTranslator=CKeyTranslator::New();

LOCAL_D CCaptureKeys *CaptureKeys;

void testConv(const TDesC& aDes,TBool aKeyup,TBool aRet,TUint aScanCode,TUint aKeyCode,TInt aModifiers)

    {

    TKeyData keyData;

    TBool ret=KeyTranslator->TranslateKey(aScanCode, aKeyup,*CaptureKeys,keyData);

    test.Next(aDes);

    test(ret==aRet);

    test((keyData.iKeyCode==aKeyCode));

    test((keyData.iModifiers==aModifiers));

    }

void testChangeKeyData()

    {

    TName pn(RProcess().Name());

    pn+=KColonColon;

    TFullName n;

    CaptureKeys=new CCaptureKeys();

    CaptureKeys->Construct();

    test.Printf(_L("Test default key data\n"));

    testConv(_L("\nFirst Special key down"),KEY_DOWN,EXPECT_KEY_PRESS,ESpecialKeyBase,ESpecialKeyBase,0);

    RLibrary testLib;

    TInt res=testLib.Load(EKDATA);

    test(res==KErrNone);

    THandleInfo handleInfo;

    testLib.HandleInfo(&handleInfo);

    test(handleInfo.iNumOpenInThread==2);

    testLib.Close();

    test.Printf(_L("Change to unknown dll \n"));                // Test with non keydata type dll

    res=KeyTranslator->ChangeKeyData(DUMMYDLL);

    test(res==KErrArgument);

    res=testLib.Load(EKDATA);

    test(res==KErrNone);

    testLib.HandleInfo(&handleInfo);

    test(handleInfo.iNumOpenInThread==2);

    testLib.Close();

    res=testLib.Load(DUMMYDLL);

    test(res==KErrNone);

    testLib.HandleInfo(&handleInfo);

    test(handleInfo.iNumOpenInThread==1);

    testLib.Close();

    fLib.Find(_L("*"));

    while (fLib.Next(n)==KErrNone)

        {

        TName findname=pn;

        findname+=DUMMYDLL;

        test.Printf(_L("  %S\n"),&n);        

        test(n.FindF(findname) == KErrNotFound);

        }

    //

    test.Printf(_L("Change to EKDATA.dll\n"));

    res=KeyTranslator->ChangeKeyData(EKDATA);

    test(res==KErrNone);

    res=testLib.Load(EKDATA);

    test(res==KErrNone);

    testLib.HandleInfo(&handleInfo);

    test(handleInfo.iNumOpenInThread==2);

    testLib.Close();

    res=testLib.Load(DUMMYDLL);

    test(res==KErrNone);

    testLib.HandleInfo(&handleInfo);

    test(handleInfo.iNumOpenInThread==1);

    testLib.Close();

    fLib.Find(_L("*"));

    while (fLib.Next(n)==KErrNone)

        {

        TName findname=pn;

        findname+=EKDATA;

        test.Printf(_L("  %S\n"),&n);        

        if(n.FindF(findname) != KErrNotFound)

            break;

        }

    //The test below fails if we use Secure APIs

    //test(n.FindF(EKDATA) == KErrNotSupported);

    testConv(_L("\nFirst Special key down"),KEY_DOWN,EXPECT_KEY_PRESS,ESpecialKeyBase,ESpecialKeyBase,0);

    test.Printf(_L("Change back to Default KeyData\n"));

    res=KeyTranslator->ChangeKeyData(_L(""));

    test(res==KErrNone);

    res=testLib.Load(EKDATA);

    test(res==KErrNone);

    testLib.HandleInfo(&handleInfo);

    test(handleInfo.iNumOpenInThread==2);

    testLib.Close();

    res=testLib.Load(DUMMYDLL);

    test(res==KErrNone);

    testLib.HandleInfo(&handleInfo);

    test(handleInfo.iNumOpenInThread==1);

    testLib.Close();

    fLib.Find(_L("*"));

    while (fLib.Next(n)==KErrNone)

        {

        TName findname=pn;

        findname+=DUMMYDLL;

        test.Printf(_L("  %S\n"),&n);        

        test(n.FindF(findname) == KErrNotFound);

        }

    testConv(_L("\nFirst Special key down"),KEY_DOWN,EXPECT_KEY_PRESS,ESpecialKeyBase,ESpecialKeyBase,0);

    delete CaptureKeys;

    }

void testUS(const TLocale& aLocale)

    {

//#ifdef __WINS__

    test(aLocale.CountryCode()==1);

    test(aLocale.DateFormat()==EDateAmerican);

    test(aLocale.TimeFormat()==ETime12);

    test(aLocale.CurrencySymbolPosition()==ELocaleBefore);

    test(aLocale.CurrencySpaceBetween()==FALSE);

    test(aLocale.CurrencyDecimalPlaces()==2);

    test(aLocale.CurrencyNegativeInBrackets()==EFalse);

    test(aLocale.CurrencyTriadsAllowed()==TRUE);

    test(aLocale.ThousandsSeparator()==',');

    test(aLocale.DecimalSeparator()=='.');

    test(aLocale.DateSeparator(0)==0);

    test(aLocale.DateSeparator(1)=='/');

    test(aLocale.DateSeparator(2)=='/');

    test(aLocale.DateSeparator(3)==0);

    test(aLocale.TimeSeparator(0)==0);

    test(aLocale.TimeSeparator(1)==':');

    test(aLocale.TimeSeparator(2)==':');

    test(aLocale.TimeSeparator(3)==0);

    test(aLocale.AmPmSymbolPosition()==TRUE);

    test(aLocale.AmPmSpaceBetween()==TRUE);

    test(aLocale.HomeDaylightSavingZone()==EDstNorthern);

    test(aLocale.WorkDays()==0x1f);

    test(aLocale.StartOfWeek()==ESunday);

    test(aLocale.ClockFormat()==EClockAnalog);

    test(aLocale.UnitsGeneral()==EUnitsImperial);

    test(aLocale.UnitsDistanceShort()==EUnitsImperial);

    test(aLocale.UnitsDistanceLong()==EUnitsImperial);

//#endif

    }

void testUK(const TLocale& aLocale)

    {

//#ifdef __WINS__

    test(aLocale.CountryCode()==44);

    test(aLocale.DateFormat()==EDateEuropean);

    test(aLocale.TimeFormat()==ETime12);

    test(aLocale.CurrencySymbolPosition()==ELocaleBefore);

    test(aLocale.CurrencySpaceBetween()==FALSE);

    test(aLocale.CurrencyDecimalPlaces()==2);

    test(aLocale.CurrencyNegativeInBrackets()==EFalse);

    test(aLocale.CurrencyTriadsAllowed()==TRUE);

    test(aLocale.ThousandsSeparator()==',');

    test(aLocale.DecimalSeparator()=='.');

    test(aLocale.DateSeparator(0)==0);

    test(aLocale.DateSeparator(1)=='/');

    test(aLocale.DateSeparator(2)=='/');

    test(aLocale.DateSeparator(3)==0);

    test(aLocale.TimeSeparator(0)==0);

    test(aLocale.TimeSeparator(1)==':');

    test(aLocale.TimeSeparator(2)==':');

    test(aLocale.TimeSeparator(3)==0);

    test(aLocale.AmPmSymbolPosition()==TRUE);

    test(aLocale.AmPmSpaceBetween()==TRUE);

    test(aLocale.HomeDaylightSavingZone()==EDstEuropean);

    test(aLocale.WorkDays()==0x1f);

    test(aLocale.StartOfWeek()==EMonday);

    test(aLocale.ClockFormat()==EClockAnalog);

    test(aLocale.UnitsGeneral()==EUnitsImperial);

    test(aLocale.UnitsDistanceShort()==EUnitsImperial);

    test(aLocale.UnitsDistanceLong()==EUnitsImperial);

//#endif

    }

void testGE(const TLocale& aLocale)

    {

//#ifdef __WINS__

    test(aLocale.CountryCode()==49);

    test(aLocale.DateFormat()==EDateEuropean);

    test(aLocale.TimeFormat()==ETime24);

    test(aLocale.CurrencySymbolPosition()==ELocaleAfter);

    test(aLocale.CurrencySpaceBetween()==TRUE);

    test(aLocale.CurrencyDecimalPlaces()==2);

    test(aLocale.CurrencyNegativeInBrackets()==TRUE);

    test(aLocale.CurrencyTriadsAllowed()==TRUE);

    test(aLocale.ThousandsSeparator()=='.');

    test(aLocale.DecimalSeparator()==',');

    test(aLocale.DateSeparator(0)==0);

    test(aLocale.DateSeparator(1)=='.');

    test(aLocale.DateSeparator(2)=='.');

    test(aLocale.DateSeparator(3)==0);

    test(aLocale.TimeSeparator(0)==0);

    test(aLocale.TimeSeparator(1)==':');

    test(aLocale.TimeSeparator(2)==':');

    test(aLocale.TimeSeparator(3)==0);

    test(aLocale.AmPmSymbolPosition()==TRUE);

    test(aLocale.AmPmSpaceBetween()==TRUE);

    test(aLocale.HomeDaylightSavingZone()==EDstEuropean);

    test(aLocale.WorkDays()==0x1f);

    test(aLocale.StartOfWeek()==EMonday);

    test(aLocale.ClockFormat()==EClockDigital);

    test(aLocale.UnitsGeneral()==EUnitsMetric);

    test(aLocale.UnitsDistanceShort()==EUnitsMetric);

    test(aLocale.UnitsDistanceLong()==EUnitsMetric);

//#endif

    }

/**

    Subscribe to a system event.

    @param  aNotifier   notifier

    @param  aStatus     request status that is used with the notifier

    @param  aEventMask  Specifies the event. See TChanges

*/

static void SubscribeToSystemChangeNotification(RChangeNotifier& aNotifier, TRequestStatus& aStatus, TUint32 aEventMask)

{

    const TInt KMaxAttempts = 100;

    TInt i;

    for(i=0; i<KMaxAttempts; ++i)

    {

        test.Printf(_L("SubscribeToSystemChangeNotification(0x%x), attempt:%d\n"), aEventMask, i);   

        TInt nRes = aNotifier.Logon(aStatus);

        test(nRes==KErrNone);

        if(aStatus.Int() == KRequestPending)

            break;

        //-- some other system-wide event can just happen; re-subscribe

        test( !(aStatus.Int() & aEventMask));

    }

    test(i<KMaxAttempts);

}

/**

    Wait for the event(s) specified in aEventMask to happen

    @param  aNotifier   notifier

    @param  aStatus     request status that is used with the notifier

    @param  aEventMask  Specifies the event. See TChanges

*/

static void WaitForSystemChange(RChangeNotifier& aNotifier, TRequestStatus& aStatus, TUint32 aEventMask)

{

    //-- it would be nice to have here a timeout processing in order not to wait forever.. but later.

    for(;;)

    {

        User::WaitForRequest(aStatus);

        if(aStatus.Int() & aEventMask)

            return; 

        //-- some other system-wide unexpected event happened, we need to resubscribe

        test.Printf(_L("WaitForSystemChange(0x%x), happened:0x%x, resubscribing...\n"), aEventMask, aStatus.Int());   

        SubscribeToSystemChangeNotification(aNotifier, aStatus, aEventMask);

    }

}

void testChangeLocale()

    {

    TLocale locale;

    RChangeNotifier notifier;

    TInt res=notifier.Create();

    test(res==KErrNone);

    TRequestStatus stat;

    res=notifier.Logon(stat);

    test(res==KErrNone);

	// initial value of stat already tested by t_chnot

    SubscribeToSystemChangeNotification(notifier, stat, EChangesLocale);

        test.Printf(_L("Change to US Locale\n"));   

        res=UserSvr::ChangeLocale(ELOCLUS);

        test.Printf(_L("res=%d\n"),res);

        test(res==KErrNone);

    WaitForSystemChange(notifier, stat, EChangesLocale);

    test(stat.Int() & EChangesLocale);

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

    SubscribeToSystemChangeNotification(notifier, stat, EChangesLocale);

        locale.Refresh();

        // let's not test localisation data details now that the internationalisation

        // team rather than us release the localisation dlls (changed 9/6/98)

        testUS(locale);

        test.Printf(_L("Change to GE Locale\n"));

        res=UserSvr::ChangeLocale(ELOCLGE);

        test.Printf(_L("res=%d\n"),res);

        test(res==KErrNone);

    WaitForSystemChange(notifier, stat, EChangesLocale);

    test(stat.Int() & EChangesLocale);

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

    SubscribeToSystemChangeNotification(notifier, stat, EChangesLocale);

        locale.Refresh();

        // let's not test localisation data details now that the internationalisation

        // team rather than us release the localisation dlls (changed 9/6/98)

        testGE(locale);

        test.Printf(_L("Load non ELOCL type DLL\n"));    

        res=UserSvr::ChangeLocale(DUMMYDLL);

        test.Printf(_L("res=%d\n"),res);

        test(res == KErrNotSupported);

    //-- ensure that there wasn't locale change

    const TInt KMaxAttempts = 100;

	TInt i;

    for(i=0; i<KMaxAttempts; ++i)

    {

        if(stat ==KRequestPending)

            break;

        //-- check that if something system-wide happened, it wasn't a locale change

        test(!(stat.Int() & EChangesLocale));

        SubscribeToSystemChangeNotification(notifier, stat, EChangesLocale);

    }

    test(i<KMaxAttempts);

        locale.Refresh();

        // let's not test localisation data details now that the internationalisation

        // team rather than us release the localisation dlls (changed 9/6/98)

        testGE(locale);

        //This test using US1 locale is for identifying different collation table

        //used for matching and comparing. To specify a table to be used in the

        //matching we just need to add the TCollationTable::EMatchingTable flag

        //inside the TCollationMethods::iFlags

        test.Printf(_L("Change to US1 Locale\n"));  

        res=UserSvr::ChangeLocale(ELOCLUS1);

        test.Printf(_L("res=%d\n"),res);

        test(res==KErrNone);

    WaitForSystemChange(notifier, stat, EChangesLocale);

    test(stat.Int() & EChangesLocale);

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

    SubscribeToSystemChangeNotification(notifier, stat, EChangesLocale);

        locale.Refresh();

    //Testing the different collation table used for Matching and Comparing

    //after loading this new locale using T_LOCLUS1.DLL.

    //test.Printf(_L("Test for differnt collation table for Matching and Comparing\n"));

    //TCollationMethod m=*Mem::GetDefaultMatchingTable();

    //test(m.iFlags & TCollationMethod::EMatchingTable);

    //The collation table t_locl.cpp can be found in \locl\t_locl.cpp

    //Expected collation override for MatchC A==B and a==b

    //Expected collation override for CompareC A>B and a>b

    //Collation tables cannot be changed at runtime

/*  TBuf16<1> a_cap(_L("A"));

    TBuf16<1> a_small(_L("a"));

    //Test using the locale independent matching and comparing

    test(a_cap.Match(_L("B"))!=0);

    test(a_cap.Compare(_L("B"))<0);

    test(a_small.Match(_L("b"))!=0);

    test(a_small.Compare(_L("b"))<0);

    //Test that the default collation table(1st table) is selected here

    test(a_cap.CompareC(_L("B"))!=0);

    test(a_small.CompareC(_L("b"))!=0);

    test(a_cap.CompareC(_L("B"))>0);

    test(a_small.CompareC(_L("b"))>0);

    //Test that the Matching collation table(3rd table) is selected here

    test(a_cap.MatchC(_L("B"))==0);

    test(a_small.MatchC(_L("b"))==0);

*/

        test.Printf(_L("Back to default UK Locale\n"));

        res=UserSvr::ChangeLocale(ELOCL_DEFAULT);

        test.Printf(_L("res=%d\n"),res);

        test(res==KErrNone);

    WaitForSystemChange(notifier, stat, EChangesLocale);

    test(stat.Int() & EChangesLocale);

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

    SubscribeToSystemChangeNotification(notifier, stat, EChangesLocale);

        locale.Refresh();

        testUK(locale); 

        //Test for locale which does not have a matching collation table

        TCollationMethod m1=*Mem::GetDefaultMatchingTable();

        test((m1.iFlags & TCollationMethod::EMatchingTable)==0);

        //************************************************

        test.Printf(_L("Change to US Locale with file open on drive\n"));   

        _LIT(KTestFile, "TEST.TXT");

        RFile file;

        res = file.Replace(TheFs, KTestFile, 0);

        test(res == KErrNone);

        res=UserSvr::ChangeLocale(ELOCLUS);

        test.Printf(_L("res=%d\n"),res);

        test(res==KErrNone);

    WaitForSystemChange(notifier, stat, EChangesLocale);

    test(stat.Int() & EChangesLocale);

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

    SubscribeToSystemChangeNotification(notifier, stat, EChangesLocale);

        _LIT8(KTestData, "Arsenal");

        res = file.Write(KTestData);

        test(res==KErrNone);

        file.Close();

        res = file.Open(TheFs, KTestFile, 0);

        test(res == KErrNone);

        file.Close();

        res = TheFs.Delete(KTestFile);

        test(res==KErrNone);

    //************************************************

    //-- close the notifier

    notifier.Close();

    User::WaitForRequest(stat);

    //-- n.b. it's actually a bad idea to expect _exact_ event completion from the RChangeNotifier, because

    //-- this is a system-wide events observer and any of the TChanges events can happen, not only EChangesLocale.

    //-- so this test is a bit flawed.

    //test(stat==KErrGeneral);

    }

const TText * const DateSuffixTable[KMaxSuffixes] =

    {

    _S("st"),_S("nd"),_S("rd"),_S("th"),_S("th"),

    _S("th"),_S("th"),_S("th"),_S("th"),_S("th"),

    _S("th"),_S("th"),_S("th"),_S("th"),_S("th"),

    _S("th"),_S("th"),_S("th"),_S("th"),_S("th"),

    _S("st"),_S("nd"),_S("rd"),_S("th"),_S("th"),

    _S("th"),_S("th"),_S("th"),_S("th"),_S("th"),

    _S("st")

    };

const TText * const DayTable[KMaxDays] =

    {

    _S("Monday"),

    _S("Tuesday"),

    _S("Wednesday"),

    _S("Thursday"),

    _S("Friday"),

    _S("Saturday"),

    _S("Sunday")

    };

const TText * const DayAbbTable[KMaxDays] =

    {

    _S("Mon"),

    _S("Tue"),

    _S("Wed"),

    _S("Thu"),

    _S("Fri"),

    _S("Sat"),

    _S("Sun")

    };

const TText * const MonthTable[KMaxMonths] =

    {

    _S("January"),

    _S("February"),

    _S("March"),

    _S("April"),

    _S("May"),

    _S("June"),

    _S("July"),

    _S("August"),

    _S("September"),

    _S("October"),

    _S("November"),

    _S("December")

    };

const TText * const MonthAbbTable[KMaxMonths] =

    {

    _S("Jan"),

    _S("Feb"),

    _S("Mar"),

    _S("Apr"),

    _S("May"),

    _S("Jun"),

    _S("Jul"),

    _S("Aug"),

    _S("Sep"),

    _S("Oct"),

    _S("Nov"),

    _S("Dec")

    };

const TText * const AmPmTable[KMaxAmPms] = {_S("am"),_S("pm")};

void testExtendedUS(TUint aAspect, TExtendedLocale& aLocale)

    {

    TLocale* loc = aLocale.GetLocale();

    testUS(*loc);

    if(aAspect & ELocaleLanguageSettings)

        {

        TLanguage tl = User::Language();

        test(tl == ELangAmerican);

        TDateSuffix datesuffix;

        TInt i;

        for(i=0;i<KMaxSuffixes;++i)

            {

            datesuffix.Set(i);

            test(datesuffix.Compare(TPtrC(DateSuffixTable[i])) == 0);

            }

        TDayName dayname;

        for(i=0;i<KMaxDays;++i)

            {

            dayname.Set((TDay)i);

            test(dayname.Compare(TPtrC(DayTable[i])) == 0);

            }

        TDayNameAbb daynameabb;

        for(i=0;i<KMaxDays;++i)

            {

            daynameabb.Set((TDay)i);

            test(daynameabb.Compare(TPtrC(DayAbbTable[i])) == 0);

            }

        TMonthName monthname;

        for(i=0;i<KMaxMonths;++i)

            {

            monthname.Set((TMonth)i);

            test(monthname.Compare(TPtrC(MonthTable[i])) == 0);

            }

        TMonthNameAbb monthnameabb;

        for(i=0;i<KMaxMonths;++i)

            {

            monthnameabb.Set((TMonth)i);

            test(monthnameabb.Compare(TPtrC(MonthAbbTable[i])) == 0);

            }

        TAmPmName ampmname;

        for(i=0;i<KMaxAmPms;++i)

            {

            ampmname.Set((TAmPm)i);

            test(ampmname.Compare(TPtrC(AmPmTable[i])) == 0);

            }

        }

    if(aAspect & ELocaleLocaleSettings)

        {

        TCurrencySymbol symbol;

        symbol.Set();

        test(symbol.Compare(TPtrC(_S("$"))) == 0);

        }

    if(aAspect & ELocaleTimeDateSettings)

        {

        TShortDateFormatSpec shortdate;

        shortdate.Set();

        test(shortdate.Compare(TPtrC(_S("%F%*M/%*D/%Y"))) == 0);

        TLongDateFormatSpec longdate;

        longdate.Set();

        test(longdate.Compare(TPtrC(_S("%F%*D%X %N %Y"))) == 0);

        TTimeFormatSpec spec;

        spec.Set();

        test(spec.Compare(TPtrC(_S("%F%*I:%T:%S %*A"))) == 0);

        }

    }

void testExtendedLocale()

    {

    TExtendedLocale locale;

    locale.LoadLocale(ELOCLUS);

    TInt r = locale.SaveSystemSettings();

    test(r == KErrNone);

    testExtendedUS(ELocaleLanguageSettings | ELocaleCollateSetting | ELocaleLocaleSettings | ELocaleTimeDateSettings, locale);

    r = locale.SetCurrencySymbol(TPtrC(_S("Leu")));

    test(r == KErrNone);

    TCurrencySymbol symbol;

    symbol.Set();

    test(symbol.Compare(TPtrC(_S("Leu"))) == 0);

    User::SetCurrencySymbol(TPtrC(_S("Le")));

    symbol.Set();

    test(symbol.Compare(TPtrC(_S("Le"))) == 0);

    TFileName dllName;

    TFileName eloclus;

    eloclus.Copy(ELOCLUS);

    eloclus.Append(TPtrC(KDLLExtension));

    r = locale.GetLocaleDllName(ELocaleLanguageSettings, dllName);

    test(r == KErrNone);

    test.Printf(_L("dllName looking for %s (%s)\n"), dllName.Ptr(), eloclus.Ptr());

    test(dllName.Find(eloclus) != KErrNotFound);

    dllName.FillZ();

    r = locale.GetLocaleDllName(ELocaleCollateSetting, dllName);

    test(r == KErrNone);

    test(dllName.Find(eloclus) != KErrNotFound);

    dllName.FillZ();

    r = locale.GetLocaleDllName(ELocaleLocaleSettings, dllName);

    test(r == KErrNone);

    test(dllName.Find(eloclus) != KErrNotFound);

    dllName.FillZ();

    r = locale.GetLocaleDllName(ELocaleTimeDateSettings, dllName);

    test(r == KErrNone);

    test(dllName.Find(eloclus) != KErrNotFound);

    dllName.FillZ();

    r = locale.LoadLocaleAspect(ELocaleLocaleSettings | ELocaleTimeDateSettings, ELOCLGE);

    test(r == KErrNone);

    r = locale.SaveSystemSettings();

    test(r == KErrNone);

    testExtendedUS(ELocaleLanguageSettings | ELocaleCollateSetting, locale);

    symbol.Set();

    test(symbol.Compare(TPtrC(_S("DM"))) == 0);

    TShortDateFormatSpec shortdate;

    shortdate.Set();

    test(shortdate.Compare(TPtrC(_S("%F%*D.%*M.%Y"))) == 0);

    TLongDateFormatSpec longdate;

    longdate.Set();

    test(longdate.Compare(TPtrC(_S("%F%*D%X %N %Y"))) == 0);

    TTimeFormatSpec spec;

    spec.Set();

    test(spec.Compare(TPtrC(_S("%F%H:%T:%S"))) == 0);

    TFileName eloclge;

    eloclge.Copy(ELOCLGE);

    eloclge.Append(KDLLExtension);

    r = locale.GetLocaleDllName(ELocaleLanguageSettings, dllName);

    test(r == KErrNone);

    test(dllName.Find(eloclus) != KErrNotFound);

    dllName.FillZ();

    r = locale.GetLocaleDllName(ELocaleCollateSetting, dllName);

    test(r == KErrNone);

    test(dllName.Find(eloclus) != KErrNotFound);

    dllName.FillZ();

    r = locale.GetLocaleDllName(ELocaleLocaleSettings, dllName);

    test(r == KErrNone);

    test(dllName.Find(eloclge) != KErrNotFound);

    dllName.FillZ();

    r = locale.GetLocaleDllName(ELocaleTimeDateSettings, dllName);

    test(r == KErrNone);

    test(dllName.Find(eloclge) != KErrNotFound);

    dllName.FillZ();

    }

void testDigitsInMonthsNames()

    {

    test.Next(_L("Testing date parsing when month names include digits"));

    TTime time;

    _LIT(KMonthJan, "30 Th1 2006 14:31:50");

    test_Equal(KErrArgument, time.Parse(KMonthJan));

    test_KErrNone(UserSvr::ChangeLocale(ELOCLUS2));

    test_Equal(EParseDatePresent | EParseTimePresent, time.Parse(KMonthJan));

    test_KErrNone(UserSvr::ChangeLocale(ELOCL_DEFAULT));

    }

GLDEF_C void CallTestsL(void)

    {

    test.Title();

    test.Start(_L("Starting T_DLOCL tests"));

    testChangeLocale();

    testChangeKeyData();

    testExtendedLocale();

    testDigitsInMonthsNames();

    test.Next(_L("Close connection to the file server\n"));

    test.End();

    }