/*
* Copyright (c) 1997-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 <e32test.h>
#include <e32svr.h>

#include <txtrich.h>
#include <txtglobl.h>

/* this fixes a MSVC link warning */
#ifdef __VC32__
#pragma comment (linker, "/opt:noref") 
#endif

#define UNUSED_VAR(a) a = a

#ifdef NDEBUG
const TInt KGlobalTextATest1=100000;
const TInt KGlobalTextATest2=100000;
const TInt KGlobalTextATest3=1000;
const TInt KRichTextTest1=10000;
const TInt KRichTextTest2=10000;
const TInt KRichTextTest3=1000;
const TInt KGlobalTextBTest1=10000;
const TInt KGlobalTextBTest2=10000;
const TInt KGlobalTextBTest3=1000;
const TInt KCharFormatLayerTest=100000;
#else
const TInt KGlobalTextATest1=100000;
const TInt KGlobalTextATest2=100000;
const TInt KGlobalTextATest3=1000;
const TInt KRichTextTest1=5000;
const TInt KRichTextTest2=5000;
const TInt KRichTextTest3=100;
const TInt KGlobalTextBTest1=5000;
const TInt KGlobalTextBTest2=5000;
const TInt KGlobalTextBTest3=100;
const TInt KCharFormatLayerTest=100000;
#endif


LOCAL_D CTrapCleanup* TheTrapCleanup;
LOCAL_D RTest test(_L("CRichText Document"));
LOCAL_D CGlobalText* TheText;
LOCAL_D CParaFormatLayer* TheParaFormatLayer;
LOCAL_D CCharFormatLayer* TheCharFormatLayer;
LOCAL_D const TInt KTestCleanupStack=0x200;

LOCAL_C void GenerateGlobalLayersL()
// Provides the base layers for globl text and below
//
	{
	TParaFormatMask paraMask;
	TheParaFormatLayer=CParaFormatLayer::NewL((CParaFormat*)NULL,paraMask);
	TCharFormat charFormat;
	TCharFormatMask charMask;
	TheCharFormatLayer=CCharFormatLayer::NewL(charFormat,charMask);
	}

LOCAL_C void GenerateGlobalTextL()
// Provide an instantiated global text object
//
	{
	GenerateGlobalLayersL();
	TheText=CGlobalText::NewL(TheParaFormatLayer,TheCharFormatLayer);
	}

LOCAL_C void GenerateBasicRichTextL()
// Provide a default instantiated rich text object
//
	{TheText=CRichText::NewL(TheParaFormatLayer,TheCharFormatLayer);}

LOCAL_C void KillGlobalLayers()
// Destroy the base layers for global text and below
//
	{
	delete TheParaFormatLayer;
	delete TheCharFormatLayer;
	TheParaFormatLayer=NULL;
	TheCharFormatLayer=NULL;
	}

LOCAL_C void KillText()
	{
	delete TheText;
	TheText=NULL;
	}


LOCAL_C void LoadLongDocument()
//
	{
	TFileName file;

	file=(_L("z:\\test\\app-framework\\etext\\climb.txt"));
	TheText->Reset();
	TInt count=0;
	TRAPD(ret,
	count=TheText->ImportTextFileL(0,file,CPlainText::EOrganiseByParagraph));
	test(ret==KErrNone);
	test(count>0); // check for equality later
	}


LOCAL_C void CallGetChars(TInt aStartPos,TInt aCharacterCount,TInt aLineLength)
//
	{
	TPtrC view;
	TCharFormat charFormat;
	TInt consumed=aStartPos;
	while (consumed<=aStartPos+aCharacterCount)
		{
		TheText->GetChars(view,charFormat,consumed);
		consumed+=Min(view.Length(),aLineLength);
		}
	}

LOCAL_C void GetTimesForGetChars(TInt aLoopCount,TInt aStartPos,TInt aCharacterCount,TInt aLineLength)
//
//
	{
	//
	for (TInt loop=0;loop<aLoopCount;loop++)
		{
		CallGetChars(aStartPos,aCharacterCount,aLineLength);
		}
	}


LOCAL_C void DoLongDocumentTestL(TInt aTest1Count,TInt aTest2Count,TInt aTest3Count)
//
//
	{
	LoadLongDocument();
	TCharFormat charFormat;
	TCharFormatMask mask;
	mask.SetAttrib(EAttFontStrokeWeight);
	TheText->ApplyCharFormatL(charFormat,mask,100,2);
	TInt documentLength=TheText->DocumentLength();
	TInt paraCount=TheText->ParagraphCount();
	TInt wordCount=TheText->WordCount();
	TBuf<80> stats;
	stats.Format(_L("Document Stats:\nChars: %d\nWords: %d\nParas: %d\n"),documentLength,wordCount,paraCount);
	test.Printf(stats);
	RDebug::Print(_L("%S"),&stats);
	TBuf<80> testTitle;
	//
	testTitle.Format(_L("Pos: 0-100  %d times"),aTest1Count);
	test.Start(testTitle);
	GetTimesForGetChars(aTest1Count,0,100,50);
	//
	testTitle.Format(_L("Pos: 18200-18300 %d times"),aTest2Count);
	test.Next(testTitle);
	GetTimesForGetChars(aTest2Count,18200,100,50);
	//
	testTitle.Format(_L("Pos: all %d times"),aTest3Count);
	test.Next(testTitle);
	GetTimesForGetChars(aTest3Count,0,documentLength,50);
	//
	test.End();
	}


