// 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\pccd\t_idrv.cpp
// Overview:
// Tests for the internal RAM drive
// API Information:
// TBusLocalDrive
// Details:
// - Load a Physical Device Driver for the RAM Media Driver.
// - Find the internal drive: type == EMediaRam
// - Display and adjust various drive capabilities, verify results
// are as expected.
// - Read and write the drive using various drive sizes, verify results
// are as expected.
// - Format the drive, verify results.
// - Set original size and reformat. 
// Platforms/Drives/Compatibility:
// All.
// Assumptions/Requirement/Pre-requisites:
// Failures and causes:
// Base Port information:
// 
//

#include <e32test.h>
#include <e32svr.h>
#include <e32hal.h>
#include <e32uid.h>
#include "../mmu/mmudetect.h"
#include <f32file.h>

#define PDD_NAME _L("MEDINT")

const TInt KTestDriveLen=0x00040000;	//256K
const TInt KSmallDriveInc=0x00000400;	//1K
const TInt KBigDriveLen=0x00100000;		//1M - WINS
const TInt KTestBufLen=256;


RTest test(_L("T_IDRV"));

void Format(TInt aDrive, RFs& aFs)
//
// Format current drive
//
	{
	test.Next(_L("Format"));
	TBuf<4> driveBuf=_L("?:\\");
	driveBuf[0]=(TText)(aDrive+'A');
	RFormat format;
	TInt count;
	TInt r=format.Open(aFs,driveBuf,EHighDensity,count);
	test(r==KErrNone);
	while(count)
		{
		TInt r=format.Next(count);
		test(r==KErrNone);
		}
	format.Close();
	}

