// Copyright (c) 2002-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 "TestPlayer.h"

#include <e32math.h>

/**

 * Constructor

 */

CTestVclntVideoFile::CTestVclntVideoFile(const TDesC& aTestName,const TDesC& aSectName,const TDesC& aKeyName,const TBool aPlay)

	:iPlay (aPlay)

	{

	// store the name of this test case

	// this is the name that is used by the script file

	// Each test step initialises it's own name

	iTestStepName = aTestName;

	iSectName = aSectName;

	iKeyName = aKeyName;

	// expand heap, so we can load 80k video

	iHeapSize = 150000;

	}

CTestVclntVideoFile* CTestVclntVideoFile::NewL(const TDesC& aTestName, const TDesC& aSectName,const TDesC& aKeyName,const TBool aPlay)

	{

	CTestVclntVideoFile* self = new (ELeave) CTestVclntVideoFile(aTestName,aSectName,aKeyName,aPlay);

	return self;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         

	}

CTestVclntVideoFile* CTestVclntVideoFile::NewLC(const TDesC& aTestName, const TDesC& aSectName,const TDesC& aKeyName,const TBool aPlay)

	{

	CTestVclntVideoFile* self = CTestVclntVideoFile::NewLC(aTestName,aSectName,aKeyName,aPlay);

	CleanupStack::PushL(self);

	return self;

	}

void CTestVclntVideoFile::MvpuoOpenComplete(TInt aError)

	{

	iError = aError;

	INFO_PRINTF1(_L("Open Complete callback"));

	CActiveScheduler::Stop();

	}

void CTestVclntVideoFile::MvpuoPrepareComplete(TInt aError)

	{

	iError = aError;

	INFO_PRINTF1(_L("Open Complete callback"));

	CActiveScheduler::Stop();

	}

void CTestVclntVideoFile::MvpuoFrameReady(CFbsBitmap& /*aFrame*/, TInt aError)

	{

	iError = aError;

	INFO_PRINTF1(_L("Frame Ready callback"));

	}

void CTestVclntVideoFile::MvpuoPlayComplete(TInt aError)

	{

	iError = aError;

	INFO_PRINTF1(_L("Play Complete callback"));

	CActiveScheduler::Stop();

	}

void CTestVclntVideoFile::MvpuoEvent(const TMMFEvent& /*aEvent*/)

	{

	}

/**

 * Load and initialise an audio file.

 */

TVerdict CTestVclntVideoFile::DoTestStepL()

	{

	TVerdict ret = EFail;

	iError = KErrTimedOut;

	INFO_PRINTF1(_L("Test : Video Player - File"));

	TPtrC filename;

	if(!GetStringFromConfig(iSectName,iKeyName,filename))

		return EInconclusive;

	InitWservL();

	TRect rect, clipRect;

	CVideoPlayerUtility* player = CVideoPlayerUtility::NewL(*this, EMdaPriorityNormal,

															EMdaPriorityPreferenceTimeAndQuality,

															iWs, *iScreen, *iWindow, rect, clipRect);

	CleanupStack::PushL(player);

	TRAP(iError,player->OpenFileL(filename));

	if(iError == KErrNone)

		{

		// Wait for initialisation callback

		INFO_PRINTF1(_L("CVideoPlayerUtility: Opening file"));

		CActiveScheduler::Start();

		}

	// Until JetStream

#ifndef JETSTREAM_TESTS

	if(iError == KErrNotSupported)

		ret = EPass;

#endif

	// Check for errors.

	if (iError == KErrNone && player != NULL)

		{

		player->Prepare();

		CActiveScheduler::Start();

		}

	// Check for errors.

	if (iError == KErrNone && player != NULL)

		ret = DoTestL(player);

	INFO_PRINTF1(_L("CVideoPlayerUtility: Destroying"));

	CleanupStack::PopAndDestroy(player);

	if(iError != KErrNone)

		ERR_PRINTF2( _L("CVideoPlayerUtility failed with error %d"),iError );

	return	ret;

	}

