// Copyright (c) 2005-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:

//

/**

 @file

 @test

 @internalComponent - Internal Symbian test code  

*/

#include <e32std.h>

#include <e32base.h>

#include <f32file.h>

#include <apgcli.h>

#include <apmrec.h>

#include <apaid.h>

#include "testableapalssession.h"

#include <apgicnfl.h>

#ifdef SYMBIAN_ENABLE_SPLIT_HEADERS

#include <apaidpartner.h>

#include <apgicnflpartner.h>

//#include <apgicnflinternal.h>

#endif //SYMBIAN_ENABLE_SPLIT_HEADERS

#include <apmstd.h>

#include <apacmdln.h>

#include <e32property.h>

#include <apgnotif.h>

#include "../tef/TNonNative/TNNApp1.h"

#include "T_NonNativeAppsStep.h"

#include "appfwk_test.h"

const TUint KApplicationType=0x10207f90;

const TUint KApplicationA=0x10207f91;

TUint KApplicationB = 0x2002237C;

const TUint KMySID=0x101F289C;				// apparctestserver UID

const TUint KPropertyCategory=KMySID;

const TUint KPropertyKey=0;

const TUint KBytesToRead=100;

_LIT8(KLit8_DataType_Gif, "x-epoc/nna-gif");

_LIT8(KLit8_DataType_Html, "x-epoc/nna-html");

_LIT8(KLit8_DataType_Vcard, "x-epoc/nna-vcf");

_LIT8(KLit8_DataType_plainText, "x-epoc/nna-txt");

_LIT(KLitLogicalExecutableA, "c:\\A.NNAPP2"); // this file never actually needs to exist

_LIT(KLitApplicationCaptionA, "Caption NNA A");

_LIT(KLitDocumentName1, "nnapp2:1");

_LIT(KLitDocumentName2, "nnapp2:2");

_LIT(KLitDocumentName3, "nnapp2:3");

_LIT(KLitNativeExecutable, "z:\\sys\\bin\\TNNAPP2.EXE");

_LIT8(KLitMimeTypeA, "x-epoc/a-nnapp2");

_LIT8(KLitMimeTypeB, "x-epoc/dummy");

LOCAL_C void DeregisterNonNativeL(TAny* aApparcServer)

	{

	RApaLsSession& apparcServer=*STATIC_CAST(RApaLsSession*, aApparcServer);

	apparcServer.PrepareNonNativeApplicationsUpdatesL();

	apparcServer.DeregisterNonNativeApplicationL(TUid::Uid(KApplicationA));

	apparcServer.CommitNonNativeApplicationsUpdatesL();

	apparcServer.DeregisterNonNativeApplicationTypeL(TUid::Uid(KApplicationType));

	}

// RTstFileArray

RTstFileArray::RTstFileArray(TInt aGranularity)

	:iFileArray(aGranularity)

	{

	}

void RTstFileArray::Close()

	{

	for (TInt i=iFileArray.Count()-1; i>=0; --i)

		{

		const SFile& file=iFileArray[i];

		delete file.iFullFileName;

		delete file.iExpectedDataType;

		}

	iFileArray.Close();

	}

void RTstFileArray::AppendL(const TDesC& aFullFileName, const TDesC8& aExpectedDataType)

	{

	SFile file;

	file.iFullFileName=aFullFileName.AllocLC();

	file.iExpectedDataType=aExpectedDataType.AllocLC();

	iFileArray.AppendL(file);

	CleanupStack::Pop(2, file.iFullFileName);

	}

void RTstFileArray::Get(TPtrC& aFullFileName, TPtrC8& aExpectedDataType, TInt aIndex) const

	{

	const SFile& file=iFileArray[aIndex];

	aFullFileName.Set(*file.iFullFileName);

	aExpectedDataType.Set(*file.iExpectedDataType);

	}

// RTstAppService

