// Copyright (c) 1994-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\buffer\t_bseg.cpp
// Overview:
// Test all aspects of the CBufSeg class.
// API Information:
// CBufSeg.
// Details:
// - Create a segmented dynamic buffer of specified size.
// - Test all operations of CBufSeg class and see if methods are implemented -- 
// including NewL, Reset, Size, InsertL, Delete, Ptr, BackPtr, Read, Write and Compress.
// - Test CBufSeg constructor is as expected.
// - Insert data into the segmented dynamic buffer and verify that InsertL method
// is as expected using the Read and Write methods.
// - Delete all data using Reset method and check size is zero.
// - Test InsertL, Read, Write and Length methods.
// - Test Ptr, Free, Size, Backptr and SetReserveL methods are as expected.
// - Check self consistancy of segment lengths, and check contents of segmented 
// buffer using Ptr() and BackPtr().
// - Verify the size of the of the test buffers are correct.
// - Insert data into the buffer, delete some data from the beginning, middle and end
// then check for results as expected. 
// - Verify the data in the buffer before and after Compress method is as expected.
// Platforms/Drives/Compatibility:
// All 
// Assumptions/Requirement/Pre-requisites:
// Failures and causes:
// Base Port information:
// 
//

#include <e32test.h>

class TBufSegLink : public TDblQueLink
	{
public:
	inline TBufSegLink() : iLen(0) {}
	inline TBufSegLink* Next() const {return((TBufSegLink*)iNext);}
	inline TBufSegLink* Prev() const {return((TBufSegLink*)iPrev);}
public:
	TInt iLen;
	};

class TestCBufSeg
	{
public:
	TestCBufSeg() : iDummy(0) {};
	void Test1(); 	// Test all operations of the class.
	void Test2();	// Inherited Methods
	void Test3();	// Insert	
	void Test4();	// Delete
	void Test5();	// Compress
	void Test6L();	// borderlines
protected:
	TInt iDummy;
	static const TInt SegLen;
	void CheckSeg(const CBufSeg*);
	void CheckContents1(CBufSeg* const);
	void CheckContents2(CBufSeg* const);
	};

const TInt TestCBufSeg::SegLen=64;

LOCAL_D RTest test(_L("T_BSEG"));

class CSpy : public CBufBase
	{
public:
	~CSpy();
protected:
	CSpy(TInt anExpandSize);
public:
    TDblQue<TBufSegLink> iQue;
	TBufSegLink* iSeg;
	TInt iBase;
	TInt iOffset;
	};

GLDEF_C void TestCBufSeg::CheckSeg(const CBufSeg* bf)
//
// Check Self consistancy of segment lengths
//
	{

	if (bf->Size()==0)
		return;
	TInt sum=0;
	TBufSegLink* p1=((CSpy*)bf)->iQue.First();
	while (!((CSpy*)bf)->iQue.IsHead(p1))
		{
		test(p1->iLen<=bf->Size());
		sum+=p1->iLen;
		p1=p1->Next();
		} 
	test(sum==bf->Size());
	sum=0;
	p1=((CSpy*)bf)->iQue.Last();
	while (!((CSpy*)bf)->iQue.IsHead(p1))
		{
		test(p1->iLen<=bf->Size());
		sum+=p1->iLen;
		p1=p1->Prev();
		}
	test(sum==bf->Size());
	}

GLDEF_C void TestCBufSeg::CheckContents1(CBufSeg* const bf)
//
// Check contents of segmented buffer using Ptr()
//
	{

	TInt sum=0;
	TInt nbytes=bf->Size();
	for (TInt pos=0;pos<nbytes;)
		{
		TPtr8 p=bf->Ptr(pos);
		TInt len=p.Length();
		TInt8* pT=(TInt8*)p.Ptr();
		for (TInt i=0;i<len;i++)
			sum+=*pT++;
		test(sum==0);
		pos+=len;
		}
	}

GLDEF_C void TestCBufSeg::CheckContents2(CBufSeg* const bf)
//
// Check contents of segmented buffer using BackPtr()
//
	{

	TInt sum=0;
	TInt nbytes=bf->Size();
	for(TInt pos=nbytes;pos>0;)
		{
		TPtr8 p=bf->BackPtr(pos);
		TInt len=p.Length();
		TInt8* pT=(TInt8*)p.Ptr();
		for (TInt i=0;i<len;i++)
			sum+=*pT++;
		pos-=len;
		}
	test(sum==0);
	}

