// 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);
    }