TInt RTstAppService::DoTestL(TUid aServiceUid, TBool aPassingFileByHandle, const TDesC& aFileNameWithoutDriveOrPath)

	{ // static

	RTstAppService appService(aServiceUid);

	CleanupClosePushL(appService);

	TInt error=KErrNone;

	//Try maximum 6 times to connect to server application

    for(TInt loopCount=0; loopCount<6; loopCount++)

        {

        TRAP(error, appService.ConnectL());

        if(error==KErrNone)

            break;

        if(error!=KErrNotFound)

            User::Leave(error);

        User::After(1000000); //wait till one second before trying again

        }

    User::LeaveIfError(error);

	TRequestStatus requestStatus;

	appService.ReceiveTestResult(requestStatus, aPassingFileByHandle, aFileNameWithoutDriveOrPath);

	User::WaitForRequest(requestStatus);

	const TInt result=User::LeaveIfError(requestStatus.Int());

	CleanupStack::PopAndDestroy(&appService);

	User::After(5 * 1000000); //Wait 5sec for Apparc update due to paging

	return result;

	}

RTstAppService::RTstAppService(TUid aServiceUid)

	:iServiceUid(aServiceUid)

	{

	}

void RTstAppService::ConnectL()

	{

	ConnectExistingByNameL(KLitServerName);

	}

void RTstAppService::ReceiveTestResult(TRequestStatus& aRequestStatus, TBool aPassingFileByHandle, const TDesC& aFileNameWithoutDriveOrPath)

	{

	SendReceive(EOpcode_receiveTestResult, TIpcArgs(aPassingFileByHandle, &aFileNameWithoutDriveOrPath), aRequestStatus);

	}

TUid RTstAppService::ServiceUid() const

	{

	return iServiceUid;

	}

// top-level functions

HBufC8* CT_NonNativeAppsStep::OpenFileAndReadBufferLC(RApaLsSession& aApparcServer, RFs& aFileServer, const TDesC& aFullFileName)

	{

	TInt preferredBufSize=0;

	User::LeaveIfError(aApparcServer.GetPreferredBufSize(preferredBufSize));

	HBufC8* const buffer=HBufC8::NewLC(preferredBufSize);

	RFile file;

	CleanupClosePushL(file);

	User::LeaveIfError(file.Open(aFileServer, aFullFileName, EFileShareReadersOnly|EFileStream|EFileRead));

	{TPtr8 buffer_asWritable(buffer->Des());

	User::LeaveIfError(file.Read(buffer_asWritable));}

	CleanupStack::PopAndDestroy(&file);

	return buffer;

	}

void CT_NonNativeAppsStep::OpenFileAndSetFilePositionToSomewhereUnusualLC(RFile& aFile, TInt& aFilePosition, RFs& aFileServer, const TDesC& aFullFileName)

	{

	CleanupClosePushL(aFile);

	User::LeaveIfError(aFile.Open(aFileServer, aFullFileName, EFileShareReadersOnly|EFileStream|EFileRead));

	aFilePosition=0;

	User::LeaveIfError(aFile.Seek(ESeekEnd, aFilePosition));

	aFilePosition=(aFilePosition*83)/100; // set it to somewhere "random" in the middle of the file (83% of the way through)

	User::LeaveIfError(aFile.Seek(ESeekStart, aFilePosition));

	}

void CT_NonNativeAppsStep::TestFilePosition(RFile& aFile, TInt aFilePosition)

	{

	TInt filePosition=0;

	TEST(aFile.Seek(ESeekCurrent, filePosition) == KErrNone);

	TEST(filePosition==aFilePosition);

	}

/**

   @SYMTestCaseID T_NonNativeAppsStep-TestAppForDocument

   @SYMDEF	DEF065742

   @SYMTestCaseDesc Tests AppForDocument API for non native applications.

   @SYMTestPriority High

   @SYMTestStatus Implemented

   @SYMTestActions	Call AppForDocument, first with the file name, and then with the file data, with a series of different known files.

   		API Calls:\n	

   		RApaLsSession::AppForDocument(const TDesC &aFileName, TUid &aAppUid, TDataType &aDataType) const;\n

   		RApaLsSession::AppForDocument(RFile &aFile, TUid &aAppUid, TDataType &aDataType) const;\n

   @SYMTestExpectedResults Test checks MIME type and UIDs obtained match the expected ones.

 */