GLDEF_C void TestCBufSeg::Test1()
//
// Test all operations of BufSeg class
//
	{

	test.Start(_L("Test all operations of CBufSeg"));
	CBufSeg* bf=(CBufSeg*)CBufSeg::NewL(100);
	bf->Reset();
	bf->Size();
	bf->InsertL(0,TPtrC8((TText8*)"Hello World"));
	bf->Delete(0,5);
	TText8* tp=(TText8*)bf->Ptr(3).Ptr();
	tp=(TText8*)bf->BackPtr(3).Ptr();
	TBuf8<0x20> txt;
	bf->Read(2,txt,2);
	bf->Write(2,txt,2);
	bf->Compress();
	delete bf;
	test.End();
	}
			
GLDEF_C void TestCBufSeg::Test2()
//
// Test all inherited methods
//
	{

	TBuf8<0x40> tb1=(TText8*)"Hello World";
	TBuf8<0x40> tb2=(TText8*)"String number two";
	TBuf8<0x40> tb3;
	test.Start(_L("Free,Size,Read,Write,Reset"));
	CBufSeg* bf=(CBufSeg*)CBufSeg::NewL(SegLen);
	test(bf->Size()==0);
	bf->InsertL(0,tb1);
	test(bf->Size()==tb1.Length());
	bf->Read(6,tb3,5);
	test(tb3==tb1.Right(5));
	bf->Write(1,tb2,6);
	bf->Read(0,tb3,bf->Size());
	test(tb3==TPtrC8((TText8*)"HStringorld"));
	bf->Reset();
	test(bf->Size()==0);
	while (bf->Size()<400)
		{
		bf->InsertL(bf->Size(),tb1);
		bf->InsertL(bf->Size(),tb2);
		}
	TInt i=0;
	while (i<400)
		{
		bf->Read(i,tb3,tb1.Size());
		test(tb3==tb1);
		i+=tb1.Length();
		bf->Read(i,tb3,tb2.Size());
		test(tb3==tb2);
		i+=tb2.Length();
		}
	i=0;
	while (i<400)
		{
		bf->Write(i,tb2);
		i+=tb2.Length();
		bf->Write(i,tb1);
		i+=tb1.Length();
		}
	i=0;
	while (i<400)
		{
		bf->Read(i,tb3,tb2.Size());
		test(tb3==tb2);
		i+=tb2.Length();
		bf->Read(i,tb3,tb1.Size());
		test(tb3==tb1);
		i+=tb1.Length();
		}
	delete bf;
	test.End();
	}

GLDEF_C void TestCBufSeg::Test3()
//
//	Test input methods
//
	{

	TInt8 bb[1000];
	TInt nbytes;
	test.Start(_L("InsertL"));
	CBufSeg* bf1=(CBufSeg*)CBufSeg::NewL(SegLen);
	CBufSeg* bf2=(CBufSeg*)CBufSeg::NewL(SegLen);
	CBufSeg* bf3=(CBufSeg*)CBufSeg::NewL(SegLen);
	nbytes=0;
	TInt k;
	for(TInt j=0;j<20;j++)
		{
		for(TInt i=0;i<10*j;i+=2)
			{
			k=i%128;
			bb[i]=(TInt8)k;
			bb[i+1]=(TInt8)-k;
			}
		bf1->InsertL(bf1->Size()/3*2,&bb[0],10*j);
		CheckSeg(bf1);
		CheckContents1(bf1);
		CheckContents2(bf1);
		bf2->InsertL(bf2->Size(),&bb[0],10*j);
		CheckSeg(bf2);
		CheckContents1(bf2);
		CheckContents2(bf2);
		bf3->InsertL(0,&bb[0],10*j);
		CheckSeg(bf3);
		CheckContents1(bf3);
		CheckContents2(bf3);
		nbytes+=10*j;
		}
	test(nbytes==bf1->Size());
	test(nbytes==bf2->Size());
	test(nbytes==bf3->Size());
	delete bf1;
	delete bf2;
	delete bf3;
	test.End();
	}

GLDEF_C void TestCBufSeg::Test4()
//
// Delete
// 
	{
	TInt8 bb[1000];

	test.Start(_L("Delete"));
	CBufSeg* bf1=(CBufSeg*)CBufSeg::NewL(SegLen);
	CBufSeg* bf2=(CBufSeg*)CBufSeg::NewL(SegLen);
	CBufSeg* bf3=(CBufSeg*)CBufSeg::NewL(SegLen);
	TInt nbytes=0;
	TInt k;
	for(TInt j=0;j<20;j++)
		{
		for(TInt i=0;i<10*j;i+=2)
			{
			k=i%128;
			bb[i]=(TInt8)k;
			bb[i+1]=(TInt8)-k;
			}
		bf1->InsertL(bf1->Size()/3*2,&bb[0],10*j);
		bf2->InsertL(bf2->Size(),&bb[0],10*j);
		bf3->InsertL(0,&bb[0],10*j);
		nbytes+=10*j;
		}
	TInt len=34;
	TInt aLength;
	while (nbytes>len)
		{
		for (TInt pos=0;pos<nbytes;pos+=44)
		{
			len=((len+17)%23)*2;
			if (len>nbytes-pos)
				len=nbytes-pos;
			bf1->Delete(pos,len);
			CheckSeg(bf1);
			CheckContents1(bf1);
			CheckContents2(bf1);
			aLength=bf2->Ptr(0).Length();
			aLength=((aLength>len) ? aLength : len);
			bf2->Delete(aLength-len,len);
			CheckSeg(bf2);
			CheckContents1(bf2);
			CheckContents2(bf2);
			bf3->Delete(0,len);
			CheckSeg(bf3);
			CheckContents1(bf3);
			CheckContents2(bf3);
			nbytes-=len;
			test(nbytes==bf1->Size());
			test(nbytes==bf2->Size());
			test(nbytes==bf3->Size());
			}
		}
	delete bf1;
	delete bf2;
	delete bf3;
	test.End();
	}