TVerdict CTestVclntVideoFile::DoTestL(CVideoPlayerUtility* aPlayer)

	{

	TVerdict ret = EFail;

// #ifdef JETSTREAM_TESTS

	if(iPlay)

		{

		iError = KErrTimedOut;

		aPlayer->Play();

		INFO_PRINTF1(_L("CVideoPlayerUtility: Playing file"));

		// Wait for init callback

		CActiveScheduler::Start();

		if(iError == KErrNone)

			ret = EPass;

		}

	else

		ret = EPass;

// #else

//	aPlayer->Stop();

// #endif

	return ret;

	}

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

/**

 * Constructor

 */

CTestVclntVideoDes::CTestVclntVideoDes(const TDesC& aTestName,const TDesC& aSectName,const TDesC& aKeyName, const TBool aPlay)

	:iPlay (aPlay)

	{

	// store the name of this test case

	// this is the name that is used by the script file

	// Each test step initialises it's own name

	iTestStepName = aTestName;

	iSectName = aSectName;

	iKeyName = aKeyName;

	// *** Jim : expand heap, so we can load 80k video

	iHeapSize = 150000;

	}

CTestVclntVideoDes* CTestVclntVideoDes::NewL(const TDesC& aTestName, const TDesC& aSectName,const TDesC& aKeyName,const TBool aPlay)

	{

	CTestVclntVideoDes* self = new (ELeave) CTestVclntVideoDes(aTestName,aSectName,aKeyName,aPlay);

	return self;

	}

CTestVclntVideoDes* CTestVclntVideoDes::NewLC(const TDesC& aTestName, const TDesC& aSectName,const TDesC& aKeyName,const TBool aPlay)

	{

	CTestVclntVideoDes* self = CTestVclntVideoDes::NewLC(aTestName,aSectName,aKeyName,aPlay);

	CleanupStack::PushL(self);

	return self;

	}

void CTestVclntVideoDes::MvpuoOpenComplete(TInt aError)

	{

	iError = aError;

	CActiveScheduler::Stop();

	}

void CTestVclntVideoDes::MvpuoPrepareComplete(TInt aError)

	{

	iError = aError;

	CActiveScheduler::Stop();

	}

void CTestVclntVideoDes::MvpuoFrameReady(CFbsBitmap& /*aFrame*/,TInt aError)

	{

	iError = aError;

	// Will this function require a Active Scheduler Stop?

	}

void CTestVclntVideoDes::MvpuoPlayComplete(TInt aError)

	{

	iError = aError;

	CActiveScheduler::Stop();

	}

void CTestVclntVideoDes::MvpuoEvent(const TMMFEvent& /*aEvent*/)

	{

	}

TVerdict  CTestVclntVideoDes::DoTestStepPreambleL()

	{

	TPtrC filename; 

	if(!GetStringFromConfig(iSectName, iKeyName, filename))

		return EInconclusive;

	RFs fs;

	RFile file;

	TInt size = 0;

	// connect to file system and open file

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

	User::LeaveIfError(file.Open(fs,filename,EFileRead));

	CleanupClosePushL(file);

	// Set HBuf size

	User::LeaveIfError(file.Size(size));

	INFO_PRINTF2(_L("size of file = %d\n"),size);//Statement Changed under DEF105143

	iVideo = HBufC8::NewMaxL(size);

	// read data into Hbuf

	TPtr8 bufferDes(iVideo->Des());

	User::LeaveIfError(file.Read(bufferDes));

	CleanupStack::PopAndDestroy(); //file

	return CTestMmfVclntStep::DoTestStepPreambleL();

	}

TVerdict CTestVclntVideoDes::DoTestStepPostambleL()

	{

	delete iVideo;

	iVideo = NULL;

	return CTestMmfVclntStep::DoTestStepPostambleL();

	}

/**

 * Load and initialise an audio descriptor.

 */