void CT_NonNativeAppsStep::TestAppForDocumentL(RApaLsSession& aApparcServer, RFs& aFileServer, const RTstFileArray& aFileArray)

	{

	INFO_PRINTF1(_L("Testing AppForDocumentL()..."));

	for (TInt i=aFileArray.Count()-1; i>=0; --i)

		{

		TPtrC fullFileName;

		TPtrC8 expectedDataType;

		aFileArray.Get(fullFileName, expectedDataType, i);

		TPtrC fileNameWithoutDriveOrPath(TParsePtrC(fullFileName).NameAndExt());

		INFO_PRINTF2(_L("..using following file: '%S'"), &fileNameWithoutDriveOrPath);

		{

		TDataType dataType;

		TUid appUid;

		//due to access of file in private folder

		APPFWK_EXPECTED_PLATSEC_START;

		User::LeaveIfError(aApparcServer.AppForDocument(fullFileName, appUid, dataType));

		RDebug::Print(_L("The Full FileName is '%S' "),&fullFileName);

		APPFWK_EXPECTED_PLATSEC_FINISH;

		TEST(dataType.Des8().CompareF(expectedDataType)==0);

		TEST(appUid.iUid==0x10207f92);

		}

		RFile file;

		TInt originalFilePosition=0;

		OpenFileAndSetFilePositionToSomewhereUnusualLC(file, originalFilePosition, aFileServer, fullFileName);

		{

		TDataType dataType;

		TUid appUid;

		User::LeaveIfError(aApparcServer.AppForDocument(file, appUid, dataType));

		TEST(dataType.Des8().CompareF(expectedDataType)==0);

		TEST(appUid.iUid==0x10207f92);

		TestFilePosition(file, originalFilePosition);

		CleanupStack::PopAndDestroy(&file);

		}

		}

	}

void CT_NonNativeAppsStep::TestResultsOfAppForDocumentAndServiceL(TUid aServiceUid, TInt aError,

						const TUid& aAppUid, // aAppUid needs to be passed by reference (rather than by value) because of the way that this function is called, namely the aAppUid parameter seems to be put into the stack before the expression passed to the aError parameter has executed, the latter having the side-effect of changing the app-UID

						const TDataType& aDataType, const TDesC8& aExpectedDataType)

	{

	if (aServiceUid.iUid==0x10207f99)

		{

		User::LeaveIfError(aError);

		TEST(aDataType.Des8().CompareF(aExpectedDataType)==0);

		(aDataType.Des8().CompareF(KLit8_DataType_Gif)==0) ? TEST(aAppUid.iUid==0x10207f94) : TEST(aAppUid.iUid==0);

		}

	else

		{

		User::LeaveIfError(aError);

		TEST(aDataType.Des8().CompareF(aExpectedDataType)==0);

		TEST(aAppUid.iUid==0x10207f92);

		}

	}

/**

   @SYMTestCaseID T_NonNativeAppsStep-TestAppForDocumentAndServiceL

   @SYMDEF	DEF065742

   @SYMTestCaseDesc Tests AppForDocumentAndService API for non native applications.

   @SYMTestPriority High

   @SYMTestStatus Implemented

   @SYMTestActions	Call AppForDocumentAndService, first with the file name, and then with the file data, with a series of different known files and serviceUIDs.

   		Note the following:

   			- TNNAPP1 defines in the datatype_list the 4 datatypes, while in the service_list, only 1 datatype is defined.

   			- TNNAPP2 defines no datatype_list, while it just contains 1 datatype in the service_list.

   			- The datatype of the file to be opened is searched in the service_list corresponding to the serviceUID. If not found,

   				the datatype_list of the same reg file is searched. If not found there, it returns a KNullUid as the app.

   			- It means that the service_list has 'priority' over the datatype_list in the same reg file.

   		API Calls:\n	

   		RApaLsSession::AppForDocumentAndService(const TDesC &aFileName, TUid aServiceUid, TUid &aAppUid, TDataType &aDataType) const;\n

   		RApaLsSession::AppForDocumentAndService(RFile &aFile, TUid aServiceUid, TUid &aAppUid, TDataType &aDataType) const;\n

   @SYMTestExpectedResults Test checks MIME type and UIDs obtained match the expected ones.

 */