GLDEF_C void TestCBufSeg::Test5()
//
// Compress
// 
	{
	TInt8 bb[1000];

	test.Start(_L("Compress"));
	CBufSeg* bf1=(CBufSeg*)CBufSeg::NewL(SegLen);
	CBufSeg* bf2=(CBufSeg*)CBufSeg::NewL(SegLen);
	CBufSeg* bf3=(CBufSeg*)CBufSeg::NewL(SegLen);
	TInt nbytes=0;
	TInt k;
	for(TInt j=0;j<20;j++)
		{
		for(TInt i=0;i<10*j;i+=2)
			{
			k=i%128;
			bb[i]=(TInt8)k;
			bb[i+1]=(TInt8)-k;
			}
		bf1->InsertL(bf1->Size()/3*2,&bb[0],10*j);
		bf2->InsertL(bf2->Size(),&bb[0],10*j);
		bf3->InsertL(0,&bb[0],10*j);
		nbytes+=10*j;
		}
	TInt len=34;
	TInt aLength;
	while (nbytes>len)
		{
		for (TInt pos=0;pos<nbytes;pos+=44)
		{
			if (len>nbytes-pos)
				len=nbytes-pos;
			bf1->Delete(pos,len);
			bf1->Compress();
			CheckSeg(bf1);
			CheckContents1(bf1);
			CheckContents2(bf1);
			aLength=bf2->Ptr(0).Length();
			aLength=((aLength>len)? aLength : len);
			bf2->Delete(aLength-len,len);
			bf2->Compress();
			CheckSeg(bf2);
			CheckContents1(bf2);
			CheckContents2(bf2);
			bf3->Delete(0,len);
			bf3->Compress();
			CheckSeg(bf3);
			CheckContents1(bf3);
			CheckContents2(bf3);
			nbytes-=len;
			test(nbytes==bf1->Size());
			test(nbytes==bf2->Size());
			test(nbytes==bf3->Size());
			}
		}
	delete bf1;
	delete bf2;
	delete bf3;
	test.End();
	}

void TestCBufSeg::Test6L()
	{
	test.Start(_L("Test compress frees empty cells"));
	__UHEAP_MARK;
	TUint8 alphabet[27] = "abcdefghijklmnopqrstuvwxyz";
	CBufSeg* buf = CBufSeg::NewL(10);
	CleanupStack::PushL(buf);
	buf->InsertL(0, alphabet, 16);	// "abcdefghij" ++ "klmnop"
	buf->Delete(5, 5);			// "abcde" ++ "klmnop"
	buf->Delete(10, 1);			// "abcde" ++ "klmno"
	buf->Compress();				// "abcdefklmno". i.e. empty cell should be freed.
	CleanupStack::PopAndDestroy(buf);
	__UHEAP_MARKEND;
	test.End();
	}

LOCAL_C void test_CBufSeg()
//
// Test the BufSeg class
//
	{

	TestCBufSeg b;
	test.Start(_L("All operations"));
	b.Test1();
	test.Next(_L("Inherited Methods"));
	b.Test2();
	test.Next(_L("Insert"));
	b.Test3();
	test.Next(_L("Delete"));
	b.Test4();
	test.Next(_L("Compress"));
	b.Test5();
	test.Next(_L("Bordeline cases"));
	TRAPD(r,b.Test6L());
	test(r==KErrNone);
	//
	test.End();
	}

GLDEF_C TInt E32Main()
//
// Test the ADT segmented varray.
//
	{
	
	test.Title();
	__UHEAP_MARK;
//
// Install a trap handler
//
	CTrapCleanup* trapHandler=CTrapCleanup::New();
	test(trapHandler!=NULL);
//	CleanupStack::NextLevel();
	test.Start(_L("class CBufSeg"));
	test_CBufSeg();
	delete trapHandler;
	__UHEAP_MARKEND;
	test.End();
	return(0);
	}