Symaptic: os/persistentdata/persistentstorage/dbms/pcdbms/tdbms/src/t

sl@0	1	// Copyright (c) 1998-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0	2	// All rights reserved.
sl@0	3	// This component and the accompanying materials are made available
sl@0	4	// under the terms of "Eclipse Public License v1.0"
sl@0	5	// which accompanies this distribution, and is available
sl@0	6	// at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0	7	//
sl@0	8	// Initial Contributors:
sl@0	9	// Nokia Corporation - initial contribution.
sl@0	10	//
sl@0	11	// Contributors:
sl@0	12	//
sl@0	13	// Description:
sl@0	14	//
sl@0	15
sl@0	16	#ifndef __TOOLS2__
sl@0	17	#include <../include/d32dbms.h>
sl@0	18	#else
sl@0	19	#include <d32dbms.h>
sl@0	20	#endif
sl@0	21	#include <s32file.h>
sl@0	22	#include <e32test.h>
sl@0	23	#include <e32math.h>
sl@0	24
sl@0	25	#include "D32TABLE.H"
sl@0	26
sl@0	27	#include "crccheck.h"
sl@0	28
sl@0	29	#undef __UHEAP_MARK
sl@0	30	#define __UHEAP_MARK
sl@0	31	#undef __UHEAP_MARKEND
sl@0	32	#define __UHEAP_MARKEND
sl@0	33
sl@0	34	LOCAL_D TDBMS_CRCChecks TheCrcChecker;
sl@0	35
sl@0	36	#ifndef __linux__ //No CRC test on LINUX
sl@0	37	#ifdef __TOOLS2__
sl@0	38	const TPtrC KCrcRecord=_L("\\epoc32\\winscw\\c\\dbms-tst\\T_INDEX.CRC");
sl@0	39	#else
sl@0	40	const TPtrC KCrcRecord=_L("C:\\dbms-tst\\T_INDEX.CRC");
sl@0	41	#endif
sl@0	42	#endif
sl@0	43
sl@0	44
sl@0	45	// MSVC++ up to 5.0 has problems with expanding inline functions
sl@0	46	// This disables the mad warnings for the whole project
sl@0	47	#if defined(NDEBUG) && defined(__VC32__) && _MSC_VER<=1100
sl@0	48	#pragma warning(disable : 4710) // function not expanded. MSVC 5.0 is stupid
sl@0	49	#endif
sl@0	50
sl@0	51	LOCAL_D RTest test(_L("T_INDEX - Test DBMS indexing and ordering"));
sl@0	52	LOCAL_D CTrapCleanup* TheTrapCleanup;
sl@0	53	LOCAL_D RDbs TheDbs;
sl@0	54	LOCAL_D RDbNamedDatabase TheDatabase;
sl@0	55	LOCAL_D RDbTable TheTable;
sl@0	56	LOCAL_D RDbView TheView;
sl@0	57	LOCAL_D RFs TheFs;
sl@0	58	LOCAL_D TBuf<0x200> TheBuf;
sl@0	59
sl@0	60	const TInt KTestCleanupStack=0x20;
sl@0	61
sl@0	62	#ifdef __TOOLS2__
sl@0	63	const TPtrC KTestDatabase=_L(".\\dbms-tst\\T_INDEX.DB");
sl@0	64	#else
sl@0	65	const TPtrC KTestDatabase=_L("C:\\dbms-tst\\T_INDEX.DB");
sl@0	66	#endif
sl@0	67
sl@0	68	const TPtrC KTableName(_S("Table"));
sl@0	69	const TPtrC KIndexName(_S("index"));
sl@0	70	const TPtrC KIndexTwo(_S("index_two"));
sl@0	71	const TPtrC KColumnName(_S("column"));
sl@0	72	const TPtrC KColumnTwo(_S("column2"));
sl@0	73
sl@0	74	const TPtrC KSelectOrdered(_L("select column from table order by column"));
sl@0	75
sl@0	76	#define elementsof(array) (sizeof(array)/sizeof(array[0]))
sl@0	77
sl@0	78
sl@0	79	//
sl@0	80	// Open the database (shared access) (SYMBIAN_REMOVE_TRIVIAL_ENCRYPTION version)
sl@0	81	//
sl@0	82	LOCAL_C void OpenDatabaseL()
sl@0	83	{
sl@0	84	TInt r=TheDatabase.Open(TheDbs,KTestDatabase);
sl@0	85	test (r==KErrNone);
sl@0	86	}
sl@0	87
sl@0	88	//
sl@0	89	// Create the database (SYMBIAN_REMOVE_TRIVIAL_ENCRYPTION version)
sl@0	90	//
sl@0	91	LOCAL_C void CreateDatabaseL()
sl@0	92	{
sl@0	93	TInt r=TheDatabase.Replace(TheFs,KTestDatabase);
sl@0	94	test (r==KErrNone);
sl@0	95	TheDatabase.Close();
sl@0	96	TheCrcChecker.GenerateCrcL(KTestDatabase);
sl@0	97	OpenDatabaseL();
sl@0	98	}
sl@0	99
sl@0	100
sl@0	101	LOCAL_C void CloseDatabaseL()
sl@0	102	{
sl@0	103	TheDatabase.Close();
sl@0	104	TheCrcChecker.GenerateCrcL(KTestDatabase);
sl@0	105	}
sl@0	106
sl@0	107	/**
sl@0	108	@SYMTestCaseID SYSLIB-DBMS-CT-0618
sl@0	109	@SYMTestCaseDesc Tests for RDbNamedDatabase functionality
sl@0	110	@SYMTestPriority Medium
sl@0	111	@SYMTestActions Tests for RDbNamedDatabase::CreateIndex()
sl@0	112	@SYMTestExpectedResults Test must not fail
sl@0	113	@SYMREQ REQ0000
sl@0	114	*/
sl@0	115	LOCAL_C void TestIndexBuild()
sl@0	116	{
sl@0	117	test.Start(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-0618 Create table "));
sl@0	118	TheDatabase.Begin();
sl@0	119	CDbColSet *cs=CDbColSet::NewLC();
sl@0	120	cs->AddL(TDbCol(KColumnName,EDbColInt32));
sl@0	121	cs->AddL(TDbCol(KColumnTwo,EDbColInt32));
sl@0	122	test(TheDatabase.CreateTable(KTableName,*cs)==KErrNone);
sl@0	123	CleanupStack::PopAndDestroy();
sl@0	124	test.Next(_L("create indices"));
sl@0	125	CDbKey *key=CDbKey::NewLC();
sl@0	126	key->AddL(TDbKeyCol(KColumnName));
sl@0	127	key->MakeUnique();
sl@0	128	test(TheDatabase.CreateIndex(KIndexName,KTableName,*key)==KErrNone);
sl@0	129	key->Clear();
sl@0	130	key->AddL(TDbKeyCol(KColumnTwo));
sl@0	131	key->MakeUnique();
sl@0	132	test(TheDatabase.CreateIndex(KIndexTwo,KTableName,*key)==KErrNone);
sl@0	133	CleanupStack::PopAndDestroy();
sl@0	134	test.Next(_L("Populate table"));
sl@0	135	test(TheTable.Open(TheDatabase,KTableName)==KErrNone);
sl@0	136	TheTable.InsertL();
sl@0	137	TheTable.SetColL(1,1);
sl@0	138	TheTable.SetColL(2,-1);
sl@0	139	TheTable.PutL();
sl@0	140	TheTable.InsertL();
sl@0	141	TheTable.SetColL(1,2);
sl@0	142	TheTable.SetColL(2,-2);
sl@0	143	TheTable.PutL();
sl@0	144	test(TheDatabase.Commit()==KErrNone);
sl@0	145	test.Next(_L("Check order"));
sl@0	146	test(TheTable.SetNoIndex()==KErrNone);
sl@0	147	test(TheTable.SetIndex(KIndexName)==KErrNone);
sl@0	148	test(TheTable.CountL()==2);
sl@0	149	test(TheTable.NextL());
sl@0	150	TheTable.GetL();
sl@0	151	test(TheTable.ColInt(1)==1);
sl@0	152	test(TheTable.NextL());
sl@0	153	TheTable.GetL();
sl@0	154	test(TheTable.ColInt(1)==2);
sl@0	155	test(!TheTable.NextL());
sl@0	156	test(TheTable.SetIndex(KIndexTwo)==KErrNone);
sl@0	157	test(TheTable.CountL()==2);
sl@0	158	test(TheTable.NextL());
sl@0	159	TheTable.GetL();
sl@0	160	test(TheTable.ColInt(1)==2);
sl@0	161	test(TheTable.NextL());
sl@0	162	TheTable.GetL();
sl@0	163	test(TheTable.ColInt(1)==1);
sl@0	164	test(!TheTable.NextL());
sl@0	165	test(TheTable.SetNoIndex()==KErrNone);
sl@0	166	test(TheTable.CountL()==2);
sl@0	167	test(TheTable.NextL());
sl@0	168	test(TheTable.NextL());
sl@0	169	test(!TheTable.NextL());
sl@0	170	TheTable.Close();
sl@0	171	test.Next(_L("Drop indices"));
sl@0	172	test(TheDatabase.DropIndex(KIndexTwo,KTableName)==KErrNone);
sl@0	173	test(TheTable.Open(TheDatabase,KTableName)==KErrNone);
sl@0	174	test(TheTable.SetIndex(KIndexName)==KErrNone);
sl@0	175	test(TheTable.SetIndex(KIndexTwo)!=KErrNone);
sl@0	176	TheTable.Close();
sl@0	177	test(TheDatabase.DropIndex(KIndexName,KTableName)==KErrNone);
sl@0	178	test(TheTable.Open(TheDatabase,KTableName)==KErrNone);
sl@0	179	test(TheTable.SetIndex(KIndexName)!=KErrNone);
sl@0	180	test(TheTable.SetIndex(KIndexTwo)!=KErrNone);
sl@0	181	TheTable.Close();
sl@0	182	test(TheDatabase.DropTable(KTableName)==KErrNone);
sl@0	183	test.End();
sl@0	184	}
sl@0	185
sl@0	186	LOCAL_C TInt CountRowsL()
sl@0	187	{
sl@0	188	TInt count=0;
sl@0	189	while (TheTable.NextL())
sl@0	190	++count;
sl@0	191	return count;
sl@0	192	}
sl@0	193
sl@0	194	/**
sl@0	195	@SYMTestCaseID SYSLIB-DBMS-CT-0619
sl@0	196	@SYMTestCaseDesc RDbNamedDatabase::Execute() function test
sl@0	197	@SYMTestPriority Medium
sl@0	198	@SYMTestActions Tests for CREATE TABLE,CREATE INDEX and CREATE UNIQUE INDEX query
sl@0	199	@SYMTestExpectedResults Test must not fail
sl@0	200	@SYMREQ REQ0000
sl@0	201	*/
sl@0	202	LOCAL_C void TestPersistence()
sl@0	203	{
sl@0	204	test.Start(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-0619 Create table "));
sl@0	205	TheDatabase.Begin();
sl@0	206	test(TheDatabase.Execute(_L("CREATE TABLE Table (column CHAR(120) NOT NULL)"))==KErrNone);
sl@0	207	test(TheTable.Open(TheDatabase,KTableName)==KErrNone);
sl@0	208	TheTable.InsertL();
sl@0	209	TheTable.SetColL(1,_L("a"));
sl@0	210	TheTable.PutL();
sl@0	211	TheTable.InsertL();
sl@0	212	TheTable.SetColL(1,_L("b"));
sl@0	213	TheTable.PutL();
sl@0	214	TheTable.InsertL();
sl@0	215	TheTable.SetColL(1,_L("c"));
sl@0	216	TheTable.PutL();
sl@0	217	TheTable.InsertL();
sl@0	218	TheTable.SetColL(1,_L("d"));
sl@0	219	TheTable.PutL();
sl@0	220	TheTable.InsertL();
sl@0	221	TheTable.SetColL(1,_L("e"));
sl@0	222	TheTable.PutL();
sl@0	223	TheTable.Close();
sl@0	224	test(TheDatabase.Commit()==KErrNone);
sl@0	225	test.Next(_L("Build indices"));
sl@0	226	test (TheDatabase.Execute(_L("CREATE INDEX index ON table (column ASC)"))==KErrNone);
sl@0	227	test (TheDatabase.Execute(_L("CREATE UNIQUE INDEX index_two ON table (column DESC)"))==KErrNone);
sl@0	228	test.Next(_L("Close and re-open database"));
sl@0	229	CloseDatabaseL();
sl@0	230	OpenDatabaseL();
sl@0	231	test.Next(_L("Check indices"));
sl@0	232	CDbKey* key=TheDatabase.KeyL(KIndexName,KTableName);
sl@0	233	test (key->Count()==1);
sl@0	234	test (key->Comparison()==EDbCompareNormal);
sl@0	235	test (!key->IsUnique());
sl@0	236	test ((*key)[0].iName.CompareF(KColumnName)==0);
sl@0	237	test ((*key)[0].iOrder==TDbKeyCol::EAsc);
sl@0	238	delete key;
sl@0	239	key=TheDatabase.KeyL(KIndexTwo,KTableName);
sl@0	240	test (key->Count()==1);
sl@0	241	test (key->Comparison()==EDbCompareNormal);
sl@0	242	test (key->IsUnique());
sl@0	243	test ((*key)[0].iName.CompareF(KColumnName)==0);
sl@0	244	test ((*key)[0].iOrder==TDbKeyCol::EDesc);
sl@0	245	delete key;
sl@0	246	test(TheTable.Open(TheDatabase,KTableName)==KErrNone);
sl@0	247	test(TheTable.SetNoIndex()==KErrNone);
sl@0	248	test(CountRowsL()==5);
sl@0	249	test(TheTable.CountL()==5);
sl@0	250	test(TheTable.SetIndex(KIndexName)==KErrNone);
sl@0	251	test(TheTable.CountL()==5);
sl@0	252	test(CountRowsL()==5);
sl@0	253	test(TheTable.SetIndex(KIndexTwo)==KErrNone);
sl@0	254	test(TheTable.CountL()==5);
sl@0	255	test(CountRowsL()==5);
sl@0	256	TheTable.Close();
sl@0	257	test.Next(_L("Drop indices"));
sl@0	258	TheDatabase.Begin();
sl@0	259	test (TheDatabase.Execute(_L("DROP INDEX index_two FROM table"))==KErrNone);
sl@0	260	test (TheDatabase.Execute(_L("DROP INDEX index FROM table"))==KErrNone);
sl@0	261	test (TheDatabase.Execute(_L("DROP TABLE table"))==KErrNone);
sl@0	262	test(TheDatabase.Commit()==KErrNone);
sl@0	263	test.End();
sl@0	264	}
sl@0	265
sl@0	266	LOCAL_C void BuildTableProlog(TDbColType aType,TInt aAttribs=0)
sl@0	267	{
sl@0	268	TheDatabase.Begin();
sl@0	269	CDbColSet *cs=CDbColSet::NewLC();
sl@0	270	TDbCol col(KColumnName,aType);
sl@0	271	col.iAttributes=aAttribs;
sl@0	272	cs->AddL(col);
sl@0	273	test(TheDatabase.CreateTable(KTableName,*cs)==KErrNone);
sl@0	274	CleanupStack::PopAndDestroy();
sl@0	275	test(TheTable.Open(TheDatabase,KTableName)==KErrNone);
sl@0	276	}
sl@0	277
sl@0	278	inline void SetColL(RDbRowSet& aSet,TDbColNo col,const TInt& aValue)
sl@0	279	{aSet.SetColL(col,aValue);}
sl@0	280	inline void SetColL(RDbRowSet& aSet,TDbColNo col,const TUint& aValue)
sl@0	281	{aSet.SetColL(col,aValue);}
sl@0	282	inline void SetColL(RDbRowSet& aSet,TDbColNo col,const TInt64& aValue)
sl@0	283	{aSet.SetColL(col,aValue);}
sl@0	284	inline void SetColL(RDbRowSet& aSet,TDbColNo col,const TReal32& aValue)
sl@0	285	{aSet.SetColL(col,aValue);}
sl@0	286	inline void SetColL(RDbRowSet& aSet,TDbColNo col,const TReal64& aValue)
sl@0	287	{aSet.SetColL(col,aValue);}
sl@0	288	inline void SetColL(RDbRowSet& aSet,TDbColNo col,const TTime& aValue)
sl@0	289	{aSet.SetColL(col,aValue);}
sl@0	290	inline void SetColL(RDbRowSet& aSet,TDbColNo col,const TPtrC& aValue)
sl@0	291	{aSet.SetColL(col,aValue);}
sl@0	292
sl@0	293	template <class T>
sl@0	294	void BuildTable(TDbColType aType,TInt aAttribs,T aValues[],TInt aCount)
sl@0	295	{
sl@0	296	BuildTableProlog(aType,aAttribs);
sl@0	297	for (TInt ii=0;ii<aCount;++ii)
sl@0	298	{
sl@0	299	TheTable.InsertL();
sl@0	300	SetColL(TheTable,1,aValues[ii]);
sl@0	301	TheTable.PutL();
sl@0	302	}
sl@0	303	test(TheDatabase.Commit()==KErrNone);
sl@0	304	test (TheTable.CountL()==aCount);
sl@0	305	TheTable.Close();
sl@0	306	}
sl@0	307
sl@0	308	/**
sl@0	309	@SYMTestCaseID SYSLIB-DBMS-CT-0620
sl@0	310	@SYMTestCaseDesc Setting the specified index as the active index for a table test
sl@0	311	@SYMTestPriority Medium
sl@0	312	@SYMTestActions Create an index and set as active index for the table.
sl@0	313	Tests for RDbNamedDatabase::CreateIndex(),RDbNamedDatabase::Commit()
sl@0	314	RDbTable::Open(),RDbTable::SetIndex() functions.
sl@0	315	@SYMTestExpectedResults Test must not fail
sl@0	316	@SYMREQ REQ0000
sl@0	317	*/
sl@0	318	LOCAL_C void BuildIndex(TDbTextComparison aComparison=EDbCompareNormal,TInt aLength=KDbUndefinedLength)
sl@0	319	{
sl@0	320	test.Next(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-0620 Test index order "));
sl@0	321	TheDatabase.Begin();
sl@0	322	CDbKey *key=CDbKey::NewLC();
sl@0	323	key->AddL(TDbKeyCol(KColumnName,aLength));
sl@0	324	key->MakeUnique();
sl@0	325	key->SetComparison(aComparison);
sl@0	326	test(TheDatabase.CreateIndex(KIndexName,KTableName,*key)==KErrNone);
sl@0	327	CleanupStack::PopAndDestroy();
sl@0	328	test (TheDatabase.Commit()==KErrNone);
sl@0	329	test(TheTable.Open(TheDatabase,KTableName)==KErrNone);
sl@0	330	test(TheTable.SetIndex(KIndexName)==KErrNone);
sl@0	331	}
sl@0	332
sl@0	333	inline void GetCol(RDbRowSet& aSet,TDbColNo col,TInt& aValue)
sl@0	334	{aValue=aSet.ColInt(col);}
sl@0	335	inline void GetCol(RDbRowSet& aSet,TDbColNo col,TUint& aValue)
sl@0	336	{aValue=aSet.ColUint(col);}
sl@0	337	inline void GetCol(RDbRowSet& aSet,TDbColNo col,TInt64& aValue)
sl@0	338	{aValue=aSet.ColInt64(col);}
sl@0	339	inline void GetCol(RDbRowSet& aSet,TDbColNo col,TReal32& aValue)
sl@0	340	{aValue=aSet.ColReal32(col);}
sl@0	341	inline void GetCol(RDbRowSet& aSet,TDbColNo col,TReal64& aValue)
sl@0	342	{aValue=aSet.ColReal64(col);}
sl@0	343	inline void GetCol(RDbRowSet& aSet,TDbColNo col,TTime& aValue)
sl@0	344	{aValue=aSet.ColTime(col);}
sl@0	345
sl@0	346	/**
sl@0	347	@SYMTestCaseID SYSLIB-DBMS-CT-0621
sl@0	348	@SYMTestCaseDesc RDbRowSet ordering test
sl@0	349	@SYMTestPriority Medium
sl@0	350	@SYMTestActions Reorder the row set data with RDbRowSet::GetL(),SetL() functions.
sl@0	351	@SYMTestExpectedResults Test must not fail
sl@0	352	@SYMREQ REQ0000
sl@0	353	*/
sl@0	354	template <class T>
sl@0	355	void TestOrdering(RDbRowSet& aSet,T,TInt aCount)
sl@0	356	{
sl@0	357	test.Next( _L( " @SYMTestCaseID:SYSLIB-DBMS-CT-0621 " ) );
sl@0	358	test(aSet.CountL()==aCount);
sl@0	359	TInt count=0;
sl@0	360	if (aSet.FirstL())
sl@0	361	{
sl@0	362	++count;
sl@0	363	aSet.GetL();
sl@0	364	T last;
sl@0	365	GetCol(aSet,1,last);
sl@0	366	while (aSet.NextL())
sl@0	367	{
sl@0	368	++count;
sl@0	369	aSet.GetL();
sl@0	370	T current;
sl@0	371	GetCol(aSet,1,current);
sl@0	372	test(last<current);
sl@0	373	last=current;
sl@0	374	}
sl@0	375	}
sl@0	376	test(count==aCount);
sl@0	377	}
sl@0	378
sl@0	379	/**
sl@0	380	@SYMTestCaseID SYSLIB-DBMS-CT-0622
sl@0	381	@SYMTestCaseDesc RDbTable::SeekL() function test
sl@0	382	@SYMTestPriority Medium
sl@0	383	@SYMTestActions Tests for the retrieved column value
sl@0	384	@SYMTestExpectedResults Test must not fail
sl@0	385	@SYMREQ REQ0000
sl@0	386	*/
sl@0	387	template <class T>
sl@0	388	void TestSeek(RDbTable& aTable,T,const T aValues[],TInt aCount)
sl@0	389	{
sl@0	390	test.Next( _L( " @SYMTestCaseID:SYSLIB-DBMS-CT-0622 Test index seeking " ) );
sl@0	391	for (TInt ii=0;ii<aCount;++ii)
sl@0	392	{
sl@0	393	test(aTable.SeekL(aValues[ii]));
sl@0	394	aTable.GetL();
sl@0	395	T val;
sl@0	396	GetCol(aTable,1,val);
sl@0	397	test(aValues[ii]==val);
sl@0	398	}
sl@0	399	}
sl@0	400
sl@0	401	/**
sl@0	402	aVal argument is used in the test functions (TestType & TestOrdering) and has no meaning outside them.
sl@0	403	It is used only to avoid some compiler varnings and to determine the correct template type
sl@0	404
sl@0	405	@SYMTestCaseID SYSLIB-DBMS-CT-0623
sl@0	406	@SYMTestCaseDesc Tests for RDbTable,RDbRowSet classes
sl@0	407	@SYMTestPriority Medium
sl@0	408	@SYMTestActions Call up Test for table ordering and index seeking functions
sl@0	409	@SYMTestExpectedResults Test must not fail
sl@0	410	@SYMREQ REQ0000
sl@0	411	*/
sl@0	412	template <class T>
sl@0	413	void TestType( TDbColType aType, TInt aAttribs, const T aValues[], TInt aCount )
sl@0	414	{
sl@0	415	test.Start( _L( " @SYMTestCaseID:SYSLIB-DBMS-CT-0623 Build table " ) );
sl@0	416	BuildTable( aType, aAttribs, aValues, aCount );
sl@0	417	T t(0);
sl@0	418	//
sl@0	419	test.Next( _L( "Test ORDER BY ordering" ) );
sl@0	420	test( TheView.Prepare( TheDatabase, KSelectOrdered ) == KErrNone );
sl@0	421	test( TheView.EvaluateAll() == KErrNone );
sl@0	422	TestOrdering( TheView, t, aCount );
sl@0	423	TheView.Close();
sl@0	424	//
sl@0	425	test.Next( _L( "Test index ordering" ) );
sl@0	426	BuildIndex();
sl@0	427	TestOrdering( TheTable, t, aCount );
sl@0	428	//
sl@0	429	test.Next( _L( "Test index seeking" ) );
sl@0	430	TestSeek( TheTable, t, aValues, aCount );
sl@0	431	TheTable.Close();
sl@0	432	//
sl@0	433	test( TheDatabase.DropTable( KTableName ) == KErrNone );
sl@0	434	test.End();
sl@0	435	}
sl@0	436	/**
sl@0	437	@SYMTestCaseID SYSLIB-DBMS-CT-1322
sl@0	438	@SYMTestCaseDesc Text ordering test
sl@0	439	@SYMTestPriority Medium
sl@0	440	@SYMTestActions Tests for RDbRowSet::Next(),RDbRowSet::GetL(),RDbRowSet::ColDes() functions
sl@0	441	@SYMTestExpectedResults Test must not fail
sl@0	442	@SYMREQ REQ0000
sl@0	443	*/
sl@0	444	void TestTextOrdering(RDbRowSet& aSet,TInt aCount,const TTextOps& aComp)
sl@0	445	{
sl@0	446	test.Next(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-1322 "));
sl@0	447	test(aSet.CountL()==aCount);
sl@0	448	TInt count=0;
sl@0	449	while (aSet.NextL())
sl@0	450	{
sl@0	451	aSet.GetL();
sl@0	452	TPtrC current=aSet.ColDes(1);
sl@0	453	if (count++>0)
sl@0	454	test(aComp.Compare(TheBuf,current)<0);
sl@0	455	TheBuf=current;
sl@0	456	}
sl@0	457	test(count==aCount);
sl@0	458	}
sl@0	459
sl@0	460	/**
sl@0	461	@SYMTestCaseID SYSLIB-DBMS-CT-1323
sl@0	462	@SYMTestCaseDesc Tests for RDbView,RDbTable classes
sl@0	463	@SYMTestPriority Medium
sl@0	464	@SYMTestActions Wrapper function to call up for text ordering and text indexing tests
sl@0	465	@SYMTestExpectedResults Test must not fail
sl@0	466	@SYMREQ REQ0000
sl@0	467	*/
sl@0	468	void TestText(const TPtrC aValues[],TInt aCount,TDbTextComparison aComparison,TInt aLength=KDbUndefinedLength)
sl@0	469	{
sl@0	470	const TTextOps& comp=TTextOps::Ops(aComparison);
sl@0	471	test.Start(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-1323 Build table "));
sl@0	472	BuildTable(EDbColText,0,aValues,aCount);
sl@0	473	//
sl@0	474	test.Next(_L("Test ORDER BY ordering"));
sl@0	475	test (TheView.Prepare(TheDatabase,TDbQuery(KSelectOrdered,aComparison))==KErrNone);
sl@0	476	test (TheView.EvaluateAll()==KErrNone);
sl@0	477	TestTextOrdering(TheView,aCount,comp);
sl@0	478	TheView.Close();
sl@0	479	//
sl@0	480	test.Next(_L("Test index order"));
sl@0	481	BuildIndex(aComparison,aLength);
sl@0	482	test(TheTable.SetIndex(KIndexName)==KErrNone);
sl@0	483	TestTextOrdering(TheTable,aCount,comp);
sl@0	484	//
sl@0	485	test.Next(_L("Test index seeking"));
sl@0	486	for (TInt ii=0;ii<aCount;++ii)
sl@0	487	{
sl@0	488	test(TheTable.SeekL(aValues[ii]));
sl@0	489	TheTable.GetL();
sl@0	490	test(comp.Compare(aValues[ii],TheTable.ColDes(1))==0);
sl@0	491	}
sl@0	492	//
sl@0	493	TheTable.Close();
sl@0	494	test(TheDatabase.DropTable(KTableName)==KErrNone);
sl@0	495	test.End();
sl@0	496	}
sl@0	497
sl@0	498	void TestLongTextOrdering(RDbRowSet& aSet,TInt aCount,const TTextOps& aComp)
sl@0	499	{
sl@0	500	test(aSet.CountL()==aCount);
sl@0	501	TInt count=0;
sl@0	502	HBufC* prev=0;
sl@0	503	while (aSet.NextL())
sl@0	504	{
sl@0	505	aSet.GetL();
sl@0	506	TInt len=aSet.ColLength(1);
sl@0	507	HBufC* buf=HBufC::NewL(len);
sl@0	508	RDbColReadStream s;
sl@0	509	s.OpenLC(aSet,1);
sl@0	510	TPtr des(buf->Des());
sl@0	511	s.ReadL(des,len);
sl@0	512	CleanupStack::PopAndDestroy();
sl@0	513	if (count++)
sl@0	514	test (aComp.Compare(buf,prev)>=0);
sl@0	515	delete prev;
sl@0	516	prev=buf;
sl@0	517	}
sl@0	518	delete prev;
sl@0	519	test(count==aCount);
sl@0	520	}
sl@0	521
sl@0	522	LOCAL_C void OrderByLongText(TInt aCount,TDbTextComparison aComparison)
sl@0	523	{
sl@0	524	test (TheView.Prepare(TheDatabase,TDbQuery(KSelectOrdered,aComparison))==KErrNone);
sl@0	525	test (TheView.EvaluateAll()==KErrNone);
sl@0	526	TestLongTextOrdering(TheView,aCount,TTextOps::Ops(aComparison));
sl@0	527	TheView.Close();
sl@0	528	}
sl@0	529
sl@0	530	LOCAL_C void TestLongText(const TPtrC aValues[],TInt aCount,TDbTextComparison aComparison,TInt aLength=KDbUndefinedLength)
sl@0	531	{
sl@0	532	const TTextOps& comp=TTextOps::Ops(aComparison);
sl@0	533	test.Start(_L("Build table"));
sl@0	534	BuildTable(EDbColLongText,0,aValues,aCount);
sl@0	535	//
sl@0	536	test.Next(_L("Test ORDER BY ordering"));
sl@0	537	OrderByLongText(aCount,aComparison);
sl@0	538	//
sl@0	539	test.Next(_L("Test index order"));
sl@0	540	BuildIndex(aComparison,aLength);
sl@0	541	test(TheTable.SetIndex(KIndexName)==KErrNone);
sl@0	542	TestLongTextOrdering(TheTable,aCount,comp);
sl@0	543	//
sl@0	544	test.Next(_L("Test index seeking"));
sl@0	545	for (TInt ii=0;ii<aCount;++ii)
sl@0	546	{
sl@0	547	test(TheTable.SeekL(aValues[ii]));
sl@0	548	TheTable.GetL();
sl@0	549	RDbColReadStream strm;
sl@0	550	strm.OpenLC(TheTable,1);
sl@0	551	strm.ReadL(TheBuf,TheTable.ColLength(1));
sl@0	552	CleanupStack::PopAndDestroy();
sl@0	553	test(comp.Compare(aValues[ii],TheBuf)==0);
sl@0	554	}
sl@0	555	TheTable.Close();
sl@0	556	//
sl@0	557	test(TheDatabase.DropTable(KTableName)==KErrNone);
sl@0	558	test.End();
sl@0	559	}
sl@0	560
sl@0	561	TUint const KBitValues[]={0,1};
sl@0	562	TInt const KInt8Values[]={0,KMinTInt8+1,1,KMaxTInt8,2,-3,-1,KMaxTInt8-1,KMinTInt8,-40};
sl@0	563	TInt const KInt16Values[]={0,KMinTInt16+1,1,KMaxTInt16,2,-3,-1,KMaxTInt16-1,KMinTInt16,-4000};
sl@0	564	TInt const KInt32Values[]={0,KMinTInt32+1,1,KMaxTInt32,2,-3,-1,KMaxTInt32-1,KMinTInt32,-40000000};
sl@0	565	TInt const KInt32Count=sizeof(KInt32Values)/sizeof(KInt32Values[0]);
sl@0	566	TUint const KUint8Values[]={0,1,KMaxTUint8,2,(KMaxTUint8+1)/2,(KMaxTUint8-1)/2,KMaxTUint8-1,40};
sl@0	567	TUint const KUint16Values[]={0,1,KMaxTUint16,2,(KMaxTUint16+1)/2,(KMaxTUint16-1)/2,KMaxTUint16-1,4000};
sl@0	568	TUint const KUint32Values[]={0,1,KMaxTUint32,2,KMaxTUint32/2+1,KMaxTUint32/2,KMaxTUint32-1,40000000};
sl@0	569	//TReal32 const KReal32Values[]={0.0f,1.0f,KMaxTReal32,KMinTReal32,-1.0f,-KMaxTReal32,-4e20f,-KMinTReal32};
sl@0	570	//TReal64 const KReal64Values[]={0.0,1.0,KMaxTReal64,KMinTReal64,-1.0,-KMaxTReal64,-4e200,-KMinTReal64};
sl@0	571	TReal32 const KReal32Values[]={0.0f,1.0f,1e37f,1e-37f,-1.0f,-1e37f,-4e20f,-1e-37f};
sl@0	572	TReal64 const KReal64Values[]={0.0,1.0,KMaxTReal64,KMinTReal64,-1.0,-KMaxTReal64,-4e200,-KMinTReal64};
sl@0	573	TInt64 const KInt64Values[]=
sl@0	574	{
sl@0	575	0,
sl@0	576	MAKE_TINT64(0x80000000u,0x1u),
sl@0	577	1,
sl@0	578	MAKE_TINT64(0x7fffffffu,0xffffffffu),
sl@0	579	2,
sl@0	580	-3,
sl@0	581	-1,
sl@0	582	MAKE_TINT64(0x7fffffffu,0xfffffffeu),
sl@0	583	MAKE_TINT64(0x80000000u,0x0u),
sl@0	584	-40
sl@0	585	};
sl@0	586	TTime const KTimeValues[]=
sl@0	587	{
sl@0	588	Time::MaxTTime(),
sl@0	589	TInt64(0),
sl@0	590	TDateTime(1970,EJanuary,0,0,0,0,0),
sl@0	591	Time::MinTTime(),
sl@0	592	TDateTime(2049,EDecember,30,23,59,59,999999),
sl@0	593	TDateTime(1996,EJuly,8,17,45,0,0)
sl@0	594	};
sl@0	595	TPtrC const KTextValues[]=
sl@0	596	{
sl@0	597	_S(""),
sl@0	598	_S("10"),
sl@0	599	_S("zyx"),
sl@0	600	_S("0"),
sl@0	601	_S("abcd"),
sl@0	602	_S("abcdefg"),
sl@0	603	_S("ABCDE"),
sl@0	604	_S("Z")
sl@0	605	};
sl@0	606	TPtrC const KLongTextValues[]=
sl@0	607	{
sl@0	608	_S("this blob will be inlined"),
sl@0	609	_S(""),
sl@0	610	_S("that blob was null"),
sl@0	611	_S("An example of an out-of-line blob in an index! LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8-LongText8")
sl@0	612	};
sl@0	613	const TInt KLongTextLimit=30;
sl@0	614
sl@0	615	/**
sl@0	616	@SYMTestCaseID SYSLIB-DBMS-CT-0624
sl@0	617	@SYMTestCaseDesc Wrapper function testing for Indexing with different integer sizes and Text .
sl@0	618	@SYMTestPriority Medium
sl@0	619	@SYMTestActions Tests for indexing
sl@0	620	@SYMTestExpectedResults Test must not fail
sl@0	621	@SYMREQ REQ0000
sl@0	622	*/
sl@0	623	LOCAL_C void TestTypes()
sl@0	624	{
sl@0	625	#define ARRAY_SIZE(a) TInt(sizeof(a)/sizeof(a[0]))
sl@0	626	test.Start(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-0624 Indexing Bit "));
sl@0	627	TestType(EDbColBit,TDbCol::ENotNull,KBitValues,ARRAY_SIZE(KBitValues));
sl@0	628	test.Next(_L("Indexing Int8"));
sl@0	629	TestType(EDbColInt8,TDbCol::ENotNull,KInt8Values,ARRAY_SIZE(KInt8Values));
sl@0	630	test.Next(_L("Indexing Int16"));
sl@0	631	TestType(EDbColInt16,TDbCol::ENotNull,KInt16Values,ARRAY_SIZE(KInt16Values));
sl@0	632	test.Next(_L("Indexing Int32"));
sl@0	633	TestType(EDbColInt32,TDbCol::ENotNull,KInt32Values,ARRAY_SIZE(KInt32Values));
sl@0	634	test.Next(_L("Indexing Uint8"));
sl@0	635	TestType(EDbColUint8,TDbCol::ENotNull,KUint8Values,ARRAY_SIZE(KUint8Values));
sl@0	636	test.Next(_L("Indexing Uint16"));
sl@0	637	TestType(EDbColUint16,TDbCol::ENotNull,KUint16Values,ARRAY_SIZE(KUint16Values));
sl@0	638	test.Next(_L("Indexing Uint32"));
sl@0	639	TestType(EDbColUint32,TDbCol::ENotNull,KUint32Values,ARRAY_SIZE(KUint32Values));
sl@0	640	test.Next(_L("Indexing Real32"));
sl@0	641	TestType(EDbColReal32,TDbCol::ENotNull,KReal32Values,ARRAY_SIZE(KReal32Values));
sl@0	642	test.Next(_L("Indexing Real64"));
sl@0	643	TestType(EDbColReal64,TDbCol::ENotNull,KReal64Values,ARRAY_SIZE(KReal64Values));
sl@0	644	test.Next(_L("Indexing Int64"));
sl@0	645	TestType(EDbColInt64,TDbCol::ENotNull,KInt64Values,ARRAY_SIZE(KInt64Values));
sl@0	646	test.Next(_L("Indexing Time"));
sl@0	647	TestType(EDbColDateTime,TDbCol::ENotNull,KTimeValues,ARRAY_SIZE(KTimeValues));
sl@0	648	test.Next(_L("Indexing Text (Normal)"));
sl@0	649	TestText(KTextValues,ARRAY_SIZE(KTextValues),EDbCompareNormal);
sl@0	650	test.Next(_L("Indexing Text (Folded)"));
sl@0	651	TestText(KTextValues,ARRAY_SIZE(KTextValues),EDbCompareFolded);
sl@0	652	test.Next(_L("Indexing Text (Collated)"));
sl@0	653	TestText(KTextValues,ARRAY_SIZE(KTextValues),EDbCompareCollated);
sl@0	654	test.Next(_L("Indexing Text (Normal, truncated)"));
sl@0	655	TestText(KTextValues,ARRAY_SIZE(KTextValues),EDbCompareNormal,5);
sl@0	656	test.Next(_L("Indexing LongText (Normal)"));
sl@0	657	TestLongText(KLongTextValues,ARRAY_SIZE(KLongTextValues),EDbCompareNormal,KLongTextLimit);
sl@0	658	test.Next(_L("Indexing LongText (Folded)"));
sl@0	659	TestLongText(KLongTextValues,ARRAY_SIZE(KLongTextValues),EDbCompareFolded,KLongTextLimit);
sl@0	660	test.Next(_L("Indexing LongText (Collated)"));
sl@0	661	TestLongText(KLongTextValues,ARRAY_SIZE(KLongTextValues),EDbCompareCollated,KLongTextLimit);
sl@0	662	test.End();
sl@0	663	}
sl@0	664
sl@0	665	const TInt KBlobKeyTruncated=32/sizeof(TText);
sl@0	666	const TInt KBlobKeyMaxInline=255/sizeof(TText);
sl@0	667	const TInt KBlobKeyCompare=512/sizeof(TText);
sl@0	668
sl@0	669	const TInt KMemoTestLengths[]=
sl@0	670	{
sl@0	671	0,
sl@0	672	1,
sl@0	673	KBlobKeyTruncated-1,
sl@0	674	KBlobKeyTruncated,
sl@0	675	KBlobKeyTruncated+1,
sl@0	676	KBlobKeyMaxInline,
sl@0	677	KBlobKeyMaxInline+1,
sl@0	678	KBlobKeyCompare-1,
sl@0	679	KBlobKeyCompare,
sl@0	680	KBlobKeyCompare+1,
sl@0	681	5000
sl@0	682	};
sl@0	683
sl@0	684	void TestMemoTable(CDbColSet& aBaseSet)
sl@0	685	{
sl@0	686	test.Start(_L("create the table"));
sl@0	687	aBaseSet.AddL(TDbCol(KColumnName,EDbColLongText));
sl@0	688	TheDatabase.Begin();
sl@0	689	TInt r=TheDatabase.CreateTable(KTableName,aBaseSet);
sl@0	690	test (r==KErrNone);
sl@0	691	//
sl@0	692	test.Next(_L("add the rows"));
sl@0	693	r=TheView.Prepare(TheDatabase,KSelectOrdered,RDbView::EInsertOnly);
sl@0	694	test (r==KErrNone);
sl@0	695	r=TheView.EvaluateAll();
sl@0	696	test (r==KErrNone);
sl@0	697	HBufC* prev=0;
sl@0	698	TInt count=0;
sl@0	699	for (TUint ii=0;ii<elementsof(KMemoTestLengths);++ii)
sl@0	700	{
sl@0	701	TInt size=KMemoTestLengths[ii];
sl@0	702	HBufC* buf=HBufC::NewL(size);
sl@0	703	if (size>0)
sl@0	704	{
sl@0	705	TPtr des(buf->Des());
sl@0	706	des.Copy(*prev);
sl@0	707	des.AppendFill('b',size-prev->Length());
sl@0	708	delete prev;
sl@0	709	TheView.InsertL();
sl@0	710	TheView.SetColL(1,*buf);
sl@0	711	TheView.PutL();
sl@0	712	++count;
sl@0	713	des[size-1]='a';
sl@0	714	}
sl@0	715	TheView.InsertL();
sl@0	716	TheView.SetColL(1,*buf);
sl@0	717	TheView.PutL();
sl@0	718	++count;
sl@0	719	prev=buf;
sl@0	720	}
sl@0	721	delete prev;
sl@0	722	TheView.Close();
sl@0	723	r=TheDatabase.Commit();
sl@0	724	test (r==KErrNone);
sl@0	725	//
sl@0	726	test.Next(_L("Normal order"));
sl@0	727	OrderByLongText(count,EDbCompareNormal);
sl@0	728	test.Next(_L("Folded order"));
sl@0	729	OrderByLongText(count,EDbCompareFolded);
sl@0	730	test.Next(_L("Collated order"));
sl@0	731	OrderByLongText(count,EDbCompareCollated);
sl@0	732	//
sl@0	733	r=TheDatabase.DropTable(KTableName);
sl@0	734	test (r==KErrNone);
sl@0	735	test.End();
sl@0	736	}
sl@0	737
sl@0	738	/**
sl@0	739	@SYMTestCaseID SYSLIB-DBMS-CT-0625
sl@0	740	@SYMTestCaseDesc Tests for ordering by longtext
sl@0	741	@SYMTestPriority Medium
sl@0	742	@SYMTestActions Tests for CDbColSet
sl@0	743	@SYMTestExpectedResults Test must not fail
sl@0	744	@SYMREQ REQ0000
sl@0	745	*/
sl@0	746	LOCAL_C void TestOrderByLongText()
sl@0	747	{
sl@0	748	test.Start(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-0625 Maximum Inline Limit "));
sl@0	749	CDbColSet* set=CDbColSet::NewLC();
sl@0	750	TestMemoTable(*set);
sl@0	751	//
sl@0	752	test.Next(_L("Reduced Inline limit [<32]"));
sl@0	753	set->Clear();
sl@0	754	TDbCol col;
sl@0	755	col.iType=EDbColText8;
sl@0	756	col.iMaxLength=255;
sl@0	757	col.iAttributes=0;
sl@0	758	TDbColName name;
sl@0	759	for (TInt ii=0;ii<32;++ii)
sl@0	760	{
sl@0	761	name.Format(_L("col%d"),ii);
sl@0	762	col.iName=name;
sl@0	763	if (ii==31)
sl@0	764	col.iMaxLength=255-20;
sl@0	765	set->AddL(col);
sl@0	766	}
sl@0	767	TestMemoTable(*set);
sl@0	768	CleanupStack::PopAndDestroy();
sl@0	769	test.End();
sl@0	770	}
sl@0	771
sl@0	772	/**
sl@0	773	@SYMTestCaseID SYSLIB-DBMS-CT-0626
sl@0	774	@SYMTestCaseDesc Tests for reverse ordering in indexes
sl@0	775	@SYMTestPriority Medium
sl@0	776	@SYMTestActions Tests for reversing the indexes
sl@0	777	@SYMTestExpectedResults Test must not fail
sl@0	778	@SYMREQ REQ0000
sl@0	779	*/
sl@0	780	LOCAL_C void TestReverse()
sl@0	781	{
sl@0	782	test.Start(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-0626 Create table and index "));
sl@0	783	TheDatabase.Begin();
sl@0	784	CDbColSet *cs=CDbColSet::NewLC();
sl@0	785	cs->AddL(TDbCol(KColumnName,EDbColInt32));
sl@0	786	test(TheDatabase.CreateTable(KTableName,*cs)==KErrNone);
sl@0	787	CleanupStack::PopAndDestroy();
sl@0	788	CDbKey *key=CDbKey::NewLC();
sl@0	789	key->AddL(TDbKeyCol(KColumnName,TDbKeyCol::EDesc));
sl@0	790	key->MakeUnique();
sl@0	791	test(TheDatabase.CreateIndex(KIndexName,KTableName,*key)==KErrNone);
sl@0	792	CleanupStack::PopAndDestroy();
sl@0	793	test(TheDatabase.Commit()==KErrNone);
sl@0	794	test.Next(_L("Add records"));
sl@0	795	TheDatabase.Begin();
sl@0	796	test(TheTable.Open(TheDatabase,KTableName)==KErrNone);
sl@0	797	for (TInt ii=0;ii<KInt32Count;++ii)
sl@0	798	{
sl@0	799	TheTable.InsertL();
sl@0	800	TheTable.SetColL(1,KInt32Values[ii]);
sl@0	801	TheTable.PutL();
sl@0	802	}
sl@0	803	test(TheDatabase.Commit()==KErrNone);
sl@0	804	test(TheTable.CountL()==KInt32Count);
sl@0	805	test.Next(_L("Check order"));
sl@0	806	test(TheTable.SetIndex(KIndexName)==KErrNone);
sl@0	807	test(TheTable.CountL()==KInt32Count);
sl@0	808	TInt count=0;
sl@0	809	if (TheTable.FirstL())
sl@0	810	{
sl@0	811	++count;
sl@0	812	TheTable.GetL();
sl@0	813	TInt32 last=TheTable.ColInt(1);
sl@0	814	while (TheTable.NextL())
sl@0	815	{
sl@0	816	++count;
sl@0	817	TheTable.GetL();
sl@0	818	TInt32 current=TheTable.ColInt(1);
sl@0	819	test(last>current);
sl@0	820	last=current;
sl@0	821	}
sl@0	822	}
sl@0	823	test(count==KInt32Count);
sl@0	824	TheTable.Close();
sl@0	825	test(TheDatabase.DropTable(KTableName)==KErrNone);
sl@0	826	test.End();
sl@0	827	}
sl@0	828
sl@0	829	/**
sl@0	830	@SYMTestCaseID SYSLIB-DBMS-CT-0627
sl@0	831	@SYMTestCaseDesc Tests for multi-column keys
sl@0	832	@SYMTestPriority Medium
sl@0	833	@SYMTestActions Tests for mutliple column keys
sl@0	834	@SYMTestExpectedResults Test must not fail
sl@0	835	@SYMREQ REQ0000
sl@0	836	*/
sl@0	837	LOCAL_C void TestMulti()
sl@0	838	{
sl@0	839	test.Start(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-0627 Create table and index "));
sl@0	840	TheDatabase.Begin();
sl@0	841	CDbColSet *cs=CDbColSet::NewLC();
sl@0	842	TDbCol col(KColumnName,EDbColInt32);
sl@0	843	col.iAttributes=TDbCol::ENotNull;
sl@0	844	cs->AddL(col);
sl@0	845	col.iName=KColumnTwo;
sl@0	846	cs->AddL(col);
sl@0	847	test(TheDatabase.CreateTable(KTableName,*cs)==KErrNone);
sl@0	848	CleanupStack::PopAndDestroy();
sl@0	849	CDbKey *key=CDbKey::NewLC();
sl@0	850	key->AddL(TDbKeyCol(KColumnTwo));
sl@0	851	key->AddL(TDbKeyCol(KColumnName,TDbKeyCol::EDesc));
sl@0	852	key->MakeUnique();
sl@0	853	test(TheDatabase.CreateIndex(KIndexName,KTableName,*key)==KErrNone);
sl@0	854	CleanupStack::PopAndDestroy();
sl@0	855	test(TheDatabase.Commit()==KErrNone);
sl@0	856	test.Next(_L("Add records"));
sl@0	857	TheDatabase.Begin();
sl@0	858	test(TheTable.Open(TheDatabase,KTableName)==KErrNone);
sl@0	859	for (TInt ii=0;ii<KInt32Count;++ii)
sl@0	860	{
sl@0	861	for (TInt jj=0;jj<KInt32Count;++jj)
sl@0	862	{
sl@0	863	TheTable.InsertL();
sl@0	864	TheTable.SetColL(1,KInt32Values[ii]);
sl@0	865	TheTable.SetColL(2,KInt32Values[jj]);
sl@0	866	TheTable.PutL();
sl@0	867	}
sl@0	868	}
sl@0	869	test(TheDatabase.Commit()==KErrNone);
sl@0	870	test.Next(_L("Check order"));
sl@0	871	test(TheTable.CountL()==KInt32Count*KInt32Count);
sl@0	872	test(TheTable.SetIndex(KIndexName)==KErrNone);
sl@0	873	test(TheTable.CountL()==KInt32Count*KInt32Count);
sl@0	874	TInt count=0;
sl@0	875	if (TheTable.FirstL())
sl@0	876	{
sl@0	877	++count;
sl@0	878	TheTable.GetL();
sl@0	879	TInt32 lastOne=TheTable.ColInt(1);
sl@0	880	TInt32 lastTwo=TheTable.ColInt(2);
sl@0	881	while (TheTable.NextL())
sl@0	882	{
sl@0	883	++count;
sl@0	884	TheTable.GetL();
sl@0	885	TInt32 currentOne=TheTable.ColInt(1);
sl@0	886	TInt32 currentTwo=TheTable.ColInt(2);
sl@0	887	test(lastTwo<currentTwo\|\|(lastTwo==currentTwo&&lastOne>currentOne));
sl@0	888	lastOne=currentOne;
sl@0	889	lastTwo=currentTwo;
sl@0	890	}
sl@0	891	}
sl@0	892	test(count==KInt32Count*KInt32Count);
sl@0	893	TheTable.Close();
sl@0	894	test(TheDatabase.DropTable(KTableName)==KErrNone);
sl@0	895	test.End();
sl@0	896	}
sl@0	897
sl@0	898	/**
sl@0	899	@SYMTestCaseID SYSLIB-DBMS-CT-0628
sl@0	900	@SYMTestCaseDesc Tests duplicates/unique constraints
sl@0	901	@SYMTestPriority Medium
sl@0	902	@SYMTestActions Tests for adding duplicate entries
sl@0	903	@SYMTestExpectedResults Test must not fail
sl@0	904	@SYMREQ REQ0000
sl@0	905	*/
sl@0	906	LOCAL_C void TestDuplicates()
sl@0	907	{
sl@0	908	test.Start(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-0628 Create table and indices "));
sl@0	909	BuildTable(EDbColInt32,TDbCol::ENotNull,KInt32Values,KInt32Count);
sl@0	910	BuildIndex();
sl@0	911	TheTable.Close();
sl@0	912	CDbKey* key=CDbKey::NewLC();
sl@0	913	key->AddL(KColumnName);
sl@0	914	test(TheDatabase.CreateIndex(KIndexTwo,KTableName,*key)==KErrNone);
sl@0	915	CleanupStack::PopAndDestroy();
sl@0	916	test.Next(_L("Attempt to add/update duplicate entry"));
sl@0	917	test(TheTable.Open(TheDatabase,KTableName)==KErrNone);
sl@0	918	TheTable.InsertL();
sl@0	919	TheTable.SetColL(1,0);
sl@0	920	TRAPD(r,TheTable.PutL());
sl@0	921	test(r!=KErrNone);
sl@0	922	TheTable.Cancel();
sl@0	923	TheTable.LastL();
sl@0	924	TheTable.UpdateL();
sl@0	925	TheTable.SetColL(1,0);
sl@0	926	TRAP(r,TheTable.PutL());
sl@0	927	test(r!=KErrNone);
sl@0	928	TheTable.Cancel();
sl@0	929	test.Next(_L("Remove unique index"));
sl@0	930	TheTable.Close();
sl@0	931	test(TheDatabase.DropIndex(KIndexName,KTableName)==KErrNone);
sl@0	932	test.Next(_L("Attempt to update/add duplicate entry"));
sl@0	933	test(TheTable.Open(TheDatabase,KTableName)==KErrNone);
sl@0	934	TheTable.LastL();
sl@0	935	TheTable.UpdateL();
sl@0	936	TheTable.SetColL(1,0);
sl@0	937	TRAP(r,TheTable.PutL());
sl@0	938	test(r==KErrNone);
sl@0	939	TheTable.InsertL();
sl@0	940	TheTable.SetColL(1,0);
sl@0	941	TRAP(r,TheTable.PutL());
sl@0	942	test(r==KErrNone);
sl@0	943	test.Next(_L("Check order"));
sl@0	944	test(TheTable.CountL()==KInt32Count+1);
sl@0	945	test(TheTable.SetIndex(KIndexTwo)==KErrNone);
sl@0	946	test(TheTable.CountL()==KInt32Count+1);
sl@0	947	TInt count=0;
sl@0	948	if (TheTable.FirstL())
sl@0	949	{
sl@0	950	++count;
sl@0	951	TheTable.GetL();
sl@0	952	TInt32 last=TheTable.ColInt(1);
sl@0	953	while (TheTable.NextL())
sl@0	954	{
sl@0	955	++count;
sl@0	956	TheTable.GetL();
sl@0	957	TInt32 current=TheTable.ColInt(1);
sl@0	958	test(last<=current); // duplicates present
sl@0	959	last=current;
sl@0	960	}
sl@0	961	}
sl@0	962	test(count==KInt32Count+1);
sl@0	963	test.Next(_L("Try to create unique index"));
sl@0	964	TheTable.Close();
sl@0	965	key=CDbKey::NewLC();
sl@0	966	key->AddL(KColumnName);
sl@0	967	key->MakeUnique();
sl@0	968	test(TheDatabase.CreateIndex(KIndexName,KTableName,*key)!=KErrNone);
sl@0	969	CleanupStack::PopAndDestroy();
sl@0	970	test(TheDatabase.DropTable(KTableName)==KErrNone);
sl@0	971	test.End();
sl@0	972	}
sl@0	973
sl@0	974	struct Pair { TInt i1,i2; };
sl@0	975	struct TSeekingTest
sl@0	976	{
sl@0	977	Pair iSeek;
sl@0	978	Pair iResults[5];
sl@0	979	};
sl@0	980
sl@0	981	// seek pair: results for <,<=,=,>=,>
sl@0	982	static TSeekingTest const SeekingTests[]=
sl@0	983	{
sl@0	984	{{0,0},{{-1,-1},{-1,-1},{-1,-1},{100,10},{100,10}}},
sl@0	985	{{0,-1},{{-1,-1},{-1,-1},{-1,-1},{100,10},{100,10}}},
sl@0	986	{{100,0},{{-1,-1},{-1,-1},{-1,-1},{100,10},{100,10}}},
sl@0	987	{{100,10},{{-1,-1},{100,10},{100,10},{100,10},{100,20}}},
sl@0	988	{{100,55},{{100,50},{100,50},{-1,-1},{100,60},{100,60}}},
sl@0	989	{{100,60},{{100,50},{100,60},{100,60},{100,60},{100,70}}},
sl@0	990	{{100,100},{{100,90},{100,100},{100,100},{100,100},{200,10}}},
sl@0	991	{{100,110},{{100,100},{100,100},{-1,-1},{200,10},{200,10}}},
sl@0	992	{{100,-1},{{-1,-1},{100,100},{100,10},{100,10},{200,10}}},
sl@0	993	{{500,-1},{{400,100},{500,100},{500,10},{500,10},{600,10}}},
sl@0	994	{{550,50},{{500,100},{500,100},{-1,-1},{600,10},{600,10}}},
sl@0	995	{{550,-1},{{500,100},{500,100},{-1,-1},{600,10},{600,10}}},
sl@0	996	{{1000,0},{{900,100},{900,100},{-1,-1},{1000,10},{1000,10}}},
sl@0	997	{{1000,10},{{900,100},{1000,10},{1000,10},{1000,10},{1000,20}}},
sl@0	998	{{1000,100},{{1000,90},{1000,100},{1000,100},{1000,100},{-1,-1}}},
sl@0	999	{{1000,110},{{1000,100},{1000,100},{-1,-1},{-1,-1},{-1,-1}}},
sl@0	1000	{{1000,-1},{{900,100},{1000,100},{1000,10},{1000,10},{-1,-1}}},
sl@0	1001	{{1100,0},{{1000,100},{1000,100},{-1,-1},{-1,-1},{-1,-1}}},
sl@0	1002	{{1100,-1},{{1000,100},{1000,100},{-1,-1},{-1,-1},{-1,-1}}}
sl@0	1003	};
sl@0	1004
sl@0	1005	/**
sl@0	1006	@SYMTestCaseID SYSLIB-DBMS-CT-0629
sl@0	1007	@SYMTestCaseDesc Tests for seeking on indexes
sl@0	1008	@SYMTestPriority Medium
sl@0	1009	@SYMTestActions Tests for SeekL and GetL functions
sl@0	1010	@SYMTestExpectedResults Test must not fail
sl@0	1011	@SYMREQ REQ0000
sl@0	1012	*/
sl@0	1013	LOCAL_C void TestSeeking()
sl@0	1014	{
sl@0	1015	test.Start(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-0629 Create table and index "));
sl@0	1016	TheDatabase.Begin();
sl@0	1017	CDbColSet *cs=CDbColSet::NewLC();
sl@0	1018	TDbCol col(KColumnName,EDbColInt32);
sl@0	1019	col.iAttributes=TDbCol::ENotNull;
sl@0	1020	cs->AddL(col);
sl@0	1021	col.iName=KColumnTwo;
sl@0	1022	cs->AddL(col);
sl@0	1023	test(TheDatabase.CreateTable(KTableName,*cs)==KErrNone);
sl@0	1024	CleanupStack::PopAndDestroy();
sl@0	1025	CDbKey *key=CDbKey::NewLC();
sl@0	1026	key->AddL(KColumnName).AddL(KColumnTwo);
sl@0	1027	key->MakeUnique();
sl@0	1028	test(TheDatabase.CreateIndex(KIndexName,KTableName,*key)==KErrNone);
sl@0	1029	CleanupStack::PopAndDestroy();
sl@0	1030	test(TheDatabase.Commit()==KErrNone);
sl@0	1031	test.Next(_L("Add records"));
sl@0	1032	TheDatabase.Begin();
sl@0	1033	test(TheTable.Open(TheDatabase,KTableName)==KErrNone);
sl@0	1034	for (TInt ii=100;ii<=1000;ii+=100)
sl@0	1035	{
sl@0	1036	for (TInt jj=10;jj<=100;jj+=10)
sl@0	1037	{
sl@0	1038	TheTable.InsertL();
sl@0	1039	TheTable.SetColL(1,ii);
sl@0	1040	TheTable.SetColL(2,jj);
sl@0	1041	TheTable.PutL();
sl@0	1042	}
sl@0	1043	}
sl@0	1044	test(TheDatabase.Commit()==KErrNone);
sl@0	1045	test(TheTable.CountL()==100);
sl@0	1046	test(TheTable.SetIndex(KIndexName)==KErrNone);
sl@0	1047	test(TheTable.CountL()==100);
sl@0	1048	test.Next(_L("Seeking"));
sl@0	1049	const TSeekingTest* stest=SeekingTests;
sl@0	1050	const TSeekingTest* const end=stest+sizeof(SeekingTests)/sizeof(SeekingTests[0])-1;
sl@0	1051	for (;stest<=end;++stest)
sl@0	1052	{
sl@0	1053	TDbSeekMultiKey<2> key;
sl@0	1054	key.Add(stest->iSeek.i1);
sl@0	1055	if (stest->iSeek.i2>=0)
sl@0	1056	key.Add(stest->iSeek.i2);
sl@0	1057	const Pair* results=stest->iResults;
sl@0	1058	for (TInt ii=RDbTable::ELessThan;ii<=RDbTable::EGreaterThan;++results,++ii)
sl@0	1059	{
sl@0	1060	if (TheTable.SeekL(key,RDbTable::TComparison(ii)))
sl@0	1061	{
sl@0	1062	test(results->i1>=0);
sl@0	1063	TRAPD(errCode, TheTable.GetL());
sl@0	1064	test(errCode==KErrNone);
sl@0	1065	test(TheTable.ColInt(1)==results->i1);
sl@0	1066	test(TheTable.ColInt(2)==results->i2);
sl@0	1067	}
sl@0	1068	else
sl@0	1069	test(results->i1<0);
sl@0	1070	}
sl@0	1071	}
sl@0	1072	TheTable.Close();
sl@0	1073	test(TheDatabase.DropTable(KTableName)==KErrNone);
sl@0	1074	test.End();
sl@0	1075	}
sl@0	1076
sl@0	1077	/**
sl@0	1078	@SYMTestCaseID SYSLIB-DBMS-CT-0630
sl@0	1079	@SYMTestCaseDesc Tests for defect,index creation and set index operations
sl@0	1080	@SYMTestPriority Medium
sl@0	1081	@SYMTestActions Tests for creating and setting index operations
sl@0	1082	@SYMTestExpectedResults Test must not fail
sl@0	1083	@SYMREQ REQ0000
sl@0	1084	*/
sl@0	1085	LOCAL_C void TestInequalityError()
sl@0	1086	{
sl@0	1087	test.Start(_L(" @SYMTestCaseID:SYSLIB-DBMS-CT-0630 Create table "));
sl@0	1088	TheDatabase.Begin();
sl@0	1089	CDbColSet *cs=CDbColSet::NewLC();
sl@0	1090	cs->AddL(TDbCol(KColumnName,EDbColInt32));
sl@0	1091	test(TheDatabase.CreateTable(KTableName,*cs)==KErrNone);
sl@0	1092	CleanupStack::PopAndDestroy();
sl@0	1093	//
sl@0	1094	test.Next(_L("create indices"));
sl@0	1095	CDbKey *key=CDbKey::NewLC();
sl@0	1096	key->AddL(TDbKeyCol(KColumnName));
sl@0	1097	test(TheDatabase.CreateIndex(KIndexName,KTableName,*key)==KErrNone);
sl@0	1098	CleanupStack::PopAndDestroy();
sl@0	1099	//
sl@0	1100	test.Next(_L("Populate table"));
sl@0	1101	test(TheTable.Open(TheDatabase,KTableName)==KErrNone);
sl@0	1102	for(TInt ii=0; ii<=130;++ii)
sl@0	1103	{
sl@0	1104	TheTable.InsertL();
sl@0	1105	TheTable.SetColL(1,ii);
sl@0	1106	TheTable.PutL();
sl@0	1107	}
sl@0	1108	//
sl@0	1109	test.Next(_L("Checks"));
sl@0	1110	test(TheTable.SetIndex(KIndexName)==KErrNone);
sl@0	1111	//
sl@0	1112	// We need to delete a row in this node to get to the correct inequality condition
sl@0	1113	test.Next(_L("Delete row 90"));
sl@0	1114	test(TheTable.SeekL(TDbSeekKey(90)));
sl@0	1115	TheTable.GetL();
sl@0	1116	TheTable.DeleteL();
sl@0	1117	// Now delete last row on node which should be 94
sl@0	1118	test.Next(_L("Delete row 94"));
sl@0	1119	test(TheTable.SeekL(TDbSeekKey(94)));
sl@0	1120	TheTable.GetL();
sl@0	1121	TheTable.DeleteL();
sl@0	1122	TheTable.EndL();
sl@0	1123	test(!TheTable.SeekL(TDbSeekKey(94)));
sl@0	1124	//
sl@0	1125	test.Next(_L("Insert row 94"));
sl@0	1126	TheTable.InsertL();
sl@0	1127	TheTable.SetColL(1,94);
sl@0	1128	TheTable.PutL();
sl@0	1129	//
sl@0	1130	test.Next(_L("now try and find it"));
sl@0	1131	test(TheTable.SeekL(TDbSeekKey(94))); //prior to defect fix this line failed.
sl@0	1132	//
sl@0	1133	TheTable.Close();
sl@0	1134	test(TheDatabase.DropTable(KTableName)==KErrNone);
sl@0	1135	test.End();
sl@0	1136	}
sl@0	1137
sl@0	1138	//
sl@0	1139	// Test the database definition and enquiry functions
sl@0	1140	//
sl@0	1141	LOCAL_C void TestIndexes()
sl@0	1142	{
sl@0	1143	test.Start(_L("Create Database"));
sl@0	1144	CreateDatabaseL();
sl@0	1145	test.Next(_L("Test index build and drop"));
sl@0	1146	TestIndexBuild();
sl@0	1147	test.Next(_L("Test index persistence"));
sl@0	1148	TestPersistence();
sl@0	1149	test.Next(_L("Testing index key types"));
sl@0	1150	TestTypes();
sl@0	1151	test.Next(_L("Testing LongText ORDER BY"));
sl@0	1152	TestOrderByLongText();
sl@0	1153	test.Next(_L("Testing reverse ordering"));
sl@0	1154	TestReverse();
sl@0	1155	test.Next(_L("Testing multi column keys"));
sl@0	1156	TestMulti();
sl@0	1157	test.Next(_L("Testing duplicate/unqiue"));
sl@0	1158	TestDuplicates();
sl@0	1159	test.Next(_L("Testing seeking"));
sl@0	1160	TestSeeking();
sl@0	1161	test.Next(_L("Testing incorrect inequaltiy condition in store btree"));
sl@0	1162	TestInequalityError();
sl@0	1163	CloseDatabaseL();
sl@0	1164	test.End();
sl@0	1165	}
sl@0	1166
sl@0	1167	//
sl@0	1168	// Prepare the test directory.
sl@0	1169	//
sl@0	1170	LOCAL_C void setupTestDirectory()
sl@0	1171	{
sl@0	1172	TInt r=TheFs.Connect();
sl@0	1173	test(r==KErrNone);
sl@0	1174	//
sl@0	1175	r=TheFs.MkDir(KTestDatabase);
sl@0	1176	test(r==KErrNone \|\| r==KErrAlreadyExists);
sl@0	1177	}
sl@0	1178
sl@0	1179	//
sl@0	1180	// Initialise the cleanup stack.
sl@0	1181	//
sl@0	1182	LOCAL_C void setupCleanup()
sl@0	1183	{
sl@0	1184	TheTrapCleanup=CTrapCleanup::New();
sl@0	1185	test(TheTrapCleanup!=NULL);
sl@0	1186	TRAPD(r,\
sl@0	1187	{\
sl@0	1188	for (TInt i=KTestCleanupStack;i>0;i--)\
sl@0	1189	CleanupStack::PushL((TAny*)0);\
sl@0	1190	CleanupStack::Pop(KTestCleanupStack);\
sl@0	1191	});
sl@0	1192	test(r==KErrNone);
sl@0	1193	}
sl@0	1194
sl@0	1195	LOCAL_C void DeleteDataFile(const TDesC& aFullName)
sl@0	1196	{
sl@0	1197	RFs fsSession;
sl@0	1198	TInt err = fsSession.Connect();
sl@0	1199	if(err == KErrNone)
sl@0	1200	{
sl@0	1201	TEntry entry;
sl@0	1202	if(fsSession.Entry(aFullName, entry) == KErrNone)
sl@0	1203	{
sl@0	1204	RDebug::Print(_L("Deleting \"%S\" file.\n"), &aFullName);
sl@0	1205	err = fsSession.SetAtt(aFullName, 0, KEntryAttReadOnly);
sl@0	1206	if(err != KErrNone)
sl@0	1207	{
sl@0	1208	RDebug::Print(_L("Error %d changing \"%S\" file attributes.\n"), err, &aFullName);
sl@0	1209	}
sl@0	1210	err = fsSession.Delete(aFullName);
sl@0	1211	if(err != KErrNone)
sl@0	1212	{
sl@0	1213	RDebug::Print(_L("Error %d deleting \"%S\" file.\n"), err, &aFullName);
sl@0	1214	}
sl@0	1215	}
sl@0	1216	fsSession.Close();
sl@0	1217	}
sl@0	1218	else
sl@0	1219	{
sl@0	1220	RDebug::Print(_L("Error %d connecting file session. File: %S.\n"), err, &aFullName);
sl@0	1221	}
sl@0	1222	}
sl@0	1223
sl@0	1224	//
sl@0	1225	// Test streaming conversions.
sl@0	1226	//
sl@0	1227	GLDEF_C TInt E32Main()
sl@0	1228	{
sl@0	1229	test.Title();
sl@0	1230	setupTestDirectory();
sl@0	1231	setupCleanup();
sl@0	1232	__UHEAP_MARK;
sl@0	1233	//
sl@0	1234	#ifndef __TOOLS2__
sl@0	1235	TInt r=TheDbs.Connect();
sl@0	1236	test (r==KErrNone);
sl@0	1237	TheDbs.ResourceMark();
sl@0	1238	#else
sl@0	1239	TInt r;
sl@0	1240	#endif
sl@0	1241	test.Start(_L("Standard database"));
sl@0	1242	TRAP(r,TestIndexes();)
sl@0	1243	test(r==KErrNone);
sl@0	1244	test.Next(_L("Secure database"));
sl@0	1245	TRAP(r,TestIndexes();)
sl@0	1246	test(r==KErrNone);
sl@0	1247
sl@0	1248	::DeleteDataFile(KTestDatabase); //deletion of data files must be before call to end - DEF047652
sl@0	1249
sl@0	1250	#ifndef __linux__
sl@0	1251	TInt err;
sl@0	1252	#ifndef __TOOLS2__
sl@0	1253	TRAPD(lc, err = TheCrcChecker.DumpCrcRecordsL(KCrcRecord));
sl@0	1254	test(err==KErrNone);
sl@0	1255	test(lc==KErrNone);
sl@0	1256	#else
sl@0	1257	TRAPD(lc, err = TheCrcChecker.ValidateCrcRecordsL(KCrcRecord));
sl@0	1258	TPtrC errmsg;
sl@0	1259	TheCrcChecker.ErrorReportL(err, errmsg);
sl@0	1260	RDebug::Print(errmsg);
sl@0	1261	test(err==KErrNone \|\| err==TDBMS_CRCChecks::ECrcCheckOk);
sl@0	1262	#endif
sl@0	1263	#endif
sl@0	1264
sl@0	1265	test.End();
sl@0	1266	#ifndef __TOOLS2__
sl@0	1267	TheDbs.ResourceCheck();
sl@0	1268	TheDbs.Close();
sl@0	1269	#endif
sl@0	1270
sl@0	1271	test.Printf(_L("Waiting for server exit\n"));
sl@0	1272	const TUint KExitDelay=6*0x100000; // ~6 seconds
sl@0	1273	User::After(KExitDelay);
sl@0	1274
sl@0	1275	__UHEAP_MARKEND;
sl@0	1276	delete TheTrapCleanup;
sl@0	1277
sl@0	1278	TheFs.Close();
sl@0	1279	test.Close();
sl@0	1280	return 0;
sl@0	1281	}

author	sl
	Tue, 10 Jun 2014 14:32:02 +0200 (2014-06-10)
changeset 1	260cb5ec6c19
permissions	-rw-r--r--