/*
* Copyright (c) 2008-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 "testharness.h"
#include <bitdev.h>
#include <fntstore.h>
#include <fbs.h>
#include <test/testexecutestepbase.h>
#include <graphics/fbsdefs.h>

CTestHarness::CTestHarness(CTestStep* aStep) :
		iStep(aStep)
	{
	iStep -> INFO_PRINTF1(iStep -> TestStepName());
	}

CTestHarness* CTestHarness::NewL(CTestStep* aStep)
	{
	CTestHarness* t = new (ELeave)CTestHarness (aStep);
	CleanupStack::PushL(t);
	t->ConstructL();
	CleanupStack::Pop();
	return t;
	}

void CTestHarness::ConstructL()
	{
	User::LeaveIfError(FbsStartup());
	
	RFbsSession::Connect();
	iFbs = RFbsSession::GetSession();
	if (iFbs == NULL)
		User::Leave(KErrGeneral);

	TRAPD(error, iDev = CFbsScreenDevice::NewL(_L("scdv"),EColor16M));
	if (error == KErrNotSupported)
		TRAP(error, iDev = CFbsScreenDevice::NewL(_L("scdv"),EColor16MA));
	if (error == KErrNotSupported)
		TRAP(error, iDev = CFbsScreenDevice::NewL(_L("scdv"),EColor16MU));
	if (error == KErrNotSupported)
		TRAP(error, iDev = CFbsScreenDevice::NewL(_L("scdv"),EColor64K));
	if (error == KErrNotSupported)
		TRAP(error, iDev = CFbsScreenDevice::NewL(_L("scdv"),EColor4K));
	if (error == KErrNotSupported)
		TRAP(error, iDev = CFbsScreenDevice::NewL(_L("scdv"),EColor256));
	if (error == KErrNotSupported)
		TRAP(error, iDev = CFbsScreenDevice::NewL(_L("scdv"),EColor16));
	if (error == KErrNotSupported)
		TRAP(error, iDev = CFbsScreenDevice::NewL(_L("scdv"),EGray256));
	if (error == KErrNotSupported)
		TRAP(error, iDev = CFbsScreenDevice::NewL(_L("scdv"),EGray16));
	if (error == KErrNotSupported)
		TRAP(error, iDev = CFbsScreenDevice::NewL(_L("scdv"),EGray4));
	if (error == KErrNotSupported)
		TRAP(error, iDev = CFbsScreenDevice::NewL(_L("scdv"),EGray2));
	if (error == KErrNotSupported)
		TRAP(error, iDev = CFbsScreenDevice::NewL(_L("scdv"),EColor16MAP));
	
	if(error == KErrNone)
		{
		iDev->ChangeScreenDevice(NULL);
		iDev->SetAutoUpdate(ETrue);
		iDev->CreateContext(iGc);

		TFontSpec fs(_L("DejaVu Sans Condensed"),16);
		error = iDev->GetNearestFontToDesignHeightInPixels((CFont*&)iStandardFont,fs);
		if (error)
			User::Panic(_L("Could not create 16-pixel DejaVu Sans Condensed"),error);
		}
	}

CTestHarness::~CTestHarness()
	{
	if (iStandardFont)
		iDev->ReleaseFont(iStandardFont);
	delete iGc;
	delete iDev;
	RFbsSession::Disconnect();
	}

void CTestHarness::PerformTests()
	{
	iStep->INFO_PRINTF1(_L("Test started"));
	
	TInt typefaces = iDev->NumTypefaces();
	for (int typeface = 0; typeface < typefaces; typeface++)
		{
		TestFont(typeface);
		}
		
	iStep->INFO_PRINTF1(_L("Test ended"));
	}
	
void CTestHarness::TestFont(TInt aTypeface)
	{
	TTypefaceSupport support;
	iDev->TypefaceSupport(support,aTypeface);
	
	TBuf<50> testInfo;
	testInfo.Append(_L("Testing typeface: "));
	testInfo.Append(support.iTypeface.iName);
	iStep->INFO_PRINTF1(testInfo);
	
	const TInt pointsizes = 9;
	static TInt pointsize[pointsizes] = { 8, 10, 12, 14, 16, 20, 24, 48, 200 };
	TInt i = 0;
	for (i = 0; i < (pointsizes-2); i++)
		{
		TestFontDisplayAtSize(support, pointsize[i], i & 1);
		}
		
	TestFontMetricsDiagram(support, pointsize[i], i & 1);
	i++;
	
	TestFontHugeCharacters(support, pointsize[i], i & 1);
	}
	
void CTestHarness::TestFontDisplayAtSize(TTypefaceSupport& aSupport, TInt aPointSize, TBool aItalic)
	{
	TBuf<50> testInfo;
	testInfo.Append(_L("Testing font size: "));
	TBuf<10> num;
	num.Num(aPointSize);
	testInfo.Append(num);
	iStep->INFO_PRINTF1(testInfo);
	
	TFontSpec fs;

	fs.iTypeface = aSupport.iTypeface;
	fs.iHeight = aPointSize * 20;
	if (aItalic)
		{
		fs.iFontStyle.SetPosture(EPostureItalic);
		}
	iTestFont = NULL;
	TInt error = iDev->GetNearestFontToDesignHeightInTwips((CFont*&)iTestFont,fs);
	if (error)
		User::Panic(_L("Could not create font"),error);
	if (!iTestFont->IsOpenFont())
		{
		iDev->ReleaseFont(iTestFont);
		iTestFont = NULL;
		return;
		}
	PrintMetrics();
	DisplayFont();
	iDev->ReleaseFont(iTestFont);
	}

void CTestHarness::TestFontMetricsDiagram(TTypefaceSupport& aSupport, TInt aPointSize, TBool aItalic)
	{
	TBuf<50> testInfo;
	testInfo.Append(_L("Testing font metrics: "));
	TBuf<10> num;
	num.Num(aPointSize);
	testInfo.Append(num);
	iStep->INFO_PRINTF1(testInfo);
	
	TFontSpec fs;
	fs.iTypeface = aSupport.iTypeface;
	fs.iHeight = aPointSize * 20;
	if (aItalic)
		{
		fs.iFontStyle.SetPosture(EPostureItalic);
		}
	iTestFont = NULL;
	TInt error = iDev->GetNearestFontToDesignHeightInTwips((CFont*&)iTestFont,fs);
	if (error)
		User::Panic(_L("Could not create font"),error);
	if (!iTestFont->IsOpenFont())
		{
		iDev->ReleaseFont(iTestFont);
		iTestFont = NULL;
		return;
		}
	PrintMetrics();
	DrawMetricsDiagram();
	iDev->ReleaseFont(iTestFont);
	}
	
void CTestHarness::TestFontHugeCharacters(TTypefaceSupport& aSupport, TInt aPointSize, TBool aItalic)
	{
	TBuf<50> testInfo;
	testInfo.Append(_L("Testing huge characters: "));
	TBuf<10> num;
	num.Num(aPointSize);
	testInfo.Append(num);
	iStep->INFO_PRINTF1(testInfo);
	
	TFontSpec fs;
	fs.iTypeface = aSupport.iTypeface;
	fs.iHeight = aPointSize * 20;
	if (aItalic)
		fs.iFontStyle.SetPosture(EPostureItalic);
	iTestFont = NULL;
	TInt error = iDev->GetNearestFontToDesignHeightInTwips((CFont*&)iTestFont,fs);
	if (error)
		User::Panic(_L("Could not create font"),error);
	if (!iTestFont->IsOpenFont())
		{
		iDev->ReleaseFont(iTestFont);
		iTestFont = NULL;
		return;
		}
	PrintMetrics();
	DrawHugeCharacters();
	iDev->ReleaseFont(iTestFont);
	}
	
static void Hellenize(TDes16& text)
	{
	static const TUint16* roman = (TUint16*)(L"ABGDEZJQIKLMNXOPRVSTUFHCW");
	
	for (int i = 0; i < text.Length(); i++)
		for (int j = 0; j < 25; j++)
			if (roman[j] == text[i])
				{
				text[i] = (TUint16)(0x391 + j);
				break;
				}
			else if (roman[j] + 32 == text[i])
				{
				text[i] = (TUint16)(0x3B1 + j);
				break;
				}
	}

void CTestHarness::PrintMetrics(TBool isClear)
	{
	if(isClear)
		{
		Clear();	
		}
	
	UseFont(iStandardFont);
	TFontSpec fs = iTestFont->FontSpecInTwips();
	TOpenFontMetrics metrics;
	iTestFont->GetFontMetrics(metrics);
	TOpenFontFaceAttrib attrib;
	iTestFont->GetFaceAttrib(attrib);
	TPtrC name = attrib.LocalFullName();
	iBuffer.Format(_L("%S %dpt size=%d ascent=%d descent=%d maxheight=%d maxdepth=%d maxwidth=%d"),
				  &name,(fs.iHeight + 10) / 20,metrics.Size(),metrics.Ascent(),metrics.Descent(),
				  metrics.MaxHeight(),metrics.MaxDepth(),metrics.MaxWidth());
	Print(iBuffer);
	}

void CTestHarness::DisplayFont()
	{
	UseFont(iStandardFont);
	TOpenFontFaceAttrib attrib;
	iTestFont->GetFaceAttrib(attrib);
	iBuffer.SetLength(0);
	if (attrib.HasLatin())
		iBuffer.Append(_L("Latin, "));			  
	if (attrib.HasGreek())
		iBuffer.Append(_L("Greek, "));			  
	if (attrib.HasCyrillic())
		iBuffer.Append(_L("Cyrillic, "));			  
	if (attrib.HasKana())
		iBuffer.Append(_L("Kana (Japanese syllabaries), "));
	if (attrib.HasHangul())
		iBuffer.Append(_L("Hangul (Korean writing system), "));
	if (attrib.HasCJK())
		iBuffer.Append(_L("CJK (Chinese, Japanese & Korean ideographs), "));
	if (iBuffer.Length() == 0)
		iBuffer.Append(_L("(character sets unknown)"));
	else
		iBuffer.SetLength(iBuffer.Length() - 2);
	Print(iBuffer);

	UseFont(iTestFont);

	// Benchmark the rasterization of Ascii printable characters.
	const int count = 126 - 33 + 1;
	iBuffer.SetLength(count);
	int i;
	for (i = 0; i < count; i++)
		iBuffer[i] = (TText)(i + 33);
	TTime start, end;
	start.HomeTime();
	iTestFont->RawTextWidthInPixels(iBuffer);
	end.HomeTime();
	TTimeIntervalMicroSeconds time64 = end.MicroSecondsFrom(start);
	int time = I64INT(time64.Int64());

	start.HomeTime();
	for (i = 0; i < 100; i++)
		iTestFont->RawTextWidthInPixels(iBuffer);
	end.HomeTime();
	time64 = end.MicroSecondsFrom(start);
	int overhead = I64INT(time64.Int64()) / 100;
	time -= overhead;
	if (time <= 0)
		time = 1;

	iBuffer.Format(_L("%d characters rasterized per second"),
				  count * 1000000 / time);
	Print(iBuffer);
	iBuffer.UpperCase();
	Print(iBuffer);
	iBuffer = _L("sm\xf6rg\xe5sbord soup\xe7on na\xefvet\xe9");
	Print(iBuffer);
	iBuffer.UpperCase();
	Print(iBuffer);

	if (attrib.HasGreek())
		{
		iBuffer = _L("agjwmetrjsewv mjdeiv eisitw");
		Hellenize(iBuffer);
		Print(iBuffer);
		iBuffer.UpperCase();
		Print(iBuffer);
		}
	if (attrib.HasCyrillic())
		{
		iBuffer.SetLength(32);
		for (int i = 0; i < 32; i++)
			iBuffer[i] = (TText)(0x430 + i);
		Print(iBuffer);
		iBuffer.UpperCase();
		Print(iBuffer);
		}
	if (attrib.HasKana())
		{
		iBuffer.SetLength(32);
		int i;
		for (i = 0; i < 32; i++)
			iBuffer[i] = (TText)(0x3041 + i);
		Print(iBuffer);
		for (i = 0; i < iBuffer.Length(); i++)
			iBuffer[i] = (TText)User::Fold(iBuffer[i],TChar::EFoldKana);	// fold to katakana
		Print(iBuffer);
		}
	if (attrib.HasHangul())
		{
		iBuffer.SetLength(32);
		for (int i = 0; i < 32; i++)
			iBuffer[i] = (TText)(0x3131 + i);
		Print(iBuffer);
		}

	// Display characters from 4e00 that are found in all 6 encodings given in the Unicode table.
	if (attrib.HasCJK())
		{
		iBuffer.SetLength(15);
		iBuffer[0] = 0x4e00;
		iBuffer[1] = 0x4e01;
		iBuffer[2] = 0x4e03;
		iBuffer[3] = 0x4e07;
		iBuffer[4] = 0x4e08;
		iBuffer[5] = 0x4e09;
		iBuffer[6] = 0x4e0a;
		iBuffer[7] = 0x4e0b;
		iBuffer[8] = 0x4e0d;
		iBuffer[9] = 0x4e11;
		iBuffer[10] = 0x4e14;
		iBuffer[11] = 0x4e15;
		iBuffer[12] = 0x4e16;
		iBuffer[13] = 0x4e18;
		iBuffer[14] = 0x4e19;
		Print(iBuffer);
		}

	iGc->DiscardFont();
	}

void CTestHarness::DrawCharMetrics(TPoint& aPos,TInt aCode)
	{
	TOpenFontCharMetrics metrics;
	const TUint8* bytes;
	TSize size;
	iTestFont->GetCharacterData(aCode,metrics,bytes,size);
	TRect r;
	r.iTl = aPos;
	r.iTl.iX += metrics.HorizBearingX();
	r.iTl.iY += iBaseLine;
	r.iTl.iY -= metrics.HorizBearingY();
	r.iBr = r.iTl + TSize(metrics.Width(),metrics.Height());
	iGc->DrawRect(r);
	aPos.iX += metrics.HorizAdvance();
	}

void CTestHarness::DrawMetricsDiagram()
	{
	UseFont(iTestFont);
	iBuffer = _L("Dig my crazy metrics!");
	iPrintPos.iX += 8;
	TPoint pos = iPrintPos;
	Print(iBuffer);
	TPoint baseline_start = pos;
	baseline_start.iY += iBaseLine;
	for (int i = 0; i < iBuffer.Length(); i++)
		DrawCharMetrics(pos,iBuffer[i]);
	TPoint baseline_end = pos;
	baseline_end.iY += iBaseLine;
	iGc->DrawLine(baseline_start,baseline_end);
	iGc->DiscardFont();
	//iTest.Getch();
	}

void CTestHarness::DrawHugeCharacters()
	{
	UseFont(iTestFont);
	iBuffer = _L("ABC123");
	TOpenFontCharMetrics metrics;
	const TUint8* bytes;
	TSize size;
	iTestFont->GetCharacterData('A',metrics,bytes,size);
	iBaseLine = metrics.HorizBearingY();;
	Print(iBuffer);
	iGc->DiscardFont();
	//iTest.Getch();
	}

void CTestHarness::Clear()
	{
	TRect r(iDev->SizeInPixels());
	iGc->Clear(r);
	iPrintPos = TPoint(0,0);
	}

void CTestHarness::Print(const TDesC& aText)
	{
	TPoint p = iPrintPos;
	p.iY += iBaseLine;
	iGc->DrawText(aText,p);
	iPrintPos.iX = 0;
	iPrintPos.iY += iLineHeight;
	}

void CTestHarness::UseFont(CFbsFont* aFont)
	{
	iGc->UseFont(aFont);
	TOpenFontMetrics metrics;
	aFont->GetFontMetrics(metrics);
	iBaseLine = metrics.MaxHeight();
	iLineHeight = metrics.MaxHeight() + metrics.MaxDepth();
	}

/*
@SYMTestCaseID GRAPHICS-FREETYPE-0001
@SYMTestCaseDesc Supplementary characters rasterization Test
@SYMTestPriority High
@SYMTestActions  This test checks that the free type rasterizer rasterizes supplementary characters 
properly.
It prints the descriptor containing supplementary characters with 2 Fonts. One font does not support
supplementary characters and the other does.
@SYMTestExpectedResults This step should be executed without error and the user should be able to see the 
above descriptor is displayed as a square with the first font and in the correct shape with the other font.
@SYMDEF DEF120018 Security issue in FreeType rasterizer! Supplementary characters rendered as BMP
*/
void CTestHarness::SurrogateRasterizedTestsL()
	{
	// The literal descriptor consisting of common letter 'A' and Supplementary character 0x20000
	// which is represented by surrogate pair 0xD840 0xDC00
	_LIT16(KSurrogatePairCode, "A\xD840\xDC00");
	
	// Testing Fonts: DejaVu Sans Condensed does not support Supplementary character.
	// Test2 only supports letter "A" and Supplementary character 0x20000
	TFontSpec fsDejaVuSans(_L("DejaVu Sans Condensed"), 16 * 20);
	TFontSpec fsTest2(_L("Test2"), 16 * 20);
	
	Clear();

	// Prints test descriptor with font SwissA
	iTestFont = NULL;
	TInt error = iDev->GetNearestFontToDesignHeightInTwips((CFont*&)iTestFont,fsDejaVuSans);
	iStep->TESTL(KErrNone == error);
	
	if (!iTestFont->IsOpenFont())
		{
		iDev->ReleaseFont(iTestFont);
		iTestFont = NULL;
		User::Leave(KErrGeneral);
		}
	PrintMetrics(EFalse);
	
	UseFont(iTestFont);
	Print(KSurrogatePairCode);
	iDev->ReleaseFont(iTestFont);

	// Prints test descriptor with font Test2
	iTestFont = NULL;
	error = iDev->GetNearestFontToDesignHeightInTwips((CFont*&)iTestFont,fsTest2);
	iStep->TESTL(KErrNone == error);
	
	if (!iTestFont->IsOpenFont())
		{
		iDev->ReleaseFont(iTestFont);
		iTestFont = NULL;
		User::Leave(KErrGeneral);
		}
	PrintMetrics(EFalse);

	UseFont(iTestFont);
	Print(KSurrogatePairCode);
	iDev->ReleaseFont(iTestFont);
	iTestFont = NULL;
	
//	User::After(10000000);
	}