TVerdict CTestVclntVideoDes::DoTestStepL()

	{

	TVerdict ret = EFail;

	INFO_PRINTF1(_L("Test : Video Player - Descriptor"));

	iError = KErrTimedOut;

	InitWservL();

	TRect rect, clipRect;

	CVideoPlayerUtility* player = CVideoPlayerUtility::NewL(*this, EMdaPriorityNormal,

															EMdaPriorityPreferenceTimeAndQuality,

															iWs, *iScreen, *iWindow, rect, clipRect);

	CleanupStack::PushL(player);

	TRAP(iError, player->OpenDesL(iVideo->Des()));

	if(iError == KErrNone)

		{

		INFO_PRINTF1(_L("CVideoPlayerUtility: Opening descriptor"));

		// Wait for init callback

		CActiveScheduler::Start();

		}

	// Until JetStream

#ifndef JETSTREAM_TESTS

	if(iError == KErrNotSupported)

		ret = EPass;

#endif

	if (iError == KErrNone && player != NULL)

		{

		player->Prepare();

		CActiveScheduler::Start();

		}

	if ((iError == KErrNone) && (player != NULL))

		ret = DoTestL(player);

	INFO_PRINTF1(_L("CVideoPlayerUtility: Destroying"));

	CleanupStack::PopAndDestroy(player);

	if(iError != KErrNone)

		ERR_PRINTF2( _L("CVideoPlayerUtility failed with error %d"),iError );

	return	ret;

	}

TVerdict CTestVclntVideoDes::DoTestL(CVideoPlayerUtility* aPlayer)

	{

	TVerdict ret = EFail;

// #ifdef JETSTREAM_TESTS

	if(iPlay)

		{

		iError = KErrTimedOut;

		aPlayer->Play();

		INFO_PRINTF1(_L("CVideoPlayerUtility: Playing descriptor"));

		// Wait for init callback

		CActiveScheduler::Start();

		if(iError == KErrNone)

			ret = EPass;

		}

	else

		ret = EPass;	

//#else

//	aPlayer->Stop();

//#endif

	return ret;		

	}

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

/**

 * Constructor

 */

CTestVclntVideoUrl::CTestVclntVideoUrl(const TDesC& aTestName, const TDesC& aSectName,const TDesC& aKeyName,const TBool aPlay)

	:iPlay (aPlay)

	{

	// store the name of this test case

	// this is the name that is used by the script file

	// Each test step initialises it's own name

	iTestStepName = aTestName;

	iSectName = aSectName;

	iKeyName = aKeyName;

	}

CTestVclntVideoUrl* CTestVclntVideoUrl::NewL(const TDesC& aTestName, const TDesC& aSectName,const TDesC& aKeyName,const TBool aPlay)

	{

	CTestVclntVideoUrl* self = CTestVclntVideoUrl::NewLC(aTestName,aSectName,aKeyName,aPlay);

	CleanupStack::Pop();

	return self;

	}

CTestVclntVideoUrl* CTestVclntVideoUrl::NewLC(const TDesC& aTestName, const TDesC& aSectName,const TDesC& aKeyName,const TBool aPlay)

	{

	CTestVclntVideoUrl* self = new (ELeave) CTestVclntVideoUrl(aTestName,aSectName,aKeyName,aPlay);

	CleanupStack::PushL(self);

	return self;

	}

void CTestVclntVideoUrl::MvpuoOpenComplete(TInt aError)

	{

	iError = aError;

	INFO_PRINTF1(_L("Open complete callback"));

	CActiveScheduler::Stop();

	}

void CTestVclntVideoUrl::MvpuoPrepareComplete(TInt aError)

	{

	iError = aError;

	INFO_PRINTF1(_L("Open complete callback"));

	CActiveScheduler::Stop();

	}

void CTestVclntVideoUrl::MvpuoFrameReady(CFbsBitmap& /*aFrame*/, TInt aError)

	{

	iError = aError;

	// ???

	INFO_PRINTF1(_L("Frame Ready callback"));

	}

void CTestVclntVideoUrl::MvpuoPlayComplete(TInt aError)

	{

	iError = aError;

	INFO_PRINTF1(_L("Play complete callback"));

	CActiveScheduler::Stop();

	}

void CTestVclntVideoUrl::MvpuoEvent(const TMMFEvent& /*aEvent*/)

	{

	}

/**

 * Open audio from a URL and play.

 */