LOCAL_C void DoGetCharFormatLayerReadTimesL(TInt aLoopCount)
//
	{
	//
	// Now take some times.
	TCharFormat charFormat;
	TCharFormatMask charMask;
	for (TInt loop=0;loop<aLoopCount;loop++)
		{
		charMask.ClearAll();  // this is used for readings.

		TheCharFormatLayer->Sense(charFormat,charMask);

		}
	// Display the metric
	TBuf<60> context;
	context.Format(_L("10 att X %d loops=%d atts\n"),aLoopCount,10*aLoopCount);
	test.Printf(context);
	RDebug::Print(_L("%S"),&context);
	}


LOCAL_C void DoEmptyCharFormatLayerReadL(TInt aLoopCount)
//	
	{DoGetCharFormatLayerReadTimesL(aLoopCount);}


LOCAL_C void DoCharFormatLayerReadL(TInt aLoopCount)
// tests times of reading attributes from a CCharFormatLayer
//
	{
	// Fill the character format layer
	TCharFormat charFormat(_L("Times New Roman"),180);
	TCharFormatMask charMask;
	charMask.SetAll();
	TheCharFormatLayer->SetL(charFormat,charMask);
	//
	// Take times
	DoGetCharFormatLayerReadTimesL(aLoopCount);
	}


LOCAL_C void FormatLayerTestL()
// Time tests on format layer access.
//
	{
	test.Start(_L("CCharFormatLayer - Attribute reads"));
	GenerateGlobalLayersL();
	//
	TBuf<80> testTitle;
	testTitle.Format(_L("Reading empty char format layer %d times"),KCharFormatLayerTest);
	test.Next(testTitle);
	DoEmptyCharFormatLayerReadL(KCharFormatLayerTest);
	//
	testTitle.Format(_L("Read 10 attributes from layer %d times"),KCharFormatLayerTest);
	test.Next(testTitle);
	TRAPD(ret, DoCharFormatLayerReadL(KCharFormatLayerTest));
	test(ret==KErrNone);
	//
	KillGlobalLayers();
	test.End();
	}


LOCAL_C void LongDocumentTestL()
//
	{
	//
	test.Start(_L("Global text - Empty layers"));
	GenerateGlobalTextL();
	DoLongDocumentTestL(KGlobalTextATest1,KGlobalTextATest2,KGlobalTextATest3);
	KillText();
	//
	test.Next(_L("Rich text - Empty layers"));
	GenerateBasicRichTextL();
	DoLongDocumentTestL(KRichTextTest1,KRichTextTest2,KRichTextTest3);
	KillText();
	KillGlobalLayers();
	//
	test.Next(_L("Global text - 2 character attributes stored"));
	GenerateGlobalTextL();
	TBuf<5> name=_L("SWiss");
	TCharFormat charFormat(name,178);
	TCharFormatMask charMask;
	charMask.SetAttrib(EAttFontTypeface);
	charMask.SetAttrib(EAttFontHeight);
	TRAPD(ret,
	TheCharFormatLayer->SetL(charFormat,charMask));
	test(ret==KErrNone);
	DoLongDocumentTestL(KGlobalTextBTest1,KGlobalTextBTest2,KGlobalTextBTest3);
	KillText();
	//
	test.Next(_L("Rich text - 2 charcter attributes stored"));
	GenerateBasicRichTextL();
	DoLongDocumentTestL(KRichTextTest1,KRichTextTest2,KRichTextTest3);
	KillText();
	//
	KillGlobalLayers();
	test.End();
	}
	

LOCAL_C void DoTestsL()
//
	{
	test.Start(_L(" @SYMTestCaseID:SYSLIB-TTEXT-LEGACY-T_TIMES-0001 Long document tests "));
	LongDocumentTestL();
	//
	test.Next(_L("Format layer tests"));
	FormatLayerTestL();
	//
	}


LOCAL_C void setupCleanup()
//
// Initialise the cleanup stack.
//
    {

	TheTrapCleanup=CTrapCleanup::New();
	TRAPD(r,\
		{\
		for (TInt i=KTestCleanupStack;i>0;i--)\
			CleanupStack::PushL((TAny*)1);\
		test(r==KErrNone);\
		CleanupStack::Pop(KTestCleanupStack);\
		});
	}



GLDEF_C TInt E32Main()
//
// Test the Document Model Services.
//
    {
	setupCleanup();
	test.Title();	
	__UHEAP_MARK;
	
	TRAPD(ret,DoTestsL());
    test(ret == KErrNone);
	
	test.End();
	test.Close();
	__UHEAP_MARKEND;
	delete TheTrapCleanup;
	return(0);
    }