// Copyright (c) 1998-2009 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of "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:

//

#include <s32mem.h>

#include <s32file.h>

#include <e32test.h>

const TInt KTestCleanupStack=0x20;

// This is a path specification and should not be used as is

_LIT(KFileLocationSpec, "Z:\\STOR-TST\\T_DELIM.DAT");

LOCAL_D CTrapCleanup* TheTrapCleanup;

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

LOCAL_D RFs TheFs;

LOCAL_C TInt ReadL(RReadStream& aStream,TUint8* aBuf,TInt aLength,TChar aDelim)

	{

	TPtr8 des(aBuf,aLength);

	aStream.ReadL(des,aDelim);

	return des.Length();

	}

LOCAL_C TInt ReadL(RReadStream& aStream,TUint16* aBuf,TInt aLength,TChar aDelim)

	{

	TPtr16 des(aBuf,aLength);

	aStream.ReadL(des,aDelim);

	return des.Length();

	}

LOCAL_C TPtrC8 KTestText8=_S8("One two three four five six seven eight nine ten eleven twelve.");

LOCAL_C TPtrC16 KTestText16=_S16("One two three four five six seven eight nine ten eleven twelve.");

LOCAL_C TPtrC8 KWhatever8=_S8("Whatever");

LOCAL_C TPtrC16 KWhatever16=_S16("Whatever");

const TInt KBufSize=0x20;

