// ciftest.cpp

//

// Copyright (c) 2010 Accenture. All rights reserved.

// This component and the accompanying materials are made available

// under the terms of the "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:

// Accenture - Initial contribution

//

#include "ciftest.h"

#include "fshell.h"

#include "command_factory.h"

CCommandBase* CCmdCifTest::NewLC()

	{

	CCmdCifTest* self = new(ELeave) CCmdCifTest();

	CleanupStack::PushL(self);

	self->BaseConstructL();

	return self;

	}

CCmdCifTest::~CCmdCifTest()

	{

	delete iCmd;

	delete iParser;

	delete iEnvForScript;

	delete iCurrentCif;

	iCifFiles.ResetAndDestroy();

	}

CCmdCifTest::CCmdCifTest()

	: CCommandBase(EManualComplete | EReportAllErrors)

	{

	}

const TDesC& CCmdCifTest::Name() const

	{

	_LIT(KName, "ciftest");	

	return KName;

	}

void CCmdCifTest::ArgumentsL(RCommandArgumentList& aArguments)

	{

	aArguments.AppendStringL(iCmd, _L("command"));

	}

void CCmdCifTest::OptionsL(RCommandOptionList& aOptions)

	{

	aOptions.AppendBoolL(iVerbose, _L("verbose"));

	aOptions.AppendBoolL(iKeepGoing, _L("keep-going"));

	}

void CCmdCifTest::DoRunL()

	{

	if (iCmd)

		{

		CCommandInfoFile* cif = CCommandInfoFile::NewL(FsL(), Env(), *iCmd);

		TestCifL(cif); // Takes ownership

		}

	else

		{

		_LIT(KCifDir, "y:\\resource\\cif\\fshell\\");

		TFindFile find(FsL());

		CDir* dir = NULL;

		TInt found = find.FindWildByDir(_L("*.cif"), KCifDir, dir);

		while (found == KErrNone)

			{

			for (TInt i = 0; i < dir->Count(); i++)

				{

				iFileName.Copy(TParsePtrC(find.File()).DriveAndPath()); // The docs for TFindFile state you shouldn't need the extra TParsePtrC::DriveAndPath(). Sigh.

				iFileName.Append((*dir)[i].iName);

				iCifFiles.AppendL(iFileName.AllocLC());

				CleanupStack::Pop();

				}

			delete dir;

			dir = NULL;

			found = find.FindWild(dir);

			}

		NextCif();

		}

	}

void CCmdCifTest::NextCif()

	{

	if (iNextCif == iCifFiles.Count())

		{

		if (iVerbose)

			{

			Printf(_L("%d tests run, %d passes %d failures. %d commands have no tests defined.\r\n"), iPasses + iFailures, iPasses, iFailures, iCifFiles.Count() - iPasses - iFailures);

			}

		Complete(KErrNone);

		}

	else

		{

		CCommandInfoFile* cif = NULL;

		TRAPD(err, cif = CCommandInfoFile::NewL(FsL(), *iCifFiles[iNextCif]));

		if (!err)

			{

			TRAP(err, TestCifL(cif));

			if (err) PrintError(err, _L("Error setting up test for CIF %S"), iCifFiles[iNextCif]);

			}

		iNextCif++;

		if (err)

			{

			iFailures++;

			TestCompleted(err);

			}

		}

	}

void CCmdCifTest::TestCifL(CCommandInfoFile* aCif)

	{

	iCurrentCif = aCif;

	if (iVerbose) Printf(_L("Checking %S\r\n"), &aCif->CifFileName());

	const TDesC& scriptData = aCif->SmokeTest();

	if (scriptData.Length() == 0)

		{

		if (iVerbose) Printf(_L("Cif has no smoketest section\r\n"));

		TestCompleted(KErrNone);

		return;

		}

	iEnvForScript = CEnvironment::NewL(Env());

	iEnvForScript->SetL(_L("Error"), _L("fshell -e 'echo \"Test failed, env is:\" && env && error'"));

	iEnvForScript->SetL(_L("Quiet"), _L(">/dev/null"));

	iEnvForScript->SetL(_L("Silent"), _L("2>&1 >/dev/null"));

	iEnvForScript->Remove(_L("Verbose")); // In case it's ended up in our parent env

	if (iVerbose) iEnvForScript->SetL(_L("Verbose"), 1);

	iFileName.Copy(aCif->CifFileName());

	iFileName.Append(_L(":smoke-test"));

	TParsePtrC parse(iFileName);

	iEnvForScript->SetL(KScriptName, parse.NameAndExt());

	iEnvForScript->SetL(KScriptPath, parse.DriveAndPath());

	iEnvForScript->SetL(_L("0"), iFileName);

	iParser = CParser::NewL(CParser::EExportLineNumbers, scriptData, IoSession(), Stdin(), Stdout(), Stderr(), *iEnvForScript, gShell->CommandFactory(), this, aCif->GetSmokeTestStartingLineNumber());

	iParser->Start();

	}

void CCmdCifTest::HandleParserComplete(CParser& /*aParser*/, const TError& aError)

	{

	TInt err = aError.Error();

	if (err)

		{

		iFailures++;

		PrintError(err, _L("%S failed at line %d"), &aError.ScriptFileName(), aError.ScriptLineNumber());

		}

	else

		{

		if (iVerbose)

			{

			Printf(_L("Smoketest for %S completed ok.\r\n"), &iCurrentCif->Name());

			}

		iPasses++;

		}

	TestCompleted(err);

	}

void CCmdCifTest::TestCompleted(TInt aError)

	{

	// Delete interim data

	delete iEnvForScript;

	iEnvForScript = NULL;

	delete iParser;

	iParser = NULL;

	delete iCurrentCif;

	iCurrentCif = NULL;

	if (aError == KErrNone || iKeepGoing)

		{

		// Async call NextCif()

		TRequestStatus* stat = &iStatus;

		User::RequestComplete(stat, KErrNone);

		SetActive();

		}

	else

		{

		Complete(aError);

		}

	}

void CCmdCifTest::RunL()

	{

	NextCif();

	}