/*
* Copyright (c) 2005-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:  
* Demonstration use of the TestExecuteUtils client API
* Relies on test config files being exported to z:\SampleTest
*
*/



/**
 @file SampleClient.cpp
*/
#include <TestExecuteClient.h>

LOCAL_C void MainL()
	{
	// Create a root session with the SampleServer test server
	// User::After() 1/10th second delays between server calls because IPC calls fail with
	// KErrServerBusy if we bang them in to fast.
	RTestServ server;
	User::LeaveIfError(server.Connect(_L("SampleServer")));
	CleanupClosePushL(server);
	
	RTestSession session1;
	User::LeaveIfError(session1.Open(server,_L("SampleStep1")));
	CleanupClosePushL(session1);
	TRequestStatus status1;
	User::After(100000);
	// Run a test step then pick up completion
	TExitCategoryName panicString1;
	session1.RunTestStep(_L("z:\\Sampletest\\SampleTest.ini SectionOne"),panicString1,status1);
	User::WaitForRequest(status1);
	// Demonstration of another step run on the same session
	// We have to wait for the first step to complete otherwise we get KErrInUse
	// If we want to run multiple instances then we create another test session
	panicString1.Zero();
	session1.RunTestStep(_L("z:\\Sampletest\\SampleTest.ini SectionTwo"),panicString1,status1);
	
	// Get another session whilst the other one is still running
	RTestSession session2;
	User::After(100000);
	User::LeaveIfError(session2.Open(server,_L("SampleStep1")));
	CleanupClosePushL(session2);
	TRequestStatus status2;
	User::After(100000);
	TExitCategoryName panicString2;
	session2.RunTestStep(_L("z:\\Sampletest\\SampleTest.ini SectionTwo"),panicString2,status2);
	
	// Get another session whilst the other two are still running
	RTestSession session3;
	User::After(100000);
	User::LeaveIfError(session3.Open(server,_L("SampleStep1")));
	CleanupClosePushL(session3);
	TRequestStatus status3;
	User::After(100000);
	TExitCategoryName panicString3;
	session3.RunTestStep(_L("z:\\Sampletest\\SampleTest.ini SectionTwo"),panicString3,status3);

	// The test steps all ran concurrently so pick up the completions
	User::WaitForRequest(status1);
	User::WaitForRequest(status2);
	User::WaitForRequest(status3);

	session1.Close();
	session2.Close();
	session3.Close();

	CleanupStack::Pop(3);
	CleanupStack::Pop(&server);
	// Close the root server session
	server.Close();
	// Wait for flogger to log
	User::After(5000000);
	}

// Entry point for all Epoc32 executables
// See PSP Chapter 2 Getting Started
GLDEF_C TInt E32Main()
	{
	// Heap balance checking
	// See PSP Chapter 6 Error Handling
	__UHEAP_MARK;
	CTrapCleanup* cleanup = CTrapCleanup::New();
	if(cleanup == NULL)
		{
		return KErrNoMemory;
		}
	TRAPD(err,MainL());
	_LIT(KPanic,"SampleClient");
	__ASSERT_ALWAYS(!err, User::Panic(KPanic,err));
	delete cleanup;
	__UHEAP_MARKEND;
	return KErrNone;
    }