TVerdict CTestVclntVideoUrl::DoTestStepL()

	{

	TVerdict ret = EFail;

	INFO_PRINTF1(_L("Test : Video Player - URL"));

	iError = KErrTimedOut;	

	TPtrC urlname;

	if(!GetStringFromConfig(iSectName,iKeyName,urlname))

		return EInconclusive;

	InitWservL();

	TRect rect, clipRect;

	CVideoPlayerUtility* player = CVideoPlayerUtility::NewL(*this, EMdaPriorityNormal,

															EMdaPriorityPreferenceTimeAndQuality,

															iWs, *iScreen, *iWindow, rect, clipRect);

	// wait for init to complete

	CleanupStack::PushL(player);

	player->OpenUrlL(urlname);

	INFO_PRINTF1(_L("CVideoPlayerUtility: Opening URL"));

	CActiveScheduler::Start();

	// Until JetStream

#ifndef JETSTREAM_TESTS

	if(iError == KErrNotSupported)

		ret = EPass;

#endif

	if (iError == KErrNone)

		{

		player->Prepare();

		CActiveScheduler::Start();

		}

	if (iError == KErrNone)

		ret = DoTestL(player);

	INFO_PRINTF1(_L("CVideoPlayerUtility: Destroying"));

	CleanupStack::PopAndDestroy(player);

	if(iError != KErrNone)

		ERR_PRINTF2( _L("CVideoPlayerUtility failed with error %d"),iError );

	return	ret;

	}

TVerdict CTestVclntVideoUrl::DoTestL(CVideoPlayerUtility* aPlayer)

	{

	TVerdict ret = EFail;

//#ifdef JETSTREAM_TESTS

	iError = KErrTimedOut;	

	aPlayer->Play();

	INFO_PRINTF1(_L("CVideoPlayerUtility: Playing URL"));

	// Wait for play to complete

	CActiveScheduler::Start();

	if(iError == KErrNone)

		ret = EPass;

//#else

//	aPlayer->Stop();

//#endif

	return ret;

	}

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

CTestVclntEnqFrameRate::CTestVclntEnqFrameRate(const TDesC& aTestName, const TDesC& aSectName,const TDesC& aKeyName, const TInt aFrameRate)

	: CTestVclntVideoFile(aTestName,aSectName,aKeyName,EFalse)

	{

	iFrameRate = aFrameRate;

	}

CTestVclntEnqFrameRate* CTestVclntEnqFrameRate::NewL(const TDesC& aTestName, const TDesC& aSectName,const TDesC& aKeyName, const TInt aFrameRate)

	{

	CTestVclntEnqFrameRate* self = new (ELeave) CTestVclntEnqFrameRate(aTestName,aSectName,aKeyName,aFrameRate);

	return self;

	}

TVerdict CTestVclntEnqFrameRate::DoTestL(CVideoPlayerUtility* aPlayer)

	{

	INFO_PRINTF1(_L("Test : Video Player - Enquire Frame Rate"));

	TVerdict ret = EFail;

	TInt32 theFrameRate;

	Math::Int(theFrameRate, aPlayer->VideoFrameRateL());

	INFO_PRINTF2(_L("(Frame rate : %d)"), theFrameRate); 

	// if we get here, we pass. The player does not have a SetVideoFrameRate()

	ret = EPass;

	return ret;

	}

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

CTestVclntPosition::CTestVclntPosition(const TDesC& aTestName, const TDesC& aSectName,const TDesC& aKeyName, const TTimeIntervalMicroSeconds aPosition)

	: CTestVclntVideoFile(aTestName,aSectName,aKeyName,EFalse)

	{

	iPosition = aPosition;

	}

CTestVclntPosition* CTestVclntPosition::NewL(const TDesC& aTestName, const TDesC& aSectName,const TDesC& aKeyName, const TTimeIntervalMicroSeconds aPosition)

	{

	CTestVclntPosition* self = new (ELeave) CTestVclntPosition(aTestName,aSectName,aKeyName,aPosition);

	return self;

	}

TVerdict CTestVclntPosition::DoTestL(CVideoPlayerUtility* aPlayer)

	{

	// NB test video controller is stubbing certain functions. May have to rewrite this

	// for Jet Stream

	TVerdict ret = EFail;

	INFO_PRINTF1(_L("Test : Video Player - Position"));

	TBool validPosition = EFalse;

	INFO_PRINTF3(_L("Set Position %d Duration = %d"), 

		I64INT(iPosition.Int64()), I64INT(aPlayer->DurationL().Int64()));

	//  Set position: middle of clip.