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

// Name of test harness: T_SMIL_DOM

// Input file required to run test harness:

// \epoc32\wins\c\MsgTest\SMIL_DOM\script.txt

// Output file produced by running test harness:

// \epoc32\wins\c\MsgTest\SMIL_DOM\SmilDomLog.txt

// This script driven test harness tests the SMIL DOM classes. Tree navigation, and attribute

// getting and setting methods can be exercised by means of script commands. The test harness

// uses the concepts of the current element in a DOM tree, and the numeric position of a

// child element, in its child list. It logs results (including errors) for verification.

// The test harness may be used to perform the following tests:

// Exercise of each of the element creation and navigation routines. Each routine may be

// exercised in a valid way and also, where applicable, in invalid ways (for example, inserting

// before non-existent elements in a list).

// Simple attributes (e.g. id) can be used to check position during navigation. Elements should

// have their ids set when they are created, and various navigational paths taken to elements

// with known ids.

// Note that the harness is allowed to fail, if it is given a script containing errors; so not

// a lot of work has gone into handling errors.

// 

//

#include "t_TestScript.h"

#include "t_ScriptRunner.h"

#include <e32test.h>

#include <e32std.h>

#include <f32file.h>

// This is used if we can't find MsgLogs anywhere

_LIT(KMsvTestFileDefaultOutputBase, "C:\\MsgLogs\\");

_LIT(KMsvPathSep, "\\");

_LIT(KMsvTestFileInputBase, "MsgTest");

_LIT(KMsvTestFileOutputBase, "MsgLogs");

TInt ResolveFile(RFs& aFs, const TDesC& aComponent, const TDesC& aFileName, TParse& aParseOut)

	{

	TFileName* savedPath = new TFileName;

	TFileName* fileName = new TFileName;

	if ((savedPath == NULL) || (fileName == NULL))

		{

		return KErrNoMemory;

		}

	fileName->Append(KMsvPathSep);

	fileName->Append(KMsvTestFileInputBase);

	fileName->Append(KMsvPathSep);

	fileName->Append(aComponent);

	fileName->Append(KMsvPathSep);

	fileName->Append(aFileName);

	// File finder will look in the session drive first, then Y->A,Z

	// so set session drive to Y (save old, and restore it afterwards).

	aFs.SessionPath(*savedPath);

	_LIT(KTopDrive, "Y:\\");

	aFs.SetSessionPath(KTopDrive);

	TFindFile file_finder(aFs);

	TInt err = file_finder.FindByDir(*fileName, KNullDesC);

	if (err == KErrNone)

		{

		aParseOut.Set(file_finder.File(), NULL, NULL);

		}

	aFs.SetSessionPath(*savedPath);

	delete savedPath;

	delete fileName;

	return (err);

	}

//

//

// Main Test Harness

//

LOCAL_D CTrapCleanup* theCleanup;

void doMainL()

	{

	RTest test(_L("SMIL DOM tests"));

	RFs fs;

	fs.Connect();

	CTestScript* script = CTestScript::NewL(fs);

	CleanupStack::PushL(script);

	TParse scriptFileName;

	TInt err = ResolveFile(fs, _L("SMIL_DOM"), _L("script.txt"), scriptFileName);

	if (err != KErrNone)

		{

		// This should report unable to load file

		}

	script->LoadFileL(scriptFileName.FullName());

	CScriptRunner* scriptRunner = CScriptRunner::NewL();

	CleanupStack::PushL(scriptRunner);

	TBuf8<128> line;

	TBuf<128> uniLine;

	while (script->GetLineL(line))

		{

		uniLine.Copy(line);

		scriptRunner->ParseL(uniLine);

		}

	CleanupStack::PopAndDestroy(scriptRunner);

	CleanupStack::PopAndDestroy(script);

	fs.Close();

	test.Close();

	}

GLDEF_C TInt E32Main()

	{

	__UHEAP_MARK;

	theCleanup = CTrapCleanup::New();

	TRAPD(ret, doMainL());

	delete theCleanup;

	__UHEAP_MARKEND;

	User::Heap().Check();

	return (KErrNone);

	}