void CT_NonNativeAppsStep::TestAppForDocumentAndServiceL(RApaLsSession& aApparcServer, RFs& aFileServer, const RTstFileArray& aFileArray)

	{

	INFO_PRINTF1(_L("Testing AppForDocumentAndServiceL()..."));

	for (TInt i=aFileArray.Count()-1; i>=0; --i)

		{

		TPtrC fullFileName;

		TPtrC8 expectedDataType;

		aFileArray.Get(fullFileName, expectedDataType, i);

		TPtrC fileNameWithoutDriveOrPath(TParsePtrC(fullFileName).NameAndExt());

		INFO_PRINTF2(_L("..using following file: '%S'"), &fileNameWithoutDriveOrPath);

		{

		TDataType dataType;

		TUid appUid;

		TUid serviceUid(TUid::Uid(0x10207f99));

		//due to access of file in private folder

		APPFWK_EXPECTED_PLATSEC_START;

		TestResultsOfAppForDocumentAndServiceL(serviceUid, aApparcServer.AppForDocumentAndService(fullFileName, serviceUid, appUid, dataType), appUid, dataType, expectedDataType);

		APPFWK_EXPECTED_PLATSEC_FINISH;

		serviceUid.iUid=0x10207f93;

		//due to access of file in private folder

		APPFWK_EXPECTED_PLATSEC_START;

		TestResultsOfAppForDocumentAndServiceL(serviceUid, aApparcServer.AppForDocumentAndService(fullFileName, serviceUid, appUid, dataType), appUid, dataType, expectedDataType);

		APPFWK_EXPECTED_PLATSEC_FINISH;

		}

		{

		RFile file;

		TInt originalFilePosition=0;

		OpenFileAndSetFilePositionToSomewhereUnusualLC(file, originalFilePosition, aFileServer, fullFileName);

		TDataType dataType;

		TUid appUid;

		TUid serviceUid(TUid::Uid(0x10207f99));

		TestResultsOfAppForDocumentAndServiceL(serviceUid, aApparcServer.AppForDocumentAndService(file, serviceUid, appUid, dataType), appUid, dataType, expectedDataType);

		serviceUid.iUid=0x10207f93;

		TestResultsOfAppForDocumentAndServiceL(serviceUid, aApparcServer.AppForDocumentAndService(file, serviceUid, appUid, dataType), appUid, dataType, expectedDataType);

		TestFilePosition(file, originalFilePosition);

		CleanupStack::PopAndDestroy(&file);

		}

		}

	}

/**

   @SYMTestCaseID T_NonNativeAppsStep-TestRecognizingL

   @SYMDEF	DEF065742

   @SYMTestCaseDesc Tests RecognizeData API for non native applications.

   @SYMTestPriority High

   @SYMTestStatus Implemented

   @SYMTestActions	Call RecognizeData, first with the file name, and then with the file data, with a series of different known files.

   		API Calls:\n	

   		RApaLsSession::RecognizeData(const TDesC &aName, const TDesC8 &aBuffer, TDataRecognitionResult &aDataType) const;\n

   		RApaLsSession::RecognizeData(RFile &aFile, TDataRecognitionResult &aDataType) const;\n

   @SYMTestExpectedResults Test checks MIME type and conficence obtained match the expected ones.

 */

