// Copyright (c) 1995-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\mmu\t_chunk2.cpp
// Overview:
// Test RChunk class
// API Information:
// RChunk
// Details:
// - Test creating local chunks and moving chunks home address, verify
// results are as expected.
// - Create numerous local chunks, test allocating more space by 
// adjusting chunk size, check for allocation failure, verify results 
// are as expected.
// Platforms/Drives/Compatibility:
// All.
// Assumptions/Requirement/Pre-requisites:
// Failures and causes:
// Base Port information:
// 
//

#define __E32TEST_EXTENSION__
#include <e32test.h>
#include <e32hal.h>
#include <e32panic.h>
#include "mmudetect.h"
#include "d_gobble.h"
#include "freeram.h"

TInt GlobalValue=299792458;
TInt *GlobalPtr=&GlobalValue;

LOCAL_D RTest test(_L("T_CHUNK2"));
LOCAL_D RTest t(_L("ShareThread"));
LOCAL_D RChunk gChunk;

LOCAL_D TPtr nullPtr(NULL,0);

LOCAL_C void TestAllocFailure(RChunk& c1, RChunk& c2)
	{
	TInt free=FreeRam();
	test.Printf(_L("Free RAM %dK\n"),free/1024);
	TInt size1=free-0x80000;	// 512K less than available
	TInt size2=0xFF000;			// 255 pages
	test.Printf(_L("Adjusting chunk 1 to size %dK\n"),size1/1024);
	TInt r=c1.Adjust(size1);
	test(r==KErrNone);
	test.Printf(_L("Attempting to adjust chunk 2 to size %dK\n"),size2/1024);
	r=c2.Adjust(size2);
	test(r==KErrNoMemory);
	TInt size3=FreeRam();
	test.Printf(_L("Attempting to adjust chunk 2 to size %dK\n"),size3/1024);
	r=c2.Adjust(size3);
	TInt free2=FreeRam();
	if (r==KErrNone)
		{
		test.Printf(_L("Succeeded - free RAM now %dK\n"),free2/1024);
		test.Printf(_L("Freeing chunk 2\n"));
		r=c2.Adjust(0);
		test(r==KErrNone);
		}
	else
		test.Printf(_L("Failed - free RAM now %dK\n"),free2/1024);
	test.Printf(_L("Freeing chunk 1\n"));
	r=c1.Adjust(0);
	test(r==KErrNone);
	test.Printf(_L("Checking free RAM\n"));
	UserSvr::HalFunction(EHalGroupKernel, EKernelHalSupervisorBarrier, 0, 0);
	free2=FreeRam();
	test.Printf(_L("Free RAM %dK\n"),free2/1024);
	test(free==free2);
	}

void TestInterleavedAlloc()
	{
	TInt pageSize;
	RChunk c1;
	RChunk c2;
	TInt r;
	r=UserHal::PageSizeInBytes(pageSize);
	test(r==KErrNone);
	r=c1.CreateLocal(0,0x100000);
	test(r==KErrNone);
	r=c2.CreateLocal(0,0x100000);
	test(r==KErrNone);
	TInt step;
	for (step=1; step<=32; ++step)
		{
		test.Printf(_L("Step size %x\n"),step*pageSize);
		while (c1.Size()<64*pageSize)
			{
			r=c1.Adjust(c1.Size()+step*pageSize);
			test(r==KErrNone);
			r=c2.Adjust(c2.Size()+step*pageSize);
			test(r==KErrNone);
			}
		c1.Adjust(0);
		c2.Adjust(0);
		}
	c1.Close();
	c2.Close();
	}