GLDEF_C TInt E32Main()
    {

	test.Title();
	if (!HaveVirtMem())
		{
		test.Printf(_L("Needs MMU\n"));
		return 0;
		}
#if defined(__EPOC32__) && defined(__CPU_X86)
	test.Printf(_L("Doesn't run on X86\n"));
#else

	TBusLocalDrive theInternalDrive;
    TInt msgHandle = KLocalMessageHandle;
	
	UserSvr::UnlockRamDrive();
	
	test.Printf(_L("Warning - this will destroy internal drive.\r\n"));
	TChar c= 'C';
	c.UpperCase();
	if (c!='C')
		return(0);

	test.Start(_L("Check loader running"));

	test.Next(_L("Load Internal Ram Media Driver"));
	TInt r=User::LoadPhysicalDevice(PDD_NAME);
	test(r==KErrNone || r==KErrAlreadyExists);

	test.Next(_L("Find internal drive"));
	
	TDriveInfoV1Buf driveInfoBuf;
	UserHal::DriveInfo(driveInfoBuf);
	TDriveInfoV1& driveInfo = driveInfoBuf();

	TInt drive = 0;
	for ( ; drive < driveInfo.iTotalSupportedDrives; ++drive)
		{
		TBool changedFlag;
		theInternalDrive.Connect(drive, changedFlag);

		TLocalDriveCapsV2 info;
		TPckg<TLocalDriveCapsV2> infoPckg(info);
		theInternalDrive.Caps(infoPckg);

		if (info.iType == EMediaRam)
			{
			break;
			}

		theInternalDrive.Disconnect();
		}
	test(drive < driveInfo.iTotalSupportedDrives);

	test.Next(_L("Capabilities"));
	TLocalDriveCapsV2 info;
	TPckg<TLocalDriveCapsV2> infoPckg(info);
	test(theInternalDrive.Caps(infoPckg)==KErrNone);
	TUint saveSize=I64LOW(info.iSize);
	test(info.iType==EMediaRam);
	test(info.iConnectionBusType==EConnectionBusInternal);
	test(info.iDriveAtt==(KDriveAttLocal|KDriveAttInternal));
	test(info.iMediaAtt==(KMediaAttVariableSize|KMediaAttFormattable));
	test(info.iFileSystemId==KDriveFileSysFAT);

	test.Printf(_L("Current drive size: %lx\n"),info.iSize);

	test.Next(_L("Set size to zero"));
	test(theInternalDrive.ReduceSize(0,saveSize)==KErrNone);
	test(theInternalDrive.Caps(infoPckg)==KErrNone);
	test(info.iSize==0);
	test(theInternalDrive.ReduceSize(0,-1)==KErrArgument);
	test(theInternalDrive.Enlarge(-1)==KErrArgument);

	test.Next(_L("Increase to large size"));
#if defined (__WINS__)
	TUint cSize=KBigDriveLen;
#else
	TMemoryInfoV1Buf memBuf;
	TMemoryInfoV1 &mi=memBuf();
	UserHal::MemoryInfo(memBuf);
//	TUint cSize=(mi.iTotalRamInBytes-KTestDriveLen); // Leave last 256K - used by Kernel etc.
//	TUint cSize=mi.iTotalRamInBytes>>1; 			 // Half ram
//	TUint cSize=mi.iTotalRamInBytes>>2; 			 // Quarter ram
	TUint cSize=mi.iTotalRamInBytes>>3; 			 // Eighth ram
#endif
	test.Printf(_L("(Increasing to %dbytes)\r\n"),cSize);
	test(theInternalDrive.Enlarge(cSize)==KErrNone);
//	test(theInternalDrive.Enlarge(cSize-saveSize)==KErrNone); // ???
	test(theInternalDrive.Caps(infoPckg)==KErrNone);
	test(I64LOW(info.iSize)==cSize);

	test.Next(_L("Increase by 1K"));
	cSize+=KSmallDriveInc;
	test(theInternalDrive.Enlarge(KSmallDriveInc)==KErrNone);
	test(theInternalDrive.Caps(infoPckg)==KErrNone);
	test(I64LOW(info.iSize)==cSize);

	test.Next(_L("Reduce to 256K"));
	test(theInternalDrive.ReduceSize(0,(cSize-KTestDriveLen))==KErrNone);
	cSize=KTestDriveLen;
	test(theInternalDrive.Caps(infoPckg)==KErrNone);
	test(I64LOW(info.iSize)==(TUint)KTestDriveLen);

	test.Next(_L("Write/Read"));
	TBuf8<KTestBufLen> wrBuf(KTestBufLen),rdBuf;
	TUint i,j,len;
	for (i=0 ; i<(TUint)KTestBufLen ; i++)
		wrBuf[i]=(TUint8)i;
	for (i=0,j=0;i<(TUint)KTestDriveLen;i+=len,j++)
		{
		len=Min(KTestBufLen,(KTestDriveLen-i));
		rdBuf.Fill(0,len);
		wrBuf[0]=(TUint8)j;
		test(theInternalDrive.Write(i,len,&wrBuf,msgHandle,0)==KErrNone);
 		test(theInternalDrive.Read(i,len,&rdBuf,msgHandle,0)==KErrNone);
		wrBuf.SetLength(len);
  	    test(rdBuf.Compare(wrBuf)==0);
		}

	test.Next(_L("Reduce size - 256 bytes from start"));
 	test(theInternalDrive.ReduceSize(0,KTestBufLen)==KErrNone);
	test(theInternalDrive.Caps(infoPckg)==KErrNone);
	cSize-=KTestBufLen;
	test(I64LOW(info.iSize)==(TUint)cSize);
	for (i=0,j=1;i<cSize;i+=len,j++)
		{
		len=Min(KTestBufLen,(cSize-i));
		rdBuf.Fill(0,len);
		wrBuf[0]=(TUint8)j;
 		test(theInternalDrive.Read(i,len,&rdBuf,msgHandle,0)==KErrNone);
		wrBuf.SetLength(len);
  	    test(rdBuf.Compare(wrBuf)==0);
		}

	test.Next(_L("Reduce size - (4K+127) bytes from middle"));
	TInt reduction=((KTestBufLen<<4)+((KTestBufLen>>1)-1)); 
 	test(theInternalDrive.ReduceSize(KTestBufLen,reduction)==KErrNone); 
	test(theInternalDrive.Caps(infoPckg)==KErrNone);
	cSize-=reduction;
	test(I64LOW(info.iSize)==(TUint)cSize);
	TBuf8<KTestBufLen> odBuf(KTestBufLen); // To verify new pattern 
	for (i=0 ; i<(TUint)KTestBufLen ; i++)
		{
		if (i<=(KTestBufLen>>1))
			odBuf[i]=(TUint8)(i+((KTestBufLen>>1)-1));
		else
			odBuf[i]=(TUint8)(i-((KTestBufLen>>1)+1));
		}
	for (i=0,j=1;i<cSize;i+=len,j++)
		{
		len=Min(KTestBufLen,(cSize-i));
		rdBuf.Fill(0,len);
 		test(theInternalDrive.Read(i,len,&rdBuf,msgHandle,0)==KErrNone);
		if (j==2)
			j+=17;
		if (j==1)
			{
			wrBuf[0]=(TUint8)j;
			wrBuf.SetLength(len);
  	    	test(rdBuf.Compare(wrBuf)==0);
			}
		else
			{
			odBuf.SetLength(KTestBufLen);
			odBuf[((KTestBufLen>>1)+1)]=(TUint8)j;
			odBuf.SetLength(len);
  	    	test(rdBuf.Compare(odBuf)==0);
			}
		}

	test.Next(_L("Reduce size - (8K-1) bytes from end"));
	reduction=((KTestBufLen<<5)-1); 
	test(theInternalDrive.ReduceSize((cSize-reduction),reduction)==KErrNone);
	test(theInternalDrive.Caps(infoPckg)==KErrNone);
	cSize-=reduction;
	test(info.iSize==cSize);
	for (i=0,j=1;i<cSize;i+=len,j++)
		{
		len=Min(KTestBufLen,(cSize-i));
		rdBuf.Fill(0,len);
 		test(theInternalDrive.Read(i,len,&rdBuf,msgHandle,0)==KErrNone);
		if (j==2)
			j+=17;
		if (j==1)
			{
			wrBuf[0]=(TUint8)j;
			wrBuf.SetLength(len);
  	    	test(rdBuf.Compare(wrBuf)==0);
			}
		else
			{
			odBuf.SetLength(KTestBufLen);
			odBuf[((KTestBufLen>>1)+1)]=(TUint8)j;
			odBuf.SetLength(len);
  	    	test(rdBuf.Compare(odBuf)==0);
			}
		}

	test.Next(_L("Format"));
	wrBuf.Fill(0,KTestBufLen);
	TFormatInfo fi;
	TInt ret;
	while((ret=theInternalDrive.Format(fi))!=KErrEof)
		test(ret==KErrNone);
	for (i=0;i<cSize;i+=len)
		{
		len=Min(KTestBufLen,(cSize-i));
		rdBuf.Fill(0xAA,len);
 		test(theInternalDrive.Read(i,len,&rdBuf,msgHandle,0)==KErrNone);
		wrBuf.SetLength(len);
  	    test(rdBuf.Compare(wrBuf)==0);
		}

	test.Next(_L("Restore original size"));
	TInt sizeDif=cSize-saveSize;
	if (sizeDif>0)
		test(theInternalDrive.ReduceSize(0,sizeDif)==KErrNone);
	else
		test(theInternalDrive.Enlarge(sizeDif*-1)==KErrNone);

	test.Next(_L("Disconnect from internal drive"));
	theInternalDrive.Disconnect();

	RFs fs;
	test(fs.Connect()==KErrNone);
	for(drive=25 ; drive>=0; --drive)
		{
		TDriveInfo info;
		if(fs.Drive(info,drive)==KErrNone)
			if(info.iType==EMediaRam)
				{
				TBuf<256> text;
				text.Append(_L("Formatting drive "));
				text.Append(TText(drive+'A'));
				text.Append(_L(": ..."));
				test.Next(text);
				Format(drive,fs);
				break;
				}
		}

    test.End();

#endif	// x86
	return(0);
	}