void CT_NonNativeAppsStep::TestRecognizingL(RApaLsSession& aApparcServer, RFs& aFileServer, const RTstFileArray& aFileArray)

	{

	INFO_PRINTF1(_L("Testing RecognizingL()..."));

	for (TInt i=aFileArray.Count()-1; i>=0; --i)

		{

		TPtrC fullFileName;

		TPtrC8 expectedDataType;

		aFileArray.Get(fullFileName, expectedDataType, i);

		TPtrC fileNameWithoutDriveOrPath(TParsePtrC(fullFileName).NameAndExt());

		INFO_PRINTF2(_L("..using following file: '%S'"), &fileNameWithoutDriveOrPath);

		{

		RFile file;

		TInt originalFilePosition=0;

		OpenFileAndSetFilePositionToSomewhereUnusualLC(file, originalFilePosition, aFileServer, fullFileName);

		TDataRecognitionResult dataRecognitionResult;

		dataRecognitionResult.Reset();

		User::LeaveIfError(aApparcServer.RecognizeData(file, dataRecognitionResult));

		TEST(dataRecognitionResult.iConfidence>=CApaDataRecognizerType::EProbable);

		TEST(dataRecognitionResult.iDataType.Des8().CompareF(expectedDataType)==0);

		TestFilePosition(file, originalFilePosition);

		CleanupStack::PopAndDestroy(&file);

		}

		{

		RFile file;

		TInt originalFilePosition=0;

		OpenFileAndSetFilePositionToSomewhereUnusualLC(file, originalFilePosition, aFileServer, fullFileName);

		TBool result=EFalse;

		User::LeaveIfError(aApparcServer.RecognizeSpecificData(file, TDataType(expectedDataType), result));

		TEST(result);

		TestFilePosition(file, originalFilePosition);

		CleanupStack::PopAndDestroy(&file);

		}

		{

		HBufC8* const buffer=OpenFileAndReadBufferLC(aApparcServer, aFileServer, fullFileName);

		TDataRecognitionResult dataRecognitionResult;

		dataRecognitionResult.Reset();

		APPFWK_EXPECTED_PLATSEC_START;

		User::LeaveIfError(aApparcServer.RecognizeData(fullFileName, *buffer, dataRecognitionResult));

		APPFWK_EXPECTED_PLATSEC_FINISH;

		TEST(dataRecognitionResult.iConfidence>=CApaDataRecognizerType::EProbable);

		TEST(dataRecognitionResult.iDataType.Des8().CompareF(expectedDataType)==0);

		CleanupStack::PopAndDestroy(buffer);

		}

		{

		HBufC8* const buffer=OpenFileAndReadBufferLC(aApparcServer, aFileServer, fullFileName);

		TBool result=EFalse;

		User::LeaveIfError(aApparcServer.RecognizeSpecificData(fullFileName, *buffer, TDataType(expectedDataType), result));

		TEST(result);

		CleanupStack::PopAndDestroy(buffer);

		}

		}

	}

/**

   @SYMTestCaseID T_NonNativeAppsStep-TestStartDocumentL

   @SYMDEF	DEF065742

   @SYMTestCaseDesc Tests StartDocument API for non native applications.

   @SYMTestPriority High

   @SYMTestStatus Implemented

   @SYMTestActions	Call StartDocument, either with the file name as a parameter or a file handle. The test presupposes that when

   		the file is passed by name, it can't be oppened as it's in a private folder (since the app doesn't have AllFiles capability).

   		These provokes few negative platsec errors in the epocwind.out file.

   		On the other hand, when the file is passed by handle, there are no problems opening the file. No platsec errors should be reported.

   		API Calls:\n	

   		RApaLsSession::StartDocument(const TDesC &aFileName, TThreadId &aThreadId, TLaunchType aLaunchType=ELaunchNewApp);\n

   		RApaLsSession::StartDocument(RFile &aFile, TThreadId &aThreadId, TRequestStatus *aRequestStatusForRendezvous=0);\n

   		RApaLsSession::StartDocument(const TDesC &aFileName, const TDataType &aDataType, TThreadId &aThreadId, TLaunchType aLaunchType=ELaunchNewApp);\n

   		RApaLsSession::StartDocument(RFile &aFile, const TDataType &aDataType, TThreadId &aThreadId, TRequestStatus *aRequestStatusForRendezvous=0);\n

   @SYMTestExpectedResults Test the requeststatus obtained match the expected one.

 */