/**

@SYMTestCaseID          SYSLIB-STORE-CT-1181

@SYMTestCaseDesc	    Tests for reading from 8-bit delimited input

@SYMTestPriority 	    High

@SYMTestActions  	    Tests for RReadStream::ReadL() function.Check for KErrEof error flag

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

LOCAL_C void testInput8L()

	{

	TUint8 buf[KBufSize];

	RDesReadStream strm(KWhatever8);

	TInt len=ReadL(strm,buf,KBufSize,'e');

	test (len==5);

	test (TPtrC8(buf,len)==_L8("Whate"));

	len=ReadL(strm,buf,KBufSize,'e');

	test (len==2);

	test (TPtrC8(buf,len)==_L8("ve"));

	len=ReadL(strm,buf,1,'q');

	test (len==1);

	test (TPtrC8(buf,len)==_L8("r"));

	TRAPD(r,ReadL(strm,buf,1,'r'));

	test (r==KErrEof);

	strm.Source()->SeekL(MStreamBuf::ERead,KStreamBeginning);

	TRAP(r,ReadL(strm,buf,KBufSize,'\n'));

	test (r==KErrEof);

	TParsePtrC parse(KFileLocationSpec);

	CFileStore* store=CDirectFileStore::ReplaceLC(TheFs,parse.NameAndExt(),EFileWrite|EFileRead);

	store->SetTypeL(store->Layout());

	RStoreWriteStream out;

	TStreamId id=out.CreateLC(*store);

	out.WriteL(KTestText8);

	out.CommitL();

	CleanupStack::PopAndDestroy();

// small buffer

	store->CommitL();

	store->Reset(11);

//

	RStoreReadStream in;

	in.OpenLC(*store,id);

	TInt tot=KTestText8.Length();

	TUint8 const* pp=KTestText8.Ptr();

	for (;;)

		{

		len=ReadL(in,buf,Min(tot,KBufSize),' ');

		test (len<=tot);

		test (Mem::Compare(buf,len,pp,len)==0);

		pp+=len;

		tot-=len;

		if (tot==0)

			break;

		test (buf[len-1]==' ');

		}

	test (buf[len-1]=='.');

	TRAP(r,ReadL(in,buf,1,' '));

	test (r==KErrEof);

	CleanupStack::PopAndDestroy();

//

	in.OpenLC(*store,id);

	tot=0;

	do

		{

		len=ReadL(in,buf,KBufSize,'.');

		tot+=len;

		} while (buf[len-1]!='.');

	test (tot==KTestText8.Length());

	TRAP(r,ReadL(in,buf,1,' '));

	test (r==KErrEof);

//

	CleanupStack::PopAndDestroy(2);

	}

/**

@SYMTestCaseID          SYSLIB-STORE-CT-1182

@SYMTestCaseDesc	    Tests for reading from 16-bit delimited input.

@SYMTestPriority 	    High

@SYMTestActions  	    Tests for RReadStream::ReadL() function.Check for KErrEof error flag.

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

LOCAL_C void testInput16L()

	{

	TUint16 buf[KBufSize];

	RDesReadStream strm(TPtrC8((TUint8 const*)KWhatever16.Ptr(),KWhatever16.Size()));

	TInt len=ReadL(strm,buf,KBufSize,'e');

	test (len==5);

	test (TPtrC16(buf,len)==_L16("Whate"));

	len=ReadL(strm,buf,KBufSize,'e');

	test (len==2);

	test (TPtrC16(buf,len)==_L16("ve"));

	len=ReadL(strm,buf,1,'q');

	test (len==1);

	test (TPtrC16(buf,len)==_L16("r"));

	TRAPD(r,ReadL(strm,buf,1,'r'));

	test (r==KErrEof);

	strm.Source()->SeekL(MStreamBuf::ERead,KStreamBeginning);

	TRAP(r,ReadL(strm,buf,KBufSize,'\n'));

	test (r==KErrEof);

	TParsePtrC parse(KFileLocationSpec);

	CFileStore* store=CDirectFileStore::OpenLC(TheFs,parse.NameAndExt(),EFileWrite|EFileRead);

	RStoreWriteStream out;

	TStreamId id=out.CreateLC(*store);

	out.WriteL(KTestText16);

	out.CommitL();

	CleanupStack::PopAndDestroy();

// small buffer

	store->CommitL();

	store->Reset(11);

//

	RStoreReadStream in;

	in.OpenLC(*store,id);

	TInt tot=KTestText16.Length();

	TUint16 const* pp=KTestText16.Ptr();

	for (;;)

		{

		len=ReadL(in,buf,Min(tot,KBufSize),' ');

		test (len<=tot);

		test (Mem::Compare(buf,len,pp,len)==0);

		pp+=len;

		tot-=len;

		if (tot==0)

			break;

		test (buf[len-1]==' ');

		}

	test (buf[len-1]=='.');

	TRAP(r,ReadL(in,buf,1,' '));

	test (r==KErrEof);

	CleanupStack::PopAndDestroy();

//

	in.OpenLC(*store,id);

	tot=0;

	do

		{

		len=ReadL(in,buf,KBufSize,'.');

		tot+=len;

		} while (buf[len-1]!='.');

	test (tot==KTestText16.Length());

	TRAP(r,ReadL(in,buf,1,' '));

	test (r==KErrEof);

//

	CleanupStack::PopAndDestroy(2);

	}

//

// Prepare the test directory.

//

LOCAL_C void setupTestDirectory()

    {

	TInt r=TheFs.Connect();

	test(r==KErrNone);

//

	TDriveUnit drive(static_cast<TUint>(RFs::GetSystemDrive()));	

	TParse parse;

	parse.Set(drive.Name(), &KFileLocationSpec, NULL);

	r=TheFs.MkDir(parse.DriveAndPath());

	test(r==KErrNone||r==KErrAlreadyExists);

	r=TheFs.SetSessionPath(parse.DriveAndPath());

	test(r==KErrNone);

	}

//

// Initialise the cleanup stack.

//

LOCAL_C void setupCleanup()

    {

	TheTrapCleanup=CTrapCleanup::New();

	test(TheTrapCleanup!=NULL);

	TRAPD(r,\

		{\

		for (TInt i=KTestCleanupStack;i>0;i--)\

			CleanupStack::PushL((TAny*)1);\

		test(r==KErrNone);\

		CleanupStack::Pop(KTestCleanupStack);\

		});

	test(r==KErrNone);

	}

LOCAL_C void DeleteDataFile(const TDesC& aFullName)

	{

	RFs fsSession;

	TInt err = fsSession.Connect();

	if(err == KErrNone)

		{

		TEntry entry;

		if(fsSession.Entry(aFullName, entry) == KErrNone)

			{

			RDebug::Print(_L("Deleting \"%S\" file.\n"), &aFullName);

			err = fsSession.SetAtt(aFullName, 0, KEntryAttReadOnly);

			if(err != KErrNone)

				{

				RDebug::Print(_L("Error %d changing \"%S\" file attributes.\n"), err, &aFullName);

				}

			err = fsSession.Delete(aFullName);

			if(err != KErrNone)

				{

				RDebug::Print(_L("Error %d deleting \"%S\" file.\n"), err, &aFullName);

				}

			}

		fsSession.Close();

		}

	else

		{

		RDebug::Print(_L("Error %d connecting file session. File: %S.\n"), err, &aFullName);

		}

	}

//

// Test file-based streams.

//

GLDEF_C TInt E32Main()

    {

	test.Title();

	setupTestDirectory();

	setupCleanup();

	__UHEAP_MARK;

//

	test.Start(_L(" @SYMTestCaseID:SYSLIB-STORE-CT-1181 Test 8-bit delimited input "));

	TRAPD(r,testInput8L());

	test (r==KErrNone);

	test.Next(_L(" @SYMTestCaseID:SYSLIB-STORE-CT-1182 Test 16-bit delimited input "));

	TRAP(r,testInput16L());

	test (r==KErrNone);

	//deletion of data files must be before call to .End() - DEF047652

	TDriveUnit drive(static_cast<TUint>(RFs::GetSystemDrive()));	

	TParse parse;

	parse.Set(drive.Name(), &KFileLocationSpec, NULL);

	::DeleteDataFile(parse.FullName());

	test.End();

//

	__UHEAP_MARKEND;

	delete TheTrapCleanup;

	TheFs.Close();

	test.Close();

	return 0;

    }