--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/kerneltest/e32test/misc/t_alive.cpp	Mon Oct 19 15:55:17 2009 +0100
@@ -0,0 +1,123 @@
+// 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\misc\t_alive.cpp
+// 
+//
+
+#include <e32test.h>
+#include <e32base.h>
+#include <e32base_private.h>
+#include <e32svr.h>
+
+RTest test(_L("T_ALIVE"));
+
+class CTim : public CActive
+	{
+public:
+	static CTim* New();
+	CTim() : CActive(EPriorityStandard) {}
+	void RunL();
+	void DoCancel() {}
+public:
+	RTimer iTimer;
+	};
+
+class CTest : public CActive
+	{
+public:
+	CTest() : CActive(EPriorityUserInput) {}
+	static CTest* New();
+	void RunL();
+	void DoCancel() {}
+	void Start();
+	};
+
+LOCAL_C void DisplayProcesses()
+	{
+	TFindProcess fp(_L("*"));
+	TFullName fn;
+	while(fp.Next(fn)==KErrNone)
+		{
+		RDebug::Print(_L("%S"),&fn);
+		}
+	}
+
+
+CTim* CTim::New()
+	{
+	CTim* pC=new CTim;
+	if (pC)
+		{
+		TInt r=pC->iTimer.CreateLocal();
+		if (r!=KErrNone)
+			{
+			delete pC;
+			pC=NULL;
+			}
+		}
+	return pC;
+	}
+
+void CTim::RunL()
+	{
+	DisplayProcesses();
+	iTimer.HighRes(iStatus,2100000);
+	SetActive();
+	}
+
+CTest* CTest::New()
+	{
+	return new CTest;
+	}
+
+void CTest::Start()
+	{
+	test.Console()->Read(iStatus);
+	SetActive();
+	}
+
+void CTest::RunL()
+	{
+	TKeyCode k=test.Console()->KeyCode();
+	TChar c=(TUint)k;
+	TBuf<1> b;
+	b.SetLength(1);
+	b[0]=(TText)c;
+	RDebug::Print(_L("%S"),&b);
+	if (c!='0')
+		Start();
+	else
+		CActiveScheduler::Stop();
+	}
+
+GLDEF_C TInt E32Main()
+	{
+	test.Title();
+	CActiveScheduler* pS=new CActiveScheduler;
+	if (!pS)
+		User::Panic(_L("SCHED"),0);
+	CActiveScheduler::Install(pS);
+	CTim* pT2=CTim::New();
+	if (!pT2)
+		User::Panic(_L("TIM2"),0);
+	CActiveScheduler::Add(pT2);
+	CTest* pTest=CTest::New();
+	if (!pTest)
+		User::Panic(_L("TEST"),0);
+	CActiveScheduler::Add(pTest);
+	pT2->RunL();
+	pTest->Start();
+	CActiveScheduler::Start();
+	return 0;
+	}