// Copyright (c) 2001-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 "Symbian Foundation License v1.0"
// which accompanies this distribution, and is available
// at the URL "http://www.symbianfoundation.org/legal/sfl-v10.html".
//
// Initial Contributors:
// Nokia Corporation - initial contribution.
//
// Contributors:
//
// Description:
//



//  INCLUDES
#include "ctlbsclientpostp169.h"
#include <badesca.h>
#include <EPos_CPosModules.h>
#include <EPos_CPosModuleUpdate.h>
#include <EPos_CPosModuleIdList.h>
#include <LbsCommon.h>
#include <LbsPositionInfo.h>

// CONSTANTS

// ================= MEMBER FUNCTIONS =======================

// ---------------------------------------------------------
// Constructor.
// ---------------------------------------------------------
CT_LbsClientPosTp169::CT_LbsClientPosTp169(CT_LbsServer& aParent): CT_LbsPortedStepBase(aParent)
	{  
	_LIT(KTestName, "TP169 - Modules Db Tests");
	SetTestStepName(KTestName); 
	}

// ---------------------------------------------------------
// Destructor.
// ---------------------------------------------------------
CT_LbsClientPosTp169::~CT_LbsClientPosTp169()
	{
	}

// ---------------------------------------------------------
// CT_LbsClientPosTp169::StartL
//
// (other items were commented in a header).
// ---------------------------------------------------------
//
void CT_LbsClientPosTp169::StartL()
    {
    _LIT(KErrorMsg1, "Wrong priority order in module list");
   
        
    CPosModules* db = CPosModules::OpenL();
    CleanupStack::PushL(db);


    CPosModuleIdList* prioList = db->ModuleIdListLC();

//////////////////// TC194 //////////////////// List Modules
    
    _LIT(KErrorMsg4, "Mismatch between list by settings & aquisition API");
    _LIT(KErrorMsg2, "Installed module in list is returned as uninstalled by IsModuleInstalled");
    TUid moduleUid;
    TUid moduleid1;
    TUint lastPrio = 0;
    TUint thisPrio = 0;
	TInt count = 0;
	TPositionModuleInfo moduleInfo;
    for (count = 0 ; count < prioList->Count() ; count++)
        {
        moduleUid = (*prioList)[count];
     ////////////////////////////////////
        
        
        TBool IsInstalled=db->IsModuleInstalled(moduleUid);
        AssertTrueL(IsInstalled,KErrorMsg2);
                        
        db->GetModuleInfoL((*prioList)[count], moduleInfo);
        moduleid1=moduleInfo.ModuleId();
        AssertTrueL(moduleid1==moduleUid,KErrorMsg4);
      ////////////////////////////////////  
        
        thisPrio = db->PriorityL(moduleUid);

        if (count > 0)
            {
            AssertTrueL(thisPrio > lastPrio,
                        KErrorMsg1);
            }

        lastPrio = thisPrio;
        }

    CleanupStack::PopAndDestroy(prioList); // prioList

//////////////////// TC195 //////////////////// Get Module Properties
    

    CPosModuleUpdate* moduleUpdate = CPosModuleUpdate::NewLC(); // destroy!
    moduleUpdate->SetUpdateAvailability(ETrue);
    moduleUpdate->SetUpdateCost(TPositionQuality::ECostCharge); // EEPosHigh
    //////////////////////////////////////////////////
    moduleUpdate->SetUpdateVisibility(ETrue);
    db->UpdateModuleL(iUidTestPsy2, *moduleUpdate);

        
    db->SetModulePriorityL(iUidTestPsy2, 3);
    
    db->GetModuleInfoL(iUidTestPsy2, 
                       moduleInfo);

    

    TPositionQuality quality;
    moduleInfo.GetPositionQuality(quality);

    _LIT(KModName, "Test PSY 2");
    _LIT(KStatusErrorText, "Wrong status data in module info");
    _LIT(KVersionErrorText, "Wrong version data in module info");
    _LIT(KUidErrorText, "Wrong uid data in module info");
    _LIT(KNameErrorText, "Wrong name data in module info");
    _LIT(KPosTechErrorText, "Wrong pos tech data in module info");
    _LIT(KTTFFErrorText, "Wrong TTFF data in module info");
    _LIT(KTTFErrorText, "Wrong TTF data in module info");
    _LIT(KHAccErrorText, "Wrong HAcc data in module info");
    _LIT(KVAccErrorText, "Wrong VAcc data in module info");
    _LIT(KCostErrorText, "Wrong cost data in module info");
    _LIT(KPowerCostErrorText, "Wrong power cost data in module info");
    _LIT(KClassesErrorText, "Wrong class info in module info");


    AssertTrueL(moduleInfo.IsAvailable(), KStatusErrorText);
    TVersion version = moduleInfo.Version();
    AssertTrueL(version.iMajor == 1, KVersionErrorText);
    AssertTrueL(version.iMinor == 0, KVersionErrorText);
    AssertTrueL(version.iBuild == 0, KVersionErrorText);

    AssertTrueL(moduleInfo.ModuleId() == iUidTestPsy2, KUidErrorText);
    TBuf<100> moduleName;
    moduleInfo.GetModuleName(moduleName);
    AssertTrueL(moduleName == KModName, KNameErrorText);
    AssertTrueL(moduleInfo.TechnologyType() == TPositionModuleInfo::ETechnologyTerminal,
                                                KPosTechErrorText); 
    
	AssertTrueL(moduleInfo.ClassesSupported(EPositionInfoFamily) ==
                                                (EPositionGenericInfoClass | EPositionInfoClass),
                                                KClassesErrorText);

	AssertTrueL(quality.TimeToFirstFix() == TTimeIntervalMicroSeconds(3000000),
                                               KTTFFErrorText);
    AssertTrueL(quality.TimeToNextFix() == TTimeIntervalMicroSeconds(3000000),
                                               KTTFErrorText);
    AssertTrueL(quality.HorizontalAccuracy() == 2, KHAccErrorText);
    AssertTrueL(quality.VerticalAccuracy() == 3, KVAccErrorText);
    AssertTrueL(quality.CostIndicator() == TPositionQuality::ECostCharge, 
                                            KCostErrorText); // Updated cost value
    AssertTrueL(quality.PowerConsumption() == TPositionQuality::EPowerZero, 
                                                KPowerCostErrorText);

//////////////////// TC196 //////////////////// Set Module Properties

    _LIT(KErrorTp196b, "Cost not updated correctly");
    _LIT(KErrorMsg3, "Wrong Visibility");
    _LIT(KErrorMsgPrio, "Changing priority of an invisible module");

    // Make sure test psy 2 is enabled.
    CPosModuleUpdate* moduleUpdate196 = CPosModuleUpdate::NewLC(); // destroy!
    moduleUpdate196->SetUpdateAvailability(ETrue);
    moduleUpdate->SetUpdateCost(TPositionQuality::ECostZero);
    db->UpdateModuleL(iUidTestPsy2, *moduleUpdate196);

    // Disable psy
    moduleUpdate196->SetUpdateAvailability(EFalse);
    db->UpdateModuleL(iUidTestPsy2, *moduleUpdate196);

    // Update cost variable to ECostZero
    moduleUpdate196->SetUpdateCost(TPositionQuality::ECostZero);
    db->UpdateModuleL(iUidTestPsy2, *moduleUpdate196);
	db->GetModuleInfoL(iUidTestPsy2, 
                       moduleInfo);
    moduleInfo.GetPositionQuality(quality);
    AssertTrueL(quality.CostIndicator() == TPositionQuality::ECostZero, KErrorTp196b);

    // Update cost variable to ECostPossible
    moduleUpdate196->SetUpdateCost(TPositionQuality::ECostPossible);
    db->UpdateModuleL(iUidTestPsy2, *moduleUpdate196);
	db->GetModuleInfoL(iUidTestPsy2, 
                       moduleInfo);
    moduleInfo.GetPositionQuality(quality);
    AssertTrueL(quality.CostIndicator() == TPositionQuality::ECostPossible, KErrorTp196b);

    // Update cost variable to high
    moduleUpdate196->SetUpdateCost(TPositionQuality::ECostCharge);
    db->UpdateModuleL(iUidTestPsy2, *moduleUpdate196);
	db->GetModuleInfoL(iUidTestPsy2, 
                       moduleInfo);
    moduleInfo.GetPositionQuality(quality);
    AssertTrueL(quality.CostIndicator() == TPositionQuality::ECostCharge, KErrorTp196b);
    
    
    ////////////////////////////////////
    moduleUpdate196->SetUpdateAvailability(ETrue);
        
    moduleUpdate196->SetUpdateVisibility(EFalse);
    db->UpdateModuleL(iUidTestPsy2, *moduleUpdate196);
    TBool IsVisble=db->IsModuleVisibleL(iUidTestPsy2);
    AssertTrueL(IsVisble==EFalse,
                        KErrorMsg3);
                        
    // Change priority of an invisible module
    
    TRAPD(err,db->SetModulePriorityL(iUidTestPsy2, 4));
    AssertTrueL(err==KErrNotFound,KErrorMsgPrio);
          
                        
    moduleUpdate196->SetUpdateVisibility(ETrue);
    db->UpdateModuleL(iUidTestPsy2, *moduleUpdate196);
    IsVisble=db->IsModuleVisibleL(iUidTestPsy2);
    AssertTrueL(IsVisble,KErrorMsg3);   
   ////////////////////////////////////

//////////////////// TC197 //////////////////// Module Priority

    // Change the priority of the external gps module, and check that the other
    // modules are updated correctly
    // Change from 6 to 3

    _LIT(KErrorTextPrio, "Priority test failed after change of priority");
    _LIT(KErrorVisibility1, "Invisible module is in list");
    _LIT(KErrorVisibility2, "visible module is not in list after changing it from invisible");
    db->SetModulePriorityL(iUidTestPsy2, 6);
    prioList = db->ModuleIdListLC();
    lastPrio = 0;
    thisPrio = 0;
    for (count = 0 ; count < prioList->Count() ; count++)
        {
        moduleUid = (*prioList)[count];
        thisPrio = db->PriorityL(moduleUid);

        if (count > 0)
            {
            AssertTrueL(thisPrio > lastPrio,
                        KErrorMsg1);
            }

        lastPrio = thisPrio;
        }

    // Remember the uid:s of the modules close to iUidTestPsy2:
    TUid uid2a = (*prioList)[2];
    TUid uid3a = (*prioList)[3];
    TUid uid4a = (*prioList)[4];
    TUid uid5a = (*prioList)[5];
    TUid uid6a = (*prioList)[6];
    TUid uid7a = (*prioList)[7];
    TUid uid8a = (*prioList)[8];
    TUid uid0a = (*prioList)[0];

    db->SetModulePriorityL(iUidTestPsy2, 3);

    CleanupStack::PopAndDestroy(prioList); // prioList
    prioList = db->ModuleIdListLC();

    TUid uid2b = (*prioList)[2];
    TUid uid3b = (*prioList)[3];
    TUid uid4b = (*prioList)[4];
    TUid uid5b = (*prioList)[5];
    TUid uid6b = (*prioList)[6];
    TUid uid7b = (*prioList)[7];
    TUid uid8b = (*prioList)[8];
    TUid uid0b = (*prioList)[0];

    AssertTrueL(uid2a == uid2b, KErrorTextPrio);
    AssertTrueL(uid3a == uid4b, KErrorTextPrio);
    AssertTrueL(uid4a == uid5b, KErrorTextPrio);
    AssertTrueL(uid5a == uid6b, KErrorTextPrio);
    AssertTrueL(uid6a == uid3b, KErrorTextPrio);
    AssertTrueL(uid7a == uid7b, KErrorTextPrio);
    AssertTrueL(uid8a == uid8b, KErrorTextPrio);
    AssertTrueL(uid0a == uid0b, KErrorTextPrio);
    
    db->SetModulePriorityL(iUidTestPsy2, 7);
                                    
    CleanupStack::PopAndDestroy(prioList); // prioList
    prioList = db->ModuleIdListLC();

    uid2a = (*prioList)[2];
    uid3a = (*prioList)[3];
    uid4a = (*prioList)[4];
    uid5a = (*prioList)[5];
    uid6a = (*prioList)[6];
    uid7a = (*prioList)[7];
    uid8a = (*prioList)[8];
    uid0a = (*prioList)[0];
    TUid uid1a = (*prioList)[1];

    AssertTrueL(uid2b == uid2a, KErrorTextPrio);
    AssertTrueL(uid3b == uid7a, KErrorTextPrio);
    AssertTrueL(uid4b == uid3a, KErrorTextPrio);
    AssertTrueL(uid5b == uid4a, KErrorTextPrio);
    AssertTrueL(uid6b == uid5a, KErrorTextPrio);
    AssertTrueL(uid7b == uid6a, KErrorTextPrio);
    AssertTrueL(uid8b == uid8a, KErrorTextPrio);
    AssertTrueL(uid0b == uid0a, KErrorTextPrio);


    TInt bottomPrio = prioList->Count() - 1;

    // Change top priority to bottom priority
    
    db->SetModulePriorityL(uid0a, bottomPrio);
    CleanupStack::PopAndDestroy(prioList); // prioList
    prioList = db->ModuleIdListLC();

    AssertTrueL((*prioList)[0] == uid1a, KErrorTextPrio);
    AssertTrueL(uid0a == (*prioList)[bottomPrio], KErrorTextPrio);
    AssertTrueL(uid7a == (*prioList)[6], KErrorTextPrio);
    

    // Change bottom priority to top priority
    TUid topPrioUid = (*prioList)[0];
    TUid bottomPrioUid = (*prioList)[bottomPrio];
    TUid nextBottomPrioUid = (*prioList)[bottomPrio - 1];

    db->SetModulePriorityL(bottomPrioUid, 0);
    CleanupStack::PopAndDestroy(prioList); // prioList
    prioList = db->ModuleIdListLC();

    AssertTrueL((*prioList)[0] == bottomPrioUid, KErrorTextPrio);
    AssertTrueL((*prioList)[1] == topPrioUid, KErrorTextPrio);
    AssertTrueL((*prioList)[bottomPrio] == nextBottomPrioUid, KErrorTextPrio);

    CleanupStack::PopAndDestroy(prioList); // prioList
    
    ////////////////////////////////////
    
    db->SetModulePriorityL(iUidTestPsy2, 0);
                                    
    prioList = db->ModuleIdListLC();

    uid0a = (*prioList)[0];
    uid1a = (*prioList)[1];
    uid2a = (*prioList)[2];
    uid3a = (*prioList)[3];
    uid4a = (*prioList)[4];
    uid5a = (*prioList)[5];
    uid6a = (*prioList)[6];
    uid7a = (*prioList)[7];
    uid8a = (*prioList)[8];
    
    moduleUpdate196->SetUpdateVisibility(EFalse);
    db->UpdateModuleL(iUidTestPsy2, *moduleUpdate196);
    
    CleanupStack::PopAndDestroy(prioList); // prioList
    prioList = db->ModuleIdListLC();
    
    TInt IsInList=prioList->Find(iUidTestPsy2);
    AssertTrueL(IsInList==KErrNotFound, KErrorVisibility1);
    
   
    uid0b = (*prioList)[0];
    TUid uid1b = (*prioList)[1];
    uid2b = (*prioList)[2];
    uid3b = (*prioList)[3];
    uid4b = (*prioList)[4];
    uid5b = (*prioList)[5];
    uid6b = (*prioList)[6];
    uid7b = (*prioList)[7];
    
    
    AssertTrueL(uid1a == uid0b, KErrorTextPrio);
    AssertTrueL(uid2a == uid1b, KErrorTextPrio);
    AssertTrueL(uid3a == uid2b, KErrorTextPrio);
    AssertTrueL(uid4a == uid3b, KErrorTextPrio);
    AssertTrueL(uid5a == uid4b, KErrorTextPrio);
    AssertTrueL(uid6a == uid5b, KErrorTextPrio);
    AssertTrueL(uid7a == uid6b, KErrorTextPrio);
    AssertTrueL(uid8a == uid7b, KErrorTextPrio);
    
     moduleUpdate196->SetUpdateVisibility(ETrue);
    db->UpdateModuleL(iUidTestPsy2, *moduleUpdate196);
    
    CleanupStack::PopAndDestroy(prioList); // prioList
    prioList = db->ModuleIdListLC();
    
    IsInList=prioList->Find(iUidTestPsy2);
        
    TInt priority=db->PriorityL(iUidTestPsy2);
   
    
    AssertTrueL(IsInList==priority, KErrorVisibility2);
    
    CleanupStack::PopAndDestroy(prioList); // prioList
    CleanupStack::PopAndDestroy(2, moduleUpdate);
    
    ////////////////////////////////////
    
    CleanupStack::PopAndDestroy(db); // db

	}


// ---------------------------------------------------------
// CT_LbsClientPosTp169::TestNaNFromPSY
//
// (other items were commented in a header).
// ---------------------------------------------------------
//
void CT_LbsClientPosTp169::TestNaNFromPSY()
	{
	_LIT(KFunctionName, "We are inside TestNaNFromPSY()");
	INFO_PRINTF1(KFunctionName);
    CPosModules* db = CPosModules::OpenL();
    CleanupStack::PushL(db);

	TPositionModuleInfo moduleInfo;
	TBuf<100> moduleName;

	// Use Panic Psy in this test, should have Horizontal accuracy defined to 0
	// and vertical accuracy not defined at all in resource file (should default to 0)
	// and when reading these attributes using the modulesdb they should be of type NaN (Not A Number)
    CPosModuleUpdate* moduleUpdate = CPosModuleUpdate::NewLC();
    moduleUpdate->SetUpdateAvailability(ETrue);
    db->UpdateModuleL(iUidPanicPsy, *moduleUpdate);

    db->GetModuleInfoL(iUidPanicPsy, 
                       moduleInfo);

	moduleInfo.GetModuleName(moduleName);

    TPositionQuality quality;
    moduleInfo.GetPositionQuality(quality);

	if (!Math::IsNaN(quality.HorizontalAccuracy())) 
		{
		_LIT(KErrorAndLeave, "HorizontalAccuracy should be NaN");
		LogErrorAndLeaveL(KErrorAndLeave);
		}
	else 
		{
		_LIT(KHorizontalAccuracy, "HorizontalAccuracy NaN");
		INFO_PRINTF1(KHorizontalAccuracy);
		}

	if (!Math::IsNaN(quality.VerticalAccuracy())) 
		{
		_LIT(KErrorAndLeave, "VerticalAccuracy should be NaN");
		LogErrorAndLeaveL(KErrorAndLeave);
		}
	else 
		{
		_LIT(KVerticalAccuracy, "VerticalAccuracy NaN");
		INFO_PRINTF1(KVerticalAccuracy);
		}

    CleanupStack::PopAndDestroy(moduleUpdate);
	CleanupStack::PopAndDestroy(db);
	}

// ---------------------------------------------------------
// CT_LbsClientPosTp169::AssertTrueL
//
// (other items were commented in a header).
// ---------------------------------------------------------
//
void CT_LbsClientPosTp169::AssertTrueL(TBool aCondition, const TDesC& aErrorMsg)
    {
  	if (!aCondition)
		{
		LogErrorAndLeaveL(aErrorMsg);
		}
    }


// ---------------------------------------------------------
// CT_LbsClientPosTp169::AssertTrueSecL
//
// (other items were commented in a header).
// ---------------------------------------------------------
//
void CT_LbsClientPosTp169::AssertTrueSecL(TBool aCondition, const TDesC& aErrorMsg, TInt aErrorCode)
    {
  	if (!aCondition)
		{
		TBuf<100> buf;
		buf.Format(aErrorMsg, aErrorCode);
		LogErrorAndLeaveL(buf);
		}
    }