--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/kerneltest/e32test/heap/t_hcomp.cpp	Mon Oct 19 15:55:17 2009 +0100
@@ -0,0 +1,49 @@
+// Copyright (c) 1997-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\heap\t_hcomp.cpp
+// Causes lots of chunk compression without using much memory
+// Won't work on WINS unless memory allocation limits are set.
+// 
+//
+
+
+#include <e32std.h>
+#include <e32std_private.h>
+#include <e32hal.h>
+
+const TUint size64k = 64*1024;
+
+GLDEF_C TInt E32Main()
+	{
+
+	RProcess me;
+	me.SetPriority(EPriorityHigh);
+
+	TMemoryInfoV1Buf membuf;
+	UserHal::MemoryInfo(membuf);
+	TInt maxmem=membuf().iTotalRamInBytes;
+	TInt heapsize=maxmem*2;
+
+	RHeap* heap1=User::ChunkHeap(NULL,size64k,heapsize+size64k);
+	if (heap1==NULL)
+		return KErrNoMemory;
+
+	FOREVER
+		{
+		TUint8* ptr=(TUint8*)heap1->Alloc(heapsize);	// fail, compress, fail
+		User::After(1000);	// quite soon
+		heap1->Free(ptr);
+		}
+	return 0;
+	}