sl@0: // Copyright (c) 2007-2010 Nokia Corporation and/or its subsidiary(-ies).
sl@0: // All rights reserved.
sl@0: // This component and the accompanying materials are made available
sl@0: // under the terms of "Eclipse Public License v1.0"
sl@0: // which accompanies this distribution, and is available
sl@0: // at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: //
sl@0: // Initial Contributors:
sl@0: // Nokia Corporation - initial contribution.
sl@0: //
sl@0: // Contributors:
sl@0: //
sl@0: // Description:
sl@0: //
sl@0: 
sl@0: #include <e32test.h>
sl@0: #include <e32uid.h>
sl@0: #include <f32file.h>
sl@0: #include <bautils.h>
sl@0: 
sl@0: 
sl@0: ///////////////////////////////////////////////////////////////////////////////////////
sl@0: 
sl@0: RTest TheTest(_L("t_sqlitetclstarter"));
sl@0: 
sl@0: _LIT(KTclExecutableName,"tclsqlite3.exe");
sl@0: _LIT(KTclScriptName,"all.test");
sl@0: 
sl@0: _LIT(KStdioConfigFilePath,	"C:\\system\\data\\");
sl@0: _LIT(KStdioConfigFile,	"C:\\system\\data\\config.ini");
sl@0: 
sl@0: _LIT(KLogsFilePath, "C:\\logs\\testexecute\\");
sl@0: 
sl@0: RFs theFs;
sl@0: 
sl@0: ///////////////////////////////////////////////////////////////////////////////////////
sl@0: 
sl@0: //
sl@0: // Creates the appropriate stdio ini file to redirect stdio output to a file 
sl@0: //
sl@0: 
sl@0: void CreateIniFileForStdoutRedirection(void)
sl@0: 	{
sl@0: 	TInt err(KErrNone);
sl@0: 
sl@0: 	// check path exists otherwise create
sl@0: 	if (!BaflUtils::FolderExists(theFs, KStdioConfigFilePath))
sl@0: 		{
sl@0: 		err = theFs.MkDirAll(KStdioConfigFilePath);
sl@0: 		TheTest(err == KErrNone, __LINE__);
sl@0: 		}
sl@0: 
sl@0: 	
sl@0: 	// create file
sl@0: 	RFile file;
sl@0: 	err = file.Create(theFs, KStdioConfigFile, EFileRead | EFileWrite);	
sl@0: 	TheTest(err == KErrNone, __LINE__);
sl@0: 
sl@0: 	TheTest(KErrNone == file.Write(_L8("[STDIO]\r\n")), __LINE__);
sl@0: 	TheTest(KErrNone == file.Write(_L8("STDIN = MEDIA1\r\n")), __LINE__);
sl@0: 	TheTest(KErrNone == file.Write(_L8("STDOUT = MEDIA2\r\n")), __LINE__);
sl@0: 	TheTest(KErrNone == file.Write(_L8("[MEDIA1]\r\n")), __LINE__);
sl@0: 	TheTest(KErrNone == file.Write(_L8("type = console\r\n")), __LINE__);
sl@0: 	TheTest(KErrNone == file.Write(_L8("width = -1\r\n")), __LINE__);
sl@0: 	TheTest(KErrNone == file.Write(_L8("height = -1\r\n")), __LINE__);
sl@0: 	TheTest(KErrNone == file.Write(_L8("[MEDIA2]\r\n")), __LINE__);
sl@0: 	TheTest(KErrNone == file.Write(_L8("type = file\r\n")), __LINE__);
sl@0: 	TheTest(KErrNone == file.Write(_L8("path = C:\\logs\\testexecute\\t_sqlitetclstarter.htm\r\n")), __LINE__);
sl@0: 	TheTest(KErrNone == file.Flush(),__LINE__);
sl@0: 
sl@0: 	file.Close();
sl@0: 
sl@0: 	}
sl@0: 
sl@0: ///////////////////////////////////////////////////////////////////////////////////////
sl@0: 
sl@0: //
sl@0: // Deletes the stdio ini file
sl@0: //
sl@0: 
sl@0: void DeleteIniFileForStdoutRedirection(void)
sl@0: 	{
sl@0: 	TInt err = theFs.Delete(KStdioConfigFile);
sl@0: 	TheTest(err == KErrNone || err==KErrNotFound || err==KErrPathNotFound, __LINE__);
sl@0: 	}
sl@0: 
sl@0: ///////////////////////////////////////////////////////////////////////////////////////
sl@0: 
sl@0: //
sl@0: // Ensure the directory for the Logs file exists
sl@0: //
sl@0: 
sl@0: void EnsureLogsDirectoryExists(void)
sl@0: 	{
sl@0: 	TInt err(KErrNone);
sl@0: 
sl@0: 	// check path exists otherwise create
sl@0: 	if (!BaflUtils::FolderExists(theFs, KLogsFilePath))
sl@0: 		{
sl@0: 		err = theFs.MkDirAll(KLogsFilePath);
sl@0: 		TheTest(err == KErrNone, __LINE__);
sl@0: 		}
sl@0: 	}
sl@0: 
sl@0: ///////////////////////////////////////////////////////////////////////////////////////
sl@0: 
sl@0: //
sl@0: // Start the tcl process with a script
sl@0: //
sl@0: 
sl@0: void StartTclProcess(void)
sl@0: 	{
sl@0: 	RProcess process;
sl@0: 	TInt err = process.Create(KTclExecutableName,KTclScriptName);
sl@0: 	TheTest(err==KErrNone, __LINE__);
sl@0: 	
sl@0: 	TRequestStatus processStatus;
sl@0: 	process.Logon(processStatus);
sl@0: 
sl@0: 	process.Resume();
sl@0: 
sl@0: 	TheTest.Printf(_L("Wait for TCL tests to finish\r\n"));
sl@0: 
sl@0: 	User::WaitForRequest(processStatus);
sl@0: 
sl@0: 	TheTest.Printf(_L("TCL tests finished %d\r\n"),processStatus.Int());
sl@0: 
sl@0: 	TheTest(processStatus.Int() == KErrNone, __LINE__);
sl@0: 	}
sl@0: 
sl@0: ///////////////////////////////////////////////////////////////////////////////////////
sl@0: 
sl@0: TInt E32Main()
sl@0: 	{
sl@0: 	TheTest.Title();
sl@0: 	TheTest.Start(_L("TCL tests"));
sl@0: 
sl@0: 	CTrapCleanup* tc = CTrapCleanup::New();
sl@0: 	
sl@0: 	__UHEAP_MARK;
sl@0: 	
sl@0: 	TInt err = theFs.Connect();
sl@0: 	TheTest(err == KErrNone, __LINE__);
sl@0: 
sl@0: 	DeleteIniFileForStdoutRedirection();
sl@0: 
sl@0: 	CreateIniFileForStdoutRedirection();
sl@0: 
sl@0: 	EnsureLogsDirectoryExists();
sl@0: 
sl@0: 	StartTclProcess();
sl@0: 
sl@0: 	DeleteIniFileForStdoutRedirection();
sl@0: 
sl@0: 	theFs.Close();
sl@0: 
sl@0: 	__UHEAP_MARKEND;
sl@0: 	
sl@0: 	TheTest.End();
sl@0: 	TheTest.Close();
sl@0: 	
sl@0: 	delete tc;
sl@0: 	
sl@0: 	User::Heap().Check();
sl@0: 	return KErrNone;
sl@0: 	}