// Copyright (c) 1996-2009 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

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

// e32test\system\t_reg.cpp

// Overview:

// Test the machine configuration functions

// API Information:

// User::MachineConfiguration, User::SetMachineConfiguration

// Details:

// - Save machine configuration to different size descriptors and verify

// the results are as expected.

// - Set the machine configuration back to previous configurations, verify

// the results are as expected.

// Platforms/Drives/Compatibility:

// All.

// Assumptions/Requirement/Pre-requisites:

// Failures and causes:

// Base Port information:

// 

//

#include <e32test.h>

#include <e32hal.h>

LOCAL_D RTest test(_L("T_REG"));

LOCAL_C void testMachineConfiguration()

//

// Test the machine configuration functions

//

	{

	test.Start(_L("Create test environment"));

//	

	test.Next(_L("Save machine configuration to tiny descriptor"));

	TInt x=0;

    TPtr8 mc11((TUint8*)&x,sizeof(x));

	test(User::MachineConfiguration(mc11,x)==KErrArgument);

	test(x!=0);

	test(x<10000);

//

	test.Next(_L("Save machine configuration to just too small descriptor"));

	TUint8* pMC1=(TUint8*)User::Alloc(x);

	test(pMC1!=NULL);

	TInt y;

    TPtr8 mc12(pMC1,x-1);

	test(User::MachineConfiguration(mc12,y)==KErrArgument);

	test(y==x);

//

	test.Next(_L("Save machine configuration properly"));

    TPtr8 mc13(pMC1,x);

	test(User::MachineConfiguration(mc13,y)==KErrNone);

	test(y==x);

//

	test.Next(_L("Save machine configuration to tiny descriptor"));

	TInt z=0;

    TPtr8 mc21((TUint8*)&z,sizeof(z));

	test(User::MachineConfiguration(mc21,z)==KErrArgument);

	test(z!=0);

	test(z<10000);

//

	test.Next(_L("Save machine configuration to just too small descriptor"));

	TUint8* pMC2=(TUint8*)User::Alloc(z);

	test(pMC2!=NULL);

    TPtr8 mc22(pMC2,z-1);

	test(User::MachineConfiguration(mc22,y)==KErrArgument);

	test(y==z);

//

	test.Next(_L("Save machine configuration properly"));

    TPtr8 mc23(pMC2,z);

	test(User::MachineConfiguration(mc23,y)==KErrNone);

	test(y==z);

//

//	__KHEAP_MARK;	// GLD 3/2/97 I don't know why the KHEAP checking is no longer working

	test.Next(_L("Restore first configuration"));

	test(User::SetMachineConfiguration(TPtrC8(pMC1,x))==KErrNone);

//	__KHEAP_CHECK(0);

//

	test.Next(_L("Restore second configuration"));

	test(User::SetMachineConfiguration(TPtrC8(pMC2,z))==KErrNone);

//	__KHEAP_MARKEND;

//

	test.Next(_L("Tidy up"));

	delete pMC1;

	delete pMC2;

	test.End();

	}

GLDEF_C TInt E32Main()

//

// Test the registry functions.

//

    {

	test.Title();

//

	test.Start(_L("Test Machine Configuration"));

	testMachineConfiguration();

//

	test.End();

	return(KErrNone);

    }