void CT_NonNativeAppsStep::TestStartDocumentL(RApaLsSession& aApparcServer, RFs& aFileServer, const RTstFileArray& aFileArray)

	{

	INFO_PRINTF1(_L("Testing StartDocumentL()..."));

	for (TInt i=aFileArray.Count()-1; i>=0; --i)

		{

		TPtrC fullFileName;

		TPtrC8 expectedDataType;

		aFileArray.Get(fullFileName, expectedDataType, i);

		TPtrC fileNameWithoutDriveOrPath(TParsePtrC(fullFileName).NameAndExt());

		INFO_PRINTF2(_L("..using following file: '%S'"), &fileNameWithoutDriveOrPath);

		for (TInt j=0; j<2; ++j)

			{

			const TUid serviceUid=(j==0)? KTstServiceUid_nonSecure: KTstServiceUid_secure;

			{

			RFile file;

			TInt originalFilePosition=0;

			OpenFileAndSetFilePositionToSomewhereUnusualLC(file, originalFilePosition, aFileServer, fullFileName);

			TThreadId threadId;

			TRequestStatus requestStatusForRendezvous;

			User::LeaveIfError(aApparcServer.StartDocument(file, threadId, &requestStatusForRendezvous));

			User::WaitForRequest(requestStatusForRendezvous);

			TEST(RTstAppService::DoTestL(serviceUid, ETrue, fileNameWithoutDriveOrPath) == KCheckPass);

			TestFilePosition(file, originalFilePosition);

			CleanupStack::PopAndDestroy(&file);

			}

			{

			RFile file;

			TInt originalFilePosition=0;

			OpenFileAndSetFilePositionToSomewhereUnusualLC(file, originalFilePosition, aFileServer, fullFileName);

			TThreadId threadId;

			TRequestStatus requestStatusForRendezvous;

			User::LeaveIfError(aApparcServer.StartDocument(file, TDataType(expectedDataType), threadId, &requestStatusForRendezvous));

			User::WaitForRequest(requestStatusForRendezvous);

			TEST(RTstAppService::DoTestL(serviceUid, ETrue, fileNameWithoutDriveOrPath) == KCheckPass);

			TestFilePosition(file, originalFilePosition);

			CleanupStack::PopAndDestroy(&file);

			}

			{

			RFile file;

			TInt originalFilePosition=0;

			OpenFileAndSetFilePositionToSomewhereUnusualLC(file, originalFilePosition, aFileServer, fullFileName);

			TThreadId threadId;

			TRequestStatus requestStatusForRendezvous;

			User::LeaveIfError(aApparcServer.StartDocument(file, TUid::Uid(0x10207f92), threadId, &requestStatusForRendezvous));

			User::WaitForRequest(requestStatusForRendezvous);

			TEST(RTstAppService::DoTestL(serviceUid, ETrue, fileNameWithoutDriveOrPath) == KCheckPass);

			TestFilePosition(file, originalFilePosition);

			CleanupStack::PopAndDestroy(&file);

			}

			{

			TThreadId threadId;

			//due to access of file in private folder

			APPFWK_EXPECTED_PLATSEC_START;

			User::LeaveIfError(aApparcServer.StartDocument(fullFileName, threadId));

			APPFWK_EXPECTED_PLATSEC_FINISH;

			TEST(RTstAppService::DoTestL(serviceUid, EFalse, fileNameWithoutDriveOrPath) == KCheckPass);

			}

			{

			TThreadId threadId;

			User::LeaveIfError(aApparcServer.StartDocument(fullFileName, TDataType(expectedDataType), threadId));

			TEST(RTstAppService::DoTestL(serviceUid, EFalse, fileNameWithoutDriveOrPath) == KCheckPass);

			}

			{