//
// bootupperformance.cpp

// Copyright (c) 2007-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:
// For testing Boot-up Performance Task Scheduler
// 
//

/**
 @file
 @internalComponent
 @test
*/
//
#include <e32base.h>
#include "e32debug.h"
#include <hal.h>
#include <csch_cli.h>
#include <bautils.h>
#include <f32file.h>
#include <e32test.h>

_LIT(KTestName,	"Boot-up Performance Task Scheduler");
RTest	TheTest(KTestName);

//For time counter
TInt fastTimerFreq;
TReal ticksPerMicroSec; 
TReal64 fsSessionMicroSecs;
TUint prevTime;
TUint timeDiff;

//file server session
RFs TheFs;

//Client side interface to the Task Scheduler
static RScheduler	TheScheduler;

//Backup file name of ask Scheduler
_LIT(KBackupFileName, "_:\\Private\\10005399\\SchedulesBackup.dat");
_LIT(KBackupDir, "_:\\Private\\10005399\\");

static TBuf<64> backupFileName;
static TBuf<32> backupDir;

/**
 * This function will create a dummy new task
 * It is used for test performance of Task Scheduler
 */ 
void CreateNewTask()
{
	TScheduleEntryInfo aScheduleInfo;
	aScheduleInfo.iIntervalType = EHourly;
	aScheduleInfo.iInterval = 1;			//every Hour
	aScheduleInfo.iStartTime = TTime(TDateTime(2020,EJuly,3,13,36,0,0));
	aScheduleInfo.iValidityPeriod = KMaxTInt;

	TInt err;
	err = TheScheduler.Connect();
	TheTest(err == KErrNone);
	
	TBuf<255>aFileName = _L("bootupperformance");

	TName  aName = _L("Performance Test");
	TTaskInfo aTaskInfo(0, aName, 1, -1);
	err = TheScheduler.Register( aFileName, 1 );
	TheTest(err == KErrNone);
	
	//only one event to add
	CArrayFixFlat<TScheduleEntryInfo>* array = new (ELeave) CArrayFixFlat<TScheduleEntryInfo>(1);
	CleanupStack::PushL( array );
	array->AppendL( aScheduleInfo );

	TSchedulerItemRef aItemRef;
	TheScheduler.CreatePersistentSchedule( aItemRef, *array );

	HBufC* aBuf = HBufC::NewLC(1);      
	TheScheduler.ScheduleTask( aTaskInfo, *aBuf, aItemRef, *array );
	
	CleanupStack::PopAndDestroy( 2 );
	TheScheduler.Close();
}

/**
 * This function Kill Task Scheduler if it is running
 * It is used for test performance of Task Scheduler
 */ 
void KillTaskScheduler()
	{
	TFindProcess findProcess (_L("Schexe.*"));
	TFullName result;
	while(findProcess.Next(result) == KErrNone )
		{
		TRequestStatus stat;
		RProcess processHandle;
		processHandle.Open (findProcess);
		processHandle.Kill(0);
		processHandle.Logon(stat);
		User::WaitForRequest(stat);
		processHandle.Close();
		User::After(1000000);
		}
	}

/**
 * This function will Start Task Scheduler directly calling Schexe.exe
 * It is used for test performance of Task Scheduler
 */ 	
void StartTaskScheduler()
	{
	TRequestStatus stat;
	RProcess server;
	_LIT(KScheduleServerExe, "Schexe");
	User::LeaveIfError(server.Create(KScheduleServerExe, _L("sysstartschexe")));
	server.Rendezvous(stat);
	if (stat!=KRequestPending)
		server.Kill(0);		// abort startup
	else
		server.Resume();	// logon OK - start the server
	User::WaitForRequest(stat);		// wait for start or death
	}

//Tests
//===================================================================

