/*
* 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
* @internalComponent 
*
*/


#include <e32std.h>
#include <e32test.h>
#include <frmtlay.h>
#include <frmtview.h>
#include <txtlaydc.h>
#include <fbs.h>
#include <w32std.h>
#include <bitdev.h>
#include <txtrich.h>

namespace LocalToFile {

_LIT(KTformhindi, "tformhindi");
const TInt KDisplayWidth = 100;
const TInt KDisplayHeight = 100;
RTest test(KTformhindi);
_LIT(KDevanagariFontName, "Devanagari OT Eval");

}
using namespace LocalToFile;

_LIT(KTestDeva, "|\x915\x94d\x92b|\x907|\x920\x94d\x920|");
_LIT(KTestBidi, "|\x915|\x644|\x920|");
_LIT(KTestDeva2, "|\x917|\x91c|\x92f\x93f|\x924\x94d\x932\x940|\x917|");

static const TInt KZeroWidthJoiner = 0x200d;

/** Test that the deletions occur in expected places.
Expected places should be marked by '|' (pipe character).
These will be removed prior to the test.
@internalComponent
*/
void TestDeletePosition(const TDesC& aTestText, CRichText* aRichText,
	CTextView* aTextView)
	{
	TBuf<100> text;
	TInt positions[20];
	TInt positionCount = 0;

	TInt ttlen = aTestText.Length();
	for (TInt i = 0; i != ttlen; ++i)
		{
		TInt c = aTestText[i];
		if (c == '|')
			{
			positions[positionCount] = text.Length();
			++positionCount;
			}
		else
			text.Append(c);
		}

	aRichText->Reset();
	aRichText->InsertL(0, text);
	TCharFormat format(KDevanagariFontName, 200);
	TCharFormatMask mask;
	mask.SetAttrib(EAttFontTypeface);
	aRichText->ApplyCharFormatL(format, mask, 0, text.Length());
	aTextView->FormatTextL();

	for (TInt j = 0; j < positionCount - 1; ++j)
		{
		aTextView->SetDocPosL(positions[j], EFalse);
		TInt pos = aTextView->GetForwardDeletePositionL().HigherPos();
		test(pos == positions[j + 1]);
		aTextView->SetDocPosL(positions[j], ETrue);
		pos = aTextView->GetForwardDeletePositionL().HigherPos();
		test(pos == positions[j + 1]);
		aTextView->SetDocPosL(positions[j + 1], EFalse);
		pos = aTextView->GetBackwardDeletePositionL().LowerPos();
		test(pos == positions[j]);
		aTextView->SetDocPosL(positions[j + 1], ETrue);
		pos = aTextView->GetBackwardDeletePositionL().LowerPos();
		test(pos == positions[j]);
		}

	aRichText->Reset();
	}


// DEF101191: FORM always splits chunks at ZWJ character

class CPDEF_101617_CustomDraw : public MFormCustomDraw
{
public:
	CPDEF_101617_CustomDraw() :
		iLeftChunk(),
		iRightChunk(),
		iChunk(0)
		{
		}
	virtual ~CPDEF_101617_CustomDraw() {}

	void setExpectedChunk(const TDesC& aChunk)
	{
		iLeftChunk = aChunk;
		iRightChunk.Zero();
		iChunk = 0;
	}
	void setExpectedChunks(const TDesC& aLeftChunk, const TDesC& aRightChunk)
	{
		iLeftChunk = aLeftChunk;
		iRightChunk = aRightChunk;
		iChunk = 0;
	}

	// MFormCustomDraw
	virtual void DrawText(const TParam& /*aParam*/, const TLineInfo& /*aLineInfo*/, const TCharFormat& /*aFormat*/,
		const TDesC& aText, const TPoint& /*aTextOrigin*/, TInt /*aExtraPixels*/) const
		{
		TBool containsZWJ = EFalse;

		TBuf<100> text;
		TInt len = aText.Length();
		for (TInt i = 0; i < len; i++)
			{
			// remove 0xffff
			if (0xffff != aText[i])
				{
				text.Append(aText[i]);
				if (KZeroWidthJoiner == aText[i])
					{
					containsZWJ = ETrue;
					}
				}
			}

		// check that the text was splitted as expected
		if (containsZWJ || iChunk > 0)
			{
			// the first chunk with a LZW should be equal to iLeftChunk
			if (0 == iChunk)
				{
				test(text == iLeftChunk);
				iChunk++;
				}
			// the following chunk should be equal to iRightChunk, if it is not-null.
			else if (1 == iChunk && iRightChunk.Size() > 0)
				{
				test(text == iRightChunk);
				iChunk++;
				}
			// just ignore the following chunks
			}
		}

private:
	TBuf<100> iLeftChunk;
	TBuf<100> iRightChunk;
	mutable TInt iChunk; // modified in a const method
};