TInt E32Main()
//
//	Test RChunk class
//
	{

	test.Title();
	if (!HaveVirtMem())
		{
		test.Printf(_L("This test requires an MMU\n"));
		return KErrNone;
		}
	TestInterleavedAlloc();
	test.Start(_L("Test moving chunks home addresses"));
	test.Printf(_L("GlobalValue=%d\n"),*GlobalPtr);
	++*GlobalPtr;
	test.Printf(_L("GlobalValue=%d\n"),GlobalValue);

	test.Next(_L("Load gobbler LDD"));
	TInt r = User::LoadLogicalDevice(KGobblerLddFileName);
	test(r==KErrNone || r==KErrAlreadyExists);
	RGobbler gobbler;
	r = gobbler.Open();
	test(r==KErrNone);
	TUint32 taken = gobbler.GobbleRAM(128*1024*1024);
	test.Printf(_L("Gobbled: %dK\n"), taken/1024);

	TInt free=FreeRam();
	test.Printf(_L("Free RAM 0x%08X bytes\n"),free);

	RChunk chunk1;
	r=chunk1.CreateLocal(0x400,0x800000);
	test (r==KErrNone);
	TInt i;
	TInt *p=(TInt*)chunk1.Base();
	test.Printf(_L("Chunk 1 Base %08X\n"),p);
	for (i=0; i<0x100; i++)
		*p++=i*i+41;
	RChunk chunk2;
	r=chunk2.CreateLocal(0x400,0x800000);
	test (r==KErrNone);
	TInt *p2=(TInt*)chunk2.Base();
	test.Printf(_L("Chunk 2 Base %08X\n"),p2);
	for (i=0; i<0x100; i++)
		*p2++=i*i*i+487;
	r=chunk1.Adjust(0x120000);
	test (r==KErrNone);
	for (i=0x100; i<0x48000; i++)
		*p++=i*i+41;
	r=chunk2.Adjust(0x120000);
	test (r==KErrNone);
	for (i=0x100; i<0x48000; i++)
		*p2++=i*i*i+487;
	p=(TInt*)chunk1.Base();
	p2=(TInt*)chunk2.Base();
	for(i=0; i<0x48000; i++)
		{
		TInt read1=*p++;
		TInt read2=*p2++;
		if (read1 != (i*i+41))
			{
			test.Printf(_L("Chunk 1 i=%X, read %08X expected %08X\n"),i,read1,i*i+41);
			//test.Getch();
			}
		if (read2 != (i*i*i+487))
			{
			test.Printf(_L("Chunk 2 i=%X, read %08X expected %08X\n"),i,read2,i*i*i+487);
			//test.Getch();
			}
		}
	chunk1.Close();
	chunk2.Close();
	
	TInt free2=FreeRam();
	test.Printf(_L("Free RAM 0x%08X bytes\n"),free2);
	test(free2==free);

	// Chunks must not be paged otherwise they will not effect the amount 
	// of free ram reported plus on h4 swap size is less than the total ram.
	TChunkCreateInfo createInfo;
	createInfo.SetNormal(0, free+2097152);
	createInfo.SetPaging(TChunkCreateInfo::EUnpaged);
	RChunk c1;
	test_KErrNone(c1.Create(createInfo));
	createInfo.SetNormal(0, 0x1000000);
	RChunk c2;
	RChunk c3;
	RChunk c4;
	RChunk c5;
	RChunk c6;
	test_KErrNone(c2.Create(createInfo));
	test_KErrNone(c3.Create(createInfo));
	test_KErrNone(c4.Create(createInfo));
	test_KErrNone(c5.Create(createInfo));
	test_KErrNone(c6.Create(createInfo));

	TestAllocFailure(c1,c2);
	r=c3.Adjust(1024);
	test(r==KErrNone);
	TestAllocFailure(c1,c2);
	r=c4.Adjust(1024);
	test(r==KErrNone);
	TestAllocFailure(c1,c2);
	r=c5.Adjust(1024);
	test(r==KErrNone);
	TestAllocFailure(c1,c2);
	r=c6.Adjust(1024);
	test(r==KErrNone);
	TestAllocFailure(c1,c2);

	c1.Close();
	c2.Close();
	c3.Close();
	c4.Close();
	c5.Close();
	c6.Close();
	gobbler.Close();

	test.End();
	test.Close();
	return(KErrNone);
	}