/**
@SYMTestCaseID          SYSLIB-SCHSVR-PT-1865
@SYMTestCaseDesc        Measure the overhead to Start Task Scheduler from client
@SYMTestPriority        High
@SYMTestActions         Start Task Scheduler by calling Connect & Close
@SYMTestExpectedResults Tests must not fail
@SYMDEF                 DEF074891: Task Scheduler: Persistent Schedules not ReScheduled on Device Bootup
*/
void PerformanceTestTS1()
	{
	
	TheTest.Next(_L(" @SYMTestCaseID:SYSLIB-SCHSVR-PT-1865 Start Task Scheduler from client "));	
	
	//Kill the Task Scheduler if running 
	KillTaskScheduler();

//Test Case 1
	//Delete SchedulesBackup.dat file
	BaflUtils::DeleteFile(TheFs, backupFileName);
	TheFs.RmDir(backupDir);

	//Performance Test to start Task Scheduler first run
	prevTime = User::FastCounter();

	TheScheduler.Connect();
	TheScheduler.Close();
	
	timeDiff = User::FastCounter() - prevTime;
	fsSessionMicroSecs = timeDiff / (ticksPerMicroSec);
	TheTest.Printf(_L("\nTime to start Task Scheduler from client first run (no file)= %10.2lf microseconds\n"), fsSessionMicroSecs);

//Test Case 2
	//Performance Test to start Task Scheduler second run

	prevTime = User::FastCounter();

	TheScheduler.Connect();
	TheScheduler.Close();
	
	timeDiff = User::FastCounter() - prevTime;
	fsSessionMicroSecs = timeDiff / (ticksPerMicroSec);
	TheTest.Printf(_L("\nTime to start Task Scheduler from client second run (with file) = %10.2lf microseconds\n"), fsSessionMicroSecs);
	
	}
	
/**
@SYMTestCaseID          SYSLIB-SCHSVR-PT-1866
@SYMTestCaseDesc        Measure the overhead to Start Task Scheduler directly
@SYMTestPriority        High
@SYMTestActions         Start Task Scheduler exe directly and measure the performance
@SYMTestExpectedResults Tests must not fail
@SYMDEF                 DEF074891: Task Scheduler: Persistent Schedules not ReScheduled on Device Bootup
*/
void PerformanceTestTS2()
	{
	
	TheTest.Next(_L(" @SYMTestCaseID:SYSLIB-SCHSVR-PT-1866 Start Task Scheduler exe directly "));	
	
//Test Case 1	
	KillTaskScheduler();
	
	//Delete SchedulesBackup.dat file
	BaflUtils::DeleteFile(TheFs, backupFileName);
	TheFs.RmDir(backupDir);
	
	//Performance Test to start Task Scheduler first run
	prevTime = User::FastCounter();

	StartTaskScheduler();
	
	timeDiff = User::FastCounter() - prevTime;
	fsSessionMicroSecs = timeDiff / (ticksPerMicroSec);
	TheTest.Printf(_L("\nTime to start Task Schedular directly first run (no file) = %10.2lf microseconds\n"), fsSessionMicroSecs);

//Test Case 2
	//Performance Test to start Task Scheduler first run
	prevTime = User::FastCounter();

	StartTaskScheduler();
	
	timeDiff = User::FastCounter() - prevTime;
	fsSessionMicroSecs = timeDiff / (ticksPerMicroSec);
	TheTest.Printf(_L("\nTime to start Task Schedular directly second run (with file) = %10.2lf microseconds\n"), fsSessionMicroSecs);
	
//Test Case 3
	CreateNewTask();
	
	KillTaskScheduler();
	//Performance Test to start Task Scheduler first run
	prevTime = User::FastCounter();

	StartTaskScheduler();
	
	timeDiff = User::FastCounter() - prevTime;
	fsSessionMicroSecs = timeDiff / (ticksPerMicroSec);
	TheTest.Printf(_L("\nTime to Start Task Schedular with Schedule = %10.2lf microseconds\n"), fsSessionMicroSecs);

	}

/**
Runs all the tests.
*/
void RunTestsL()
	{
	PerformanceTestTS1();
	PerformanceTestTS2();
	}

GLDEF_C TInt E32Main() // main function called by E32
    {
    
  	CTrapCleanup* tc = CTrapCleanup::New();
  	__UHEAP_MARK;

	backupFileName.Copy(KBackupFileName);
	backupFileName[0] = RFs::GetSystemDriveChar();
	
	backupDir.Copy(KBackupDir);
	backupDir[0] = RFs::GetSystemDriveChar();
  	
  	TheTest.Start(_L("=== Start Task Scheduler tests \n"));
	TheTest.Title();
	HAL::Get(HALData::EFastCounterFrequency, fastTimerFreq);
	ticksPerMicroSec = 1.0E-6 * fastTimerFreq;
	
	User::LeaveIfError(TheFs.Connect());

	TRAPD(err,RunTestsL());
	TheTest(err == KErrNone);
	
	//Clean up 	Backup File
	BaflUtils::DeleteFile(TheFs, backupFileName);
	TheFs.RmDir(backupDir);
	TheFs.Close();
	TheTest.End();
	TheTest.Close();
	
	__UHEAP_MARKEND;
	delete tc;
	return 0; // and return
    }