void PDEF_101617_DefectL(CRichText* aRichText, CTextView* aTextView)
	{
	TCharFormat format(KDevanagariFontName, 200);
	TCharFormatMask mask;
	mask.SetAttrib(EAttFontTypeface);

	CPDEF_101617_CustomDraw* customDrawer = new CPDEF_101617_CustomDraw;
	CleanupStack::PushL(customDrawer);

	CTextLayout* layout = const_cast<CTextLayout*>(aTextView->Layout());
	layout->SetCustomDraw(customDrawer);

	TRect rect(0, 0, 300, 100);

	// 1. test the sequence Sha, Virama, ZWJ, Va,Sha, EndOfParagraph
	_LIT(KTestDevaZWJ1, "\x0936\x094d\x200d\x0935\x0936\x2029");
	TPtrC text1(KTestDevaZWJ1().Ptr(), KTestDevaZWJ1().Length());

	// the text should not be split and should remain a single chunk...
	_LIT(KTestDevaZWJ1_LeftChunk, "\x0936\x094d\x200d\x0935\x0936");

	customDrawer->setExpectedChunk(KTestDevaZWJ1_LeftChunk);

	aRichText->Reset();
	aRichText->InsertL(0, text1);
	aRichText->ApplyCharFormatL(format, mask, 0, text1.Length());
	aTextView->FormatTextL();
	aTextView->DrawL(rect);


	// 2. test the sequence Sha,ZWJ,Virama, Va, EndOfParagraph
	_LIT(KTestDevaZWJ2, "\x0936\x200d\x094d\x0935\x2029");
	TPtrC text2(KTestDevaZWJ2().Ptr(), KTestDevaZWJ2().Length());

	// the text should be split at the bidirectionality change
	_LIT(KTestDevaZWJ2_LeftChunk, "\x0936\x200d\x094d\x0935");

	customDrawer->setExpectedChunk(KTestDevaZWJ2_LeftChunk);

	aRichText->Reset();
	aRichText->InsertL(0, text2);
	aRichText->ApplyCharFormatL(format, mask, 0, text2.Length());
	aTextView->FormatTextL();
	aTextView->DrawL(rect);

	// 3. test the sequence Sha, Virama, ZWJ,Alef(Hebrew) EndOfParagraph
	_LIT(KTestDevaZWJ3, "\x0936\x094d\x200d\x05D0\x2029");
	TPtrC text3(KTestDevaZWJ3().Ptr(), KTestDevaZWJ3().Length());

	// the text should be split keeping ZWJ (0x200d) at the end of the first chunk...
	_LIT(KTestDevaZWJ3_LeftChunk, "\x0936\x094d\x200d");
	// ... and placing another ZWJ at the start of the second chunk (right to left text)
	_LIT(KTestDevaZWJ3_RightChunk, "\x05D0\x200d");

	customDrawer->setExpectedChunks(KTestDevaZWJ3_LeftChunk, KTestDevaZWJ3_RightChunk);

	aRichText->Reset();
	aRichText->InsertL(0, text3);
	aRichText->ApplyCharFormatL(format, mask, 0, text3.Length());
	aTextView->FormatTextL();
	aTextView->DrawL(rect);

	// 4. test the sequence Sha, Virama, ZWJ, Va,Alef(Hebrew) EndOfParagraph
	_LIT(KTestDevaZWJ4, "\x0936\x094d\x200d\x0935\x05D0\x2029");
	TPtrC text4(KTestDevaZWJ4().Ptr(), KTestDevaZWJ4().Length());

	// the text should be split at the bidirectionality change
	_LIT(KTestDevaZWJ4_LeftChunk, "\x0936\x094d\x200d\x0935");
	_LIT(KTestDevaZWJ4_RightChunk, "\x05D0");

	customDrawer->setExpectedChunks(KTestDevaZWJ4_LeftChunk, KTestDevaZWJ4_RightChunk);

	aRichText->Reset();
	aRichText->InsertL(0, text4);
	aRichText->ApplyCharFormatL(format, mask, 0, text4.Length());
	aTextView->FormatTextL();
	aTextView->DrawL(rect);

	aRichText->Reset();

	layout->SetCustomDraw(NULL);
	CleanupStack::PopAndDestroy(customDrawer);
	}


/** @SYMTestCaseID SYSLIB-FORM-UT-1532
@SYMTestCaseDesc
	Test delete-by-syllable within Hindi text.
@SYMTestPriority High
@SYMTestActions
	Format some Devanagari, test result of calling GetForwardDeletePositionL
	and GetBackwardDeletePositionL for various inputs.
@SYMTestExpectedResults
	Success if the font "Devanagari OT Eval" is present, Not Run if it is not.
	This font is licensed to Symbian by Monotype Imaging Ltd. for internal
	testing only and so is not distributed with the SDK. Therefore users
	outside of Symbian will experience Not Run unless they have also
	obtained this font.
@SYMPREQ PREQ18 */
void TestTextViewL(CRichText* aRichText,
	CTextView* aTextView)
	{
	// Test devanagari delete-by-syllable
	test.Start(_L(" @SYMTestCaseID:SYSLIB-FORM-UT-1532 Test some simple Hindi "));
	TestDeletePosition(KTestDeva, aRichText, aTextView);

	// Test Bidi
	// The Arabic character is not present in this font, not even
	// as a fallback glyph. This allows us to exercise a fixes for
	// a latent defect.
	test.Next(_L("Test with characters not in font"));
	TestDeletePosition(KTestBidi, aRichText, aTextView);

	// Test sample suggested by customer
	test.Next(_L("Test Hindi #2"));
	TestDeletePosition(KTestDeva2, aRichText, aTextView);

	// regression test for PDEF101617: FORM always splits chunks at ZWJ character
	test.Next(_L("Regression test: PDEF101617"));
	PDEF_101617_DefectL(aRichText, aTextView);

	test.End();
	}

void TestL(CFbsScreenDevice* aDevice)
	{
	CParaFormatLayer* paraFormat = CParaFormatLayer::NewL();
	CleanupStack::PushL(paraFormat);
	CCharFormatLayer* charFormat = CCharFormatLayer::NewL();
	CleanupStack::PushL(charFormat);
	CRichText* text = CRichText::NewL(paraFormat, charFormat);
	CleanupStack::PushL(text);
	TRect displayRect(0, 0, KDisplayWidth, KDisplayHeight);
	CTextLayout* layout = CTextLayout::NewL(text, displayRect.Width());
	CleanupStack::PushL(layout);
	CTextView* view = CTextView::NewL(layout, displayRect,
		aDevice, aDevice, 0, 0, 0);
	CleanupStack::PushL(view);
	TestTextViewL(text, view);
	CleanupStack::PopAndDestroy(view);
	CleanupStack::PopAndDestroy(layout);
	CleanupStack::PopAndDestroy(text);
	CleanupStack::PopAndDestroy(charFormat);
	CleanupStack::PopAndDestroy(paraFormat);
	}

void MainL()
	{
	TInt error = RFbsSession::Connect();
	if (error == KErrNotFound)
		{
		FbsStartup();
		User::LeaveIfError(RFbsSession::Connect());
		}
	CFbsScreenDevice* screenDevice = 0;
	
	TRAP(error, screenDevice = CFbsScreenDevice::NewL(0,EColor16M));
	if (error == KErrNotSupported)
		TRAP(error, screenDevice = CFbsScreenDevice::NewL(0,EColor16MA));
	if (error == KErrNotSupported)
		TRAP(error, screenDevice = CFbsScreenDevice::NewL(0,EColor16MU));
	if (error == KErrNotSupported)
		TRAP(error, screenDevice = CFbsScreenDevice::NewL(0,EColor64K));
	if (error == KErrNotSupported)
		TRAP(error, screenDevice = CFbsScreenDevice::NewL(0,EColor4K));
	if (error == KErrNotSupported)
		TRAP(error, screenDevice = CFbsScreenDevice::NewL(0,EColor256));
	if (error == KErrNotSupported)
		TRAP(error, screenDevice = CFbsScreenDevice::NewL(0,EColor16));
	if (error == KErrNotSupported)
		TRAP(error, screenDevice = CFbsScreenDevice::NewL(0,EGray256));
	if (error == KErrNotSupported)
		TRAP(error, screenDevice = CFbsScreenDevice::NewL(0,EGray16));
	if (error == KErrNotSupported)
		TRAP(error, screenDevice = CFbsScreenDevice::NewL(0,EGray4));
	if (error == KErrNotSupported)
		screenDevice = CFbsScreenDevice::NewL(0,EGray2);
	
	CleanupStack::PushL(screenDevice);
	screenDevice->ChangeScreenDevice(0);
	screenDevice->SetAutoUpdate(ETrue);
	CGraphicsContext* gc;
	User::LeaveIfError(screenDevice->CreateContext(gc));
	CleanupStack::PushL(gc);
	TFontSpec fs(KDevanagariFontName, 16);
	CFont* devaFont;
	User::LeaveIfError(screenDevice->GetNearestFontInPixels(devaFont, fs));
	TFontSpec fontSpec = devaFont->FontSpecInTwips();
	if(0 != fontSpec.iTypeface.iName.Compare(KDevanagariFontName))
		{
		// Test font not found.
		User::Leave(KErrNotFound);
		}
	CActiveScheduler* scheduler = new(ELeave) CActiveScheduler;
	CleanupStack::PushL(scheduler);
	CActiveScheduler::Install(scheduler);

	// We know that we have everything we need now, so we'll start the test!
	// A failure before this point would show up in the logs as "not run" rather
	// than "failed".
	test.Title();
	test.Start(_L("Test forward/backward delete for Hindi"));
	TRAP(error, TestL(screenDevice));
	test.End();
	test.Close();
	CleanupStack::PopAndDestroy(scheduler);
	CleanupStack::PopAndDestroy(gc);
	CleanupStack::PopAndDestroy(screenDevice);
	RFbsSession::Disconnect();
	User::LeaveIfError(error);
	}

TInt E32Main()
	{
	static CTrapCleanup* TrapCleanup = CTrapCleanup::New();
	if (!TrapCleanup)
		return KErrNoMemory;
	TRAPD(error, MainL());
	delete TrapCleanup;
	return error;
	}