|
1 // Copyright (c) 2006-2009 Nokia Corporation and/or its subsidiary(-ies). |
|
2 // All rights reserved. |
|
3 // This component and the accompanying materials are made available |
|
4 // under the terms of "Eclipse Public License v1.0" |
|
5 // which accompanies this distribution, and is available |
|
6 // at the URL "http://www.eclipse.org/legal/epl-v10.html". |
|
7 // |
|
8 // Initial Contributors: |
|
9 // Nokia Corporation - initial contribution. |
|
10 // |
|
11 // Contributors: |
|
12 // |
|
13 // Description: |
|
14 // |
|
15 |
|
16 #include <e32test.h> |
|
17 #include <e32math.h> |
|
18 #include <bautils.h> |
|
19 #include <hal.h> |
|
20 #include <d32dbms.h> |
|
21 |
|
22 /////////////////////////////////////////////////////////////////////////////////////// |
|
23 |
|
24 RTest TheTest(_L("t_dbperf1")); |
|
25 RFs TheFs; |
|
26 RDbs TheDbs; |
|
27 |
|
28 TFileName TheNonSecureDbName; |
|
29 TFileName TheNonSecureDbName2; |
|
30 _LIT(KFillDbScript, "z:\\test\\t_dbperf1.sql"); |
|
31 _LIT(KUpdateSql, "UPDATE IDENTITYTABLE SET CM_FIRSTNAME='%S%d',CM_LASTNAME='%S%d',CM_COMPANYNAME='%S%d' WHERE PARENT_CMID=%d"); |
|
32 _LIT(KSelectSql, "SELECT CM_FIRSTNAME, CM_LASTNAME, CM_COMPANYNAME FROM IDENTITYTABLE WHERE PARENT_CMID > 50"); |
|
33 _LIT(KDeleteSql, "DELETE FROM IDENTITYTABLE WHERE PARENT_CMID > 50"); |
|
34 _LIT(KFirstName, "FirstName-"); |
|
35 _LIT(KLastName, "LastName-"); |
|
36 _LIT(KCompanyName, "CompanyName-"); |
|
37 |
|
38 const TInt KTestTecordCount = 1000; |
|
39 |
|
40 enum TTestType |
|
41 { |
|
42 EClientDbTest, |
|
43 EServerDbTest |
|
44 }; |
|
45 |
|
46 enum TCompactDbOption |
|
47 { |
|
48 ENoCompaction, |
|
49 ECompactAfterCommit, |
|
50 ECompactAfterEvery10Rec, |
|
51 ECompactAfterEveryUpd, |
|
52 ECompactAtEnd |
|
53 }; |
|
54 |
|
55 /////////////////////////////////////////////////////////////////////////////////////// |
|
56 |
|
57 void TestEnvDestroy() |
|
58 { |
|
59 TheDbs.Close(); |
|
60 TheFs.Delete(TheNonSecureDbName2); |
|
61 TheFs.Delete(TheNonSecureDbName); |
|
62 TheFs.Close(); |
|
63 } |
|
64 |
|
65 /////////////////////////////////////////////////////////////////////////////////////// |
|
66 /////////////////////////////////////////////////////////////////////////////////////// |
|
67 //Test macros and functions |
|
68 void Check1(TInt aValue, TInt aLine) |
|
69 { |
|
70 if(!aValue) |
|
71 { |
|
72 TestEnvDestroy(); |
|
73 TheTest.Printf(_L("*** Line %d\r\n"), aLine); |
|
74 TheTest(EFalse, aLine); |
|
75 } |
|
76 } |
|
77 void Check2(TInt aValue, TInt aExpected, TInt aLine) |
|
78 { |
|
79 if(aValue != aExpected) |
|
80 { |
|
81 TestEnvDestroy(); |
|
82 TheTest.Printf(_L("*** Line %d, Expected error: %d, got: %d\r\n"), aLine, aExpected, aValue); |
|
83 TheTest(EFalse, aLine); |
|
84 } |
|
85 } |
|
86 #define TEST(arg) ::Check1((arg), __LINE__) |
|
87 #define TEST2(aValue, aExpected) ::Check2(aValue, aExpected, __LINE__) |
|
88 |
|
89 /////////////////////////////////////////////////////////////////////////////////////// |
|
90 |
|
91 void TestEnvInit() |
|
92 { |
|
93 TInt err = TheFs.Connect(); |
|
94 TEST2(err, KErrNone); |
|
95 |
|
96 err = TheFs.MkDir(TheNonSecureDbName); |
|
97 TEST(err == KErrNone || err == KErrAlreadyExists); |
|
98 |
|
99 err = TheDbs.Connect(); |
|
100 TEST2(err, KErrNone); |
|
101 } |
|
102 |
|
103 //Reads a SQL file and returns the file content as HBUFC string. |
|
104 //The caller is responsible for destroying the returned HBufC object. |
|
105 HBufC* ReadSqlScript(const TDesC& aSqlFileName) |
|
106 { |
|
107 RFile file; |
|
108 TEST2(file.Open(TheFs, aSqlFileName, EFileRead), KErrNone); |
|
109 |
|
110 TInt size = 0; |
|
111 TEST2(file.Size(size), KErrNone); |
|
112 |
|
113 HBufC8* sql = HBufC8::New(size); |
|
114 TEST(sql != NULL); |
|
115 |
|
116 TPtr8 ptr = sql->Des(); |
|
117 TEST2(file.Read(ptr, size), KErrNone); |
|
118 |
|
119 file.Close(); |
|
120 |
|
121 HBufC* sql2 = HBufC::New(size); |
|
122 TEST(sql2 != NULL); |
|
123 sql2->Des().Copy(sql->Des()); |
|
124 delete sql; |
|
125 |
|
126 return sql2; |
|
127 } |
|
128 |
|
129 //Searches for the next ';' appearance in aSqlScript string and returns a TPtrC object holding |
|
130 //the SQL statement, terminated with that ';'. |
|
131 TPtrC GetNextStmt(TPtrC& aSqlScript) |
|
132 { |
|
133 _LIT(KTerminator, ";\xD"); |
|
134 TPtrC res(NULL, 0); |
|
135 TInt pos = aSqlScript.FindF(KTerminator()); |
|
136 if(pos >= 0) |
|
137 { |
|
138 res.Set(aSqlScript.Left(pos)); |
|
139 pos += 1; |
|
140 aSqlScript.Set(aSqlScript.Mid(pos)); |
|
141 } |
|
142 return res; |
|
143 } |
|
144 |
|
145 //Prints aTime parameter (converted to ms) |
|
146 void PrintStats(TUint32 aStartTicks, TUint32 aEndTicks) |
|
147 { |
|
148 static TInt freq = 0; |
|
149 if(freq == 0) |
|
150 { |
|
151 TEST2(HAL::Get(HAL::EFastCounterFrequency, freq), KErrNone); |
|
152 } |
|
153 TInt64 diffTicks = (TInt64)aEndTicks - (TInt64)aStartTicks; |
|
154 if(diffTicks < 0) |
|
155 { |
|
156 diffTicks = KMaxTUint32 + diffTicks + 1; |
|
157 } |
|
158 const TInt KMicroSecIn1Sec = 1000000; |
|
159 TInt32 us = (diffTicks * KMicroSecIn1Sec) / freq; |
|
160 TheTest.Printf(_L("####Execution time: %d ms\r\n"), us / 1000); |
|
161 } |
|
162 |
|
163 void PrintFileSize(const TDesC& aFileName) |
|
164 { |
|
165 RFile file; |
|
166 TInt err = file.Open(TheFs, aFileName, EFileRead); |
|
167 TEST2(err, KErrNone); |
|
168 TInt size = 0; |
|
169 err = file.Size(size); |
|
170 TEST2(err, KErrNone); |
|
171 TheTest.Printf(_L("####FileSize: %d\r\n"), size); |
|
172 file.Close(); |
|
173 } |
|
174 |
|
175 void PrintString(const TDesC& aStr) |
|
176 { |
|
177 TheTest.Printf(_L("Str begin~~~~~~~~~~~~~~~~~~~~~~~~~~\r\n")); |
|
178 TPtrC ptr(aStr); |
|
179 while(ptr.Length() > 0) |
|
180 { |
|
181 TPtrC ptr2; |
|
182 TInt len = Min(ptr.Length(), 60); |
|
183 ptr2.Set(ptr.Left(len)); |
|
184 TheTest.Printf(_L("%S\r\n"), &ptr2); |
|
185 ptr.Set(ptr.Mid(len)); |
|
186 } |
|
187 TheTest.Printf(_L("Str end~~~~~~~~~~~~~~~~~~~~~~~~~~\r\n")); |
|
188 } |
|
189 |
|
190 ////////////////////////////////////////////////////////////////////////////////////////////////////////////// |
|
191 /////// DBMS SERVER performance tests |
|
192 ////////////////////////////////////////////////////////////////////////////////////////////////////////////// |
|
193 |
|
194 //Creates aDb database schema. |
|
195 void CreateDbSchemaL(RDbDatabase& aDb) |
|
196 { |
|
197 //"Contacts" table |
|
198 CDbColSet* colSet = CDbColSet::NewLC(); |
|
199 colSet->AddL(TDbCol(_L("cm_id"), EDbColInt32, TDbCol::ENotNull)); |
|
200 colSet->AddL(TDbCol(_L("cm_type"), EDbColInt32, TDbCol::ENotNull)); |
|
201 colSet->AddL(TDbCol(_L("cm_preftemplaterefid"), EDbColInt32)); |
|
202 colSet->AddL(TDbCol(_L("cm_uidstring"), EDbColText, 244)); |
|
203 colSet->AddL(TDbCol(_L("cm_last_modified"), EDbColDateTime)); |
|
204 colSet->AddL(TDbCol(_L("cm_contactcreationdate"), EDbColDateTime)); |
|
205 colSet->AddL(TDbCol(_L("cm_attributes"), EDbColInt32, TDbCol::ENotNull)); |
|
206 colSet->AddL(TDbCol(_L("cm_replicationcount"), EDbColInt32, TDbCol::ENotNull)); |
|
207 colSet->AddL(TDbCol(_L("cm_header"), EDbColLongText)); |
|
208 colSet->AddL(TDbCol(_L("cm_textblob"), EDbColLongText)); |
|
209 colSet->AddL(TDbCol(_L("cm_searchabletext"), EDbColLongText)); |
|
210 TInt err = aDb.CreateTable(_L("contacts"), *colSet); |
|
211 TEST2(err, KErrNone); |
|
212 CleanupStack::PopAndDestroy(); colSet = NULL; |
|
213 //"identitytable" table |
|
214 colSet = CDbColSet::NewLC(); |
|
215 colSet->AddL(TDbCol(_L("parent_cmid"), EDbColInt32, TDbCol::ENotNull)); |
|
216 colSet->AddL(TDbCol(_L("cm_firstname"), EDbColText, 255)); |
|
217 colSet->AddL(TDbCol(_L("cm_lastname"), EDbColText, 255)); |
|
218 colSet->AddL(TDbCol(_L("cm_companyname"), EDbColText, 255)); |
|
219 colSet->AddL(TDbCol(_L("cm_type"), EDbColInt32)); |
|
220 colSet->AddL(TDbCol(_L("cm_attributes"), EDbColInt32)); |
|
221 colSet->AddL(TDbCol(_L("cm_hintfield"), EDbColUint8)); |
|
222 colSet->AddL(TDbCol(_L("cm_exthintfield"), EDbColUint16)); |
|
223 colSet->AddL(TDbCol(_L("cm_firstnmprn"), EDbColText, 255)); |
|
224 colSet->AddL(TDbCol(_L("cm_lastnmprn"), EDbColText, 255)); |
|
225 colSet->AddL(TDbCol(_L("cm_companynmprn"), EDbColText, 255)); |
|
226 err = aDb.CreateTable(_L("identitytable"), *colSet); |
|
227 TEST2(err, KErrNone); |
|
228 CleanupStack::PopAndDestroy(); colSet = NULL; |
|
229 //"emailtable" table |
|
230 colSet = CDbColSet::NewLC(); |
|
231 colSet->AddL(TDbCol(_L("emailparent_cmid"), EDbColInt32, TDbCol::ENotNull)); |
|
232 colSet->AddL(TDbCol(_L("email_fieldid"), EDbColInt32, TDbCol::ENotNull)); |
|
233 colSet->AddL(TDbCol(_L("emailaddress"), EDbColText, 255)); |
|
234 err = aDb.CreateTable(_L("emailtable"), *colSet); |
|
235 TEST2(err, KErrNone); |
|
236 CleanupStack::PopAndDestroy(); colSet = NULL; |
|
237 //"phone" table |
|
238 colSet = CDbColSet::NewLC(); |
|
239 colSet->AddL(TDbCol(_L("cm_id"), EDbColInt32, TDbCol::ENotNull)); |
|
240 colSet->AddL(TDbCol(_L("cm_phonematching"), EDbColInt32, TDbCol::ENotNull)); |
|
241 colSet->AddL(TDbCol(_L("cm_extendedphonematching"), EDbColInt32, TDbCol::ENotNull)); |
|
242 err = aDb.CreateTable(_L("phone"), *colSet); |
|
243 TEST2(err, KErrNone); |
|
244 CleanupStack::PopAndDestroy(); colSet = NULL; |
|
245 //"groups" table |
|
246 colSet = CDbColSet::NewLC(); |
|
247 colSet->AddL(TDbCol(_L("cm_id"), EDbColInt32, TDbCol::ENotNull)); |
|
248 colSet->AddL(TDbCol(_L("cm_members"), EDbColInt32, TDbCol::ENotNull)); |
|
249 err = aDb.CreateTable(_L("groups"), *colSet); |
|
250 TEST2(err, KErrNone); |
|
251 CleanupStack::PopAndDestroy(); colSet = NULL; |
|
252 //"groups2" table |
|
253 colSet = CDbColSet::NewLC(); |
|
254 colSet->AddL(TDbCol(_L("cm_id"), EDbColInt32, TDbCol::ENotNull)); |
|
255 colSet->AddL(TDbCol(_L("cm_groupmembers"), EDbColLongText)); |
|
256 err = aDb.CreateTable(_L("groups2"), *colSet); |
|
257 TEST2(err, KErrNone); |
|
258 CleanupStack::PopAndDestroy(); colSet = NULL; |
|
259 //"sync" table |
|
260 colSet = CDbColSet::NewLC(); |
|
261 colSet->AddL(TDbCol(_L("cm_id"), EDbColInt32, TDbCol::ENotNull)); |
|
262 colSet->AddL(TDbCol(_L("cm_lastsyncdate"), EDbColDateTime)); |
|
263 err = aDb.CreateTable(_L("sync"), *colSet); |
|
264 TEST2(err, KErrNone); |
|
265 CleanupStack::PopAndDestroy(); colSet = NULL; |
|
266 //"preferences" table |
|
267 colSet = CDbColSet::NewLC(); |
|
268 colSet->AddL(TDbCol(_L("cm_preffileid"), EDbColInt16)); |
|
269 colSet->AddL(TDbCol(_L("cm_preftemplateid"), EDbColInt32, TDbCol::ENotNull)); |
|
270 colSet->AddL(TDbCol(_L("cm_prefowncardid"), EDbColInt32)); |
|
271 colSet->AddL(TDbCol(_L("cm_prefcardtemplateprefid"), EDbColInt32)); |
|
272 colSet->AddL(TDbCol(_L("cm_preffilever"), EDbColInt32, TDbCol::ENotNull)); |
|
273 colSet->AddL(TDbCol(_L("cm_prefcardtemplateid"), EDbColLongText)); |
|
274 colSet->AddL(TDbCol(_L("cm_prefgroupidlist"), EDbColLongText)); |
|
275 colSet->AddL(TDbCol(_L("cm_creationdate"), EDbColDateTime)); |
|
276 colSet->AddL(TDbCol(_L("cm_machineuid"), EDbColInt64)); |
|
277 colSet->AddL(TDbCol(_L("cm_prefsortorder"), EDbColLongText)); |
|
278 err = aDb.CreateTable(_L("preferences"), *colSet); |
|
279 TEST2(err, KErrNone); |
|
280 CleanupStack::PopAndDestroy(); colSet = NULL; |
|
281 ////////////////////////////////////////////////////////////////////////////////////////////////////////// |
|
282 ////////////////////////////////////////////////////////////////////////////////////////////////////////// |
|
283 //"Contacts" table keys |
|
284 CDbKey* key = CDbKey::NewLC(); |
|
285 key->AddL(_L("cm_id")); |
|
286 key->MakeUnique(); |
|
287 err = aDb.CreateIndex(_L("contacts"), _L("contacts"), *key); |
|
288 TEST2(err, KErrNone); |
|
289 CleanupStack::PopAndDestroy(); key = NULL; |
|
290 key = CDbKey::NewLC(); |
|
291 key->AddL(_L("cm_preftemplaterefid")); |
|
292 err = aDb.CreateIndex(_L("cm_preftemplaterefid"), _L("contacts"), *key); |
|
293 TEST2(err, KErrNone); |
|
294 CleanupStack::PopAndDestroy(); key = NULL; |
|
295 //"identitytable" table keys |
|
296 key = CDbKey::NewLC(); |
|
297 key->AddL(_L("parent_cmid")); |
|
298 key->MakeUnique(); |
|
299 err = aDb.CreateIndex(_L("identitytable"), _L("identitytable"), *key); |
|
300 TEST2(err, KErrNone); |
|
301 CleanupStack::PopAndDestroy(); key = NULL; |
|
302 //"emailtable" table keys |
|
303 key = CDbKey::NewLC(); |
|
304 key->AddL(_L("email_fieldid")); |
|
305 key->AddL(_L("emailparent_cmid")); |
|
306 key->MakeUnique(); |
|
307 err = aDb.CreateIndex(_L("emailtable"), _L("emailtable"), *key); |
|
308 TEST2(err, KErrNone); |
|
309 CleanupStack::PopAndDestroy(); key = NULL; |
|
310 key = CDbKey::NewLC(); |
|
311 key->AddL(_L("emailparent_cmid")); |
|
312 err = aDb.CreateIndex(_L("emailparent_cmid"), _L("emailtable"), *key); |
|
313 TEST2(err, KErrNone); |
|
314 CleanupStack::PopAndDestroy(); key = NULL; |
|
315 //"phone" table keys |
|
316 key = CDbKey::NewLC(); |
|
317 key->AddL(_L("cm_phonematching")); |
|
318 key->AddL(_L("cm_id")); |
|
319 key->MakeUnique(); |
|
320 err = aDb.CreateIndex(_L("phone"), _L("phone"), *key); |
|
321 TEST2(err, KErrNone); |
|
322 CleanupStack::PopAndDestroy(); key = NULL; |
|
323 key = CDbKey::NewLC(); |
|
324 key->AddL(_L("cm_id")); |
|
325 err = aDb.CreateIndex(_L("cm_id"), _L("phone"), *key); |
|
326 TEST2(err, KErrNone); |
|
327 CleanupStack::PopAndDestroy(); key = NULL; |
|
328 //"groups" table keys |
|
329 key = CDbKey::NewLC(); |
|
330 key->AddL(_L("cm_members")); |
|
331 key->AddL(_L("cm_id")); |
|
332 key->MakeUnique(); |
|
333 err = aDb.CreateIndex(_L("groups"), _L("groups"), *key); |
|
334 TEST2(err, KErrNone); |
|
335 CleanupStack::PopAndDestroy(); key = NULL; |
|
336 key = CDbKey::NewLC(); |
|
337 key->AddL(_L("cm_id")); |
|
338 err = aDb.CreateIndex(_L("cm_id"), _L("groups"), *key); |
|
339 TEST2(err, KErrNone); |
|
340 CleanupStack::PopAndDestroy(); key = NULL; |
|
341 key = CDbKey::NewLC(); |
|
342 key->AddL(_L("cm_members")); |
|
343 err = aDb.CreateIndex(_L("cm_members"), _L("groups"), *key); |
|
344 TEST2(err, KErrNone); |
|
345 CleanupStack::PopAndDestroy(); key = NULL; |
|
346 //"groups2" table keys |
|
347 key = CDbKey::NewLC(); |
|
348 key->AddL(_L("cm_id")); |
|
349 key->MakeUnique(); |
|
350 err = aDb.CreateIndex(_L("groups2"), _L("groups2"), *key); |
|
351 TEST2(err, KErrNone); |
|
352 CleanupStack::PopAndDestroy(); key = NULL; |
|
353 //"sync" table keys |
|
354 key = CDbKey::NewLC(); |
|
355 key->AddL(_L("cm_id")); |
|
356 key->MakeUnique(); |
|
357 err = aDb.CreateIndex(_L("sync"), _L("sync"), *key); |
|
358 TEST2(err, KErrNone); |
|
359 CleanupStack::PopAndDestroy(); key = NULL; |
|
360 //"preferences" table keys |
|
361 key = CDbKey::NewLC(); |
|
362 key->AddL(_L("cm_preftemplateid")); |
|
363 err = aDb.CreateIndex(_L("cm_preftemplateid"), _L("preferences"), *key); |
|
364 TEST2(err, KErrNone); |
|
365 CleanupStack::PopAndDestroy(); key = NULL; |
|
366 key = CDbKey::NewLC(); |
|
367 key->AddL(_L("cm_prefowncardid")); |
|
368 err = aDb.CreateIndex(_L("cm_prefowncardid"), _L("preferences"), *key); |
|
369 TEST2(err, KErrNone); |
|
370 CleanupStack::PopAndDestroy(); key = NULL; |
|
371 key = CDbKey::NewLC(); |
|
372 key->AddL(_L("cm_prefcardtemplateprefid")); |
|
373 err = aDb.CreateIndex(_L("cm_prefcardtemplateprefid"), _L("preferences"), *key); |
|
374 TEST2(err, KErrNone); |
|
375 CleanupStack::PopAndDestroy(); key = NULL; |
|
376 } |
|
377 |
|
378 class TDbHelper |
|
379 { |
|
380 public: |
|
381 static void CreateL(const TDesC& aDbName) |
|
382 { |
|
383 RDbNamedDatabase db; |
|
384 TInt err = db.Replace(TheFs, aDbName); |
|
385 TEST2(err, KErrNone); |
|
386 CreateDbSchemaL(db); |
|
387 db.Close(); |
|
388 } |
|
389 static RDbDatabase Open(TTestType aTestType, const TDesC& aDbName) |
|
390 { |
|
391 RDbNamedDatabase db; |
|
392 TInt err = aTestType == EClientDbTest ? db.Open(TheFs, aDbName) : db.Open(TheDbs, aDbName); |
|
393 TEST2(err, KErrNone); |
|
394 return db; |
|
395 } |
|
396 }; |
|
397 |
|
398 //Executes SQL script |
|
399 void ExecuteSqlScript(RDbDatabase& aDb, const TDesC& aScriptFileName, TCompactDbOption aCompactDbOpt) |
|
400 { |
|
401 if(aCompactDbOpt == ECompactAfterCommit) |
|
402 { |
|
403 TheTest.Printf(_L("===Execute DB script: Compact after COMMIT\r\n")); |
|
404 } |
|
405 else if(aCompactDbOpt == ECompactAtEnd) |
|
406 { |
|
407 TheTest.Printf(_L("===Execute DB script: Compact at end\r\n")); |
|
408 } |
|
409 else |
|
410 { |
|
411 TheTest.Printf(_L("===Execute DB script: No compaction\r\n")); |
|
412 } |
|
413 HBufC* fullDbScript = ReadSqlScript(aScriptFileName); |
|
414 TUint32 start = User::FastCounter(); |
|
415 TPtrC ptr(fullDbScript->Des()); |
|
416 TInt stmtCnt = 0; |
|
417 TInt err = aDb.Begin(); |
|
418 TEST2(err, KErrNone); |
|
419 TPtrC sql(GetNextStmt(ptr)); |
|
420 while(sql.Length() > 0) |
|
421 { |
|
422 ++stmtCnt; |
|
423 TInt rc = aDb.Execute(sql); |
|
424 if(rc == KErrNoMemory) |
|
425 { |
|
426 TheTest.Printf(_L("###ERROR 'Out of memory'! The test cannot be completed!\r\n")); |
|
427 return; |
|
428 } |
|
429 if(rc != 1) |
|
430 { |
|
431 PrintString(sql); |
|
432 } |
|
433 TEST2(rc, 1); |
|
434 if((stmtCnt % 200) == 0) //~16 transactions (~3270 statements total) |
|
435 { |
|
436 err = aDb.Commit(); |
|
437 TEST2(err, KErrNone); |
|
438 if(aCompactDbOpt == ECompactAfterCommit) |
|
439 { |
|
440 err = aDb.Compact(); |
|
441 TEST2(err, KErrNone); |
|
442 } |
|
443 err = aDb.Begin(); |
|
444 TEST2(err, KErrNone); |
|
445 } |
|
446 sql.Set(GetNextStmt(ptr)); |
|
447 } |
|
448 err = aDb.Commit(); |
|
449 TEST2(err, KErrNone); |
|
450 if(aCompactDbOpt == ECompactAfterCommit || aCompactDbOpt == ECompactAtEnd) |
|
451 { |
|
452 err = aDb.Compact(); |
|
453 TEST2(err, KErrNone); |
|
454 } |
|
455 TUint32 end = User::FastCounter(); |
|
456 PrintStats(start, end); |
|
457 delete fullDbScript; |
|
458 TheTest.Printf(_L("###Processed records: %d\r\n"), stmtCnt); |
|
459 } |
|
460 |
|
461 /////////////////////////////////////////////////////////////////////////////////////// |
|
462 |
|
463 //"INSERT" test function |
|
464 void InsertTest(TTestType aTestType, const TDesC& aDbFileName, TCompactDbOption aCompactDbOpt) |
|
465 { |
|
466 TheTest.Printf(_L("\"Insert\" test\r\n")); |
|
467 RDbDatabase db = TDbHelper::Open(aTestType, aDbFileName); |
|
468 ExecuteSqlScript(db, KFillDbScript, aCompactDbOpt); |
|
469 RDbTable tbl; |
|
470 TInt err = tbl.Open(db, _L("CONTACTS")); |
|
471 TEST2(err, KErrNone); |
|
472 TInt recCnt = 0; |
|
473 TRAP(err, recCnt = tbl.CountL()); |
|
474 TEST2(err, KErrNone); |
|
475 TEST2(recCnt, 1001); |
|
476 tbl.Close(); |
|
477 db.Close(); |
|
478 } |
|
479 |
|
480 //"UPDATE" test function |
|
481 void UpdateTest(TTestType aTestType, const TDesC& aDbFileName, const TDesC& aUpdateSql, TCompactDbOption aCompactDbOpt) |
|
482 { |
|
483 if(aCompactDbOpt == ECompactAfterEvery10Rec) |
|
484 { |
|
485 TheTest.Printf(_L("===Update: Compact after every 10 records\r\n")); |
|
486 } |
|
487 else if(aCompactDbOpt == ECompactAfterEveryUpd) |
|
488 { |
|
489 TheTest.Printf(_L("===Update: Compact after every update\r\n")); |
|
490 } |
|
491 else if(aCompactDbOpt == ECompactAtEnd) |
|
492 { |
|
493 TheTest.Printf(_L("===Update: Compact at end\r\n")); |
|
494 } |
|
495 else |
|
496 { |
|
497 TheTest.Printf(_L("===Update: No compaction\r\n")); |
|
498 } |
|
499 TheTest.Printf(_L("\"Update\" test\r\n")); |
|
500 RDbDatabase db = TDbHelper::Open(aTestType, aDbFileName); |
|
501 |
|
502 TUint32 start = User::FastCounter(); |
|
503 for(TInt id=1,updateOpCnt=0;id<=KTestTecordCount;++id,++updateOpCnt) |
|
504 { |
|
505 TBuf<200> sql; |
|
506 sql.Format(aUpdateSql, &KFirstName, id, &KLastName, id, &KCompanyName, id, id); |
|
507 TInt rc = db.Execute(sql); |
|
508 if(rc != 1) |
|
509 { |
|
510 PrintString(sql); |
|
511 } |
|
512 TEST2(rc, 1); |
|
513 if(aCompactDbOpt == ECompactAfterEveryUpd || (aCompactDbOpt == ECompactAfterEvery10Rec && (updateOpCnt % 10) == 0)) |
|
514 { |
|
515 TInt err = db.Compact(); |
|
516 TEST2(err, KErrNone); |
|
517 } |
|
518 } |
|
519 if(aCompactDbOpt == ECompactAfterEvery10Rec || aCompactDbOpt == ECompactAtEnd) |
|
520 { |
|
521 TInt err = db.Compact(); |
|
522 TEST2(err, KErrNone); |
|
523 } |
|
524 TUint32 end = User::FastCounter(); |
|
525 PrintStats(start, end); |
|
526 db.Close(); |
|
527 } |
|
528 |
|
529 //"SELECT" test function |
|
530 void SelectTestL(TTestType aTestType, const TDesC& aDbFileName, const TDesC& aSelectSql) |
|
531 { |
|
532 TheTest.Printf(_L("\"Select\" test\r\n")); |
|
533 RDbDatabase db = TDbHelper::Open(aTestType, aDbFileName); |
|
534 TDbQuery query(aSelectSql); |
|
535 RDbView view; |
|
536 TInt err = view.Prepare(db, query, RDbRowSet::EReadOnly); |
|
537 TEST2(err, KErrNone); |
|
538 |
|
539 TUint32 start = User::FastCounter(); |
|
540 err = view.EvaluateAll(); |
|
541 TEST2(err, KErrNone); |
|
542 while(view.NextL()) |
|
543 { |
|
544 view.GetL(); |
|
545 TPtrC colVal; |
|
546 TBuf<20> res; |
|
547 colVal.Set(view.ColDes(1)); |
|
548 res.Copy(colVal); |
|
549 TEST(colVal.Length() > 0); |
|
550 colVal.Set(view.ColDes(2)); |
|
551 TEST(colVal.Length() > 0); |
|
552 res.Copy(colVal); |
|
553 colVal.Set(view.ColDes(3)); |
|
554 TEST(colVal.Length() > 0); |
|
555 res.Copy(colVal); |
|
556 } |
|
557 TEST(view.AtEnd()); |
|
558 view.Close(); |
|
559 TUint32 end = User::FastCounter(); |
|
560 PrintStats(start, end); |
|
561 db.Close(); |
|
562 } |
|
563 |
|
564 //"DELETE" test function |
|
565 void DeleteTest(TTestType aTestType, const TDesC& aDbFileName, const TDesC& aDeleteSql, TCompactDbOption aCompactDbOpt) |
|
566 { |
|
567 if(aCompactDbOpt == ECompactAtEnd) |
|
568 { |
|
569 TheTest.Printf(_L("===Delete: Compact at end\r\n")); |
|
570 } |
|
571 else |
|
572 { |
|
573 TheTest.Printf(_L("===Delete: No compaction\r\n")); |
|
574 } |
|
575 TheTest.Printf(_L("\"Delete\" test\r\n")); |
|
576 RDbDatabase db = TDbHelper::Open(aTestType, aDbFileName); |
|
577 TUint32 start = User::FastCounter(); |
|
578 TInt rc = db.Execute(aDeleteSql); |
|
579 TEST(rc > 900); |
|
580 if(aCompactDbOpt == ECompactAtEnd) |
|
581 { |
|
582 TInt err = db.Compact(); |
|
583 TEST2(err, KErrNone); |
|
584 } |
|
585 TUint32 end = User::FastCounter(); |
|
586 PrintStats(start, end); |
|
587 db.Close(); |
|
588 } |
|
589 |
|
590 /** |
|
591 @SYMTestCaseID PDS-DBMS-CT-4008 |
|
592 @SYMTestCaseDesc DBMS server performance tests. |
|
593 Three test types used: "insert records", "update records" and "select records". |
|
594 The tests are executed on non-secure databases. |
|
595 Each test executed using UTF16 encoded SQl statements. |
|
596 The test results are used for a comparison against the SQL server test results |
|
597 (T_SqlPerformance test). |
|
598 @SYMTestPriority High |
|
599 @SYMTestActions DBMS server performance tests. |
|
600 @SYMTestExpectedResults Test must not fail |
|
601 @SYMREQ REQ5792 |
|
602 REQ5793 |
|
603 */ |
|
604 void DoTestsL() |
|
605 { |
|
606 TheTest.Start(_L(" @SYMTestCaseID:PDS-DBMS-CT-4008 DBMS performance tests")); |
|
607 |
|
608 CFileMan* fm = CFileMan::NewL(TheFs); |
|
609 CleanupStack::PushL(fm); |
|
610 |
|
611 //==================================== CLIENT ========================================================== |
|
612 TheTest.Printf(_L("DBMS, insert, UTF16 SQL strings, non-secure db, client, no db compaction\r\n")); |
|
613 TDbHelper::CreateL(TheNonSecureDbName); |
|
614 InsertTest(EClientDbTest, TheNonSecureDbName, ENoCompaction); |
|
615 PrintFileSize(TheNonSecureDbName); |
|
616 |
|
617 TheTest.Printf(_L("DBMS, insert, UTF16 SQL strings, non-secure db, client, db compaction at end\r\n")); |
|
618 TDbHelper::CreateL(TheNonSecureDbName); |
|
619 InsertTest(EClientDbTest, TheNonSecureDbName, ECompactAtEnd); |
|
620 PrintFileSize(TheNonSecureDbName); |
|
621 |
|
622 TheTest.Printf(_L("DBMS, insert, UTF16 SQL strings, non-secure db, client, db compaction after commit\r\n")); |
|
623 TDbHelper::CreateL(TheNonSecureDbName); |
|
624 InsertTest(EClientDbTest, TheNonSecureDbName, ECompactAfterCommit); |
|
625 PrintFileSize(TheNonSecureDbName); |
|
626 |
|
627 TInt err = fm->Copy(TheNonSecureDbName, TheNonSecureDbName2); |
|
628 TEST2(err, KErrNone); |
|
629 |
|
630 TheTest.Printf(_L("DBMS, update, UTF16 SQL strings, non-secure db, client, no db compaction\r\n")); |
|
631 UpdateTest(EClientDbTest, TheNonSecureDbName, KUpdateSql(), ENoCompaction); |
|
632 PrintFileSize(TheNonSecureDbName); |
|
633 err = fm->Copy(TheNonSecureDbName2, TheNonSecureDbName); |
|
634 TEST2(err, KErrNone); |
|
635 |
|
636 TheTest.Printf(_L("DBMS, update, UTF16 SQL strings, non-secure db, client, db compaction at end\r\n")); |
|
637 UpdateTest(EClientDbTest, TheNonSecureDbName, KUpdateSql(), ECompactAtEnd); |
|
638 PrintFileSize(TheNonSecureDbName); |
|
639 err = fm->Copy(TheNonSecureDbName2, TheNonSecureDbName); |
|
640 TEST2(err, KErrNone); |
|
641 |
|
642 TheTest.Printf(_L("DBMS, update, UTF16 SQL strings, non-secure db, client, db compaction after every 10 records\r\n")); |
|
643 UpdateTest(EClientDbTest, TheNonSecureDbName, KUpdateSql(), ECompactAfterEvery10Rec); |
|
644 PrintFileSize(TheNonSecureDbName); |
|
645 //L err = fm->Copy(TheNonSecureDbName2, TheNonSecureDbName); |
|
646 //L TEST2(err, KErrNone); |
|
647 |
|
648 //L TheTest.Printf(_L("DBMS, update, UTF16 SQL strings, non-secure db, client, db compaction after every update\r\n")); |
|
649 //L UpdateTest(EClientDbTest, TheNonSecureDbName, KUpdateSql(), ECompactAfterEveryUpd); |
|
650 //L PrintFileSize(TheNonSecureDbName); |
|
651 |
|
652 TheTest.Printf(_L("DBMS, select, UTF16 SQL strings, non-secure db, client\r\n")); |
|
653 SelectTestL(EClientDbTest, TheNonSecureDbName, KSelectSql()); |
|
654 |
|
655 TheTest.Printf(_L("DBMS, delete, UTF16 SQL strings, non-secure db, client\r\n")); |
|
656 DeleteTest(EClientDbTest, TheNonSecureDbName, KDeleteSql(), ECompactAtEnd); |
|
657 PrintFileSize(TheNonSecureDbName); |
|
658 |
|
659 //==================================== SERVER ========================================================== |
|
660 |
|
661 TheTest.Printf(_L("DBMS, insert, UTF16 SQL strings, non-secure db, server, no db compaction\r\n")); |
|
662 TDbHelper::CreateL(TheNonSecureDbName); |
|
663 InsertTest(EServerDbTest, TheNonSecureDbName, ENoCompaction); |
|
664 PrintFileSize(TheNonSecureDbName); |
|
665 |
|
666 TheTest.Printf(_L("DBMS, insert, UTF16 SQL strings, non-secure db, server, db compaction at end\r\n")); |
|
667 TDbHelper::CreateL(TheNonSecureDbName); |
|
668 InsertTest(EServerDbTest, TheNonSecureDbName, ECompactAtEnd); |
|
669 PrintFileSize(TheNonSecureDbName); |
|
670 |
|
671 TheTest.Printf(_L("DBMS, insert, UTF16 SQL strings, non-secure db, server, db compaction after commit\r\n")); |
|
672 TDbHelper::CreateL(TheNonSecureDbName); |
|
673 InsertTest(EServerDbTest, TheNonSecureDbName, ECompactAfterCommit); |
|
674 PrintFileSize(TheNonSecureDbName); |
|
675 |
|
676 err = fm->Copy(TheNonSecureDbName, TheNonSecureDbName2); |
|
677 TEST2(err, KErrNone); |
|
678 |
|
679 TheTest.Printf(_L("DBMS, update, UTF16 SQL strings, non-secure db, server, no db compaction\r\n")); |
|
680 UpdateTest(EServerDbTest, TheNonSecureDbName, KUpdateSql(), ENoCompaction); |
|
681 PrintFileSize(TheNonSecureDbName); |
|
682 err = fm->Copy(TheNonSecureDbName2, TheNonSecureDbName); |
|
683 TEST2(err, KErrNone); |
|
684 |
|
685 TheTest.Printf(_L("DBMS, update, UTF16 SQL strings, non-secure db, server, db compaction at end\r\n")); |
|
686 UpdateTest(EServerDbTest, TheNonSecureDbName, KUpdateSql(), ECompactAtEnd); |
|
687 PrintFileSize(TheNonSecureDbName); |
|
688 err = fm->Copy(TheNonSecureDbName2, TheNonSecureDbName); |
|
689 TEST2(err, KErrNone); |
|
690 |
|
691 TheTest.Printf(_L("DBMS, update, UTF16 SQL strings, non-secure db, server, db compaction after every 10 records\r\n")); |
|
692 UpdateTest(EServerDbTest, TheNonSecureDbName, KUpdateSql(), ECompactAfterEvery10Rec); |
|
693 PrintFileSize(TheNonSecureDbName); |
|
694 //L err = fm->Copy(TheNonSecureDbName2, TheNonSecureDbName); |
|
695 //L TEST2(err, KErrNone); |
|
696 |
|
697 //L TheTest.Printf(_L("DBMS, update, UTF16 SQL strings, non-secure db, server, db compaction after every update\r\n")); |
|
698 //L UpdateTest(EServerDbTest, TheNonSecureDbName, KUpdateSql(), ECompactAfterEveryUpd); |
|
699 //L PrintFileSize(TheNonSecureDbName); |
|
700 |
|
701 TheTest.Printf(_L("DBMS, select, UTF16 SQL strings, non-secure db, server\r\n")); |
|
702 SelectTestL(EServerDbTest, TheNonSecureDbName, KSelectSql()); |
|
703 |
|
704 TheTest.Printf(_L("DBMS, delete, UTF16 SQL strings, non-secure db, server\r\n")); |
|
705 DeleteTest(EServerDbTest, TheNonSecureDbName, KDeleteSql(), ECompactAtEnd); |
|
706 PrintFileSize(TheNonSecureDbName); |
|
707 |
|
708 //====================================================================================================== |
|
709 CleanupStack::PopAndDestroy(fm); |
|
710 } |
|
711 |
|
712 //Usage: "t_dbperf1 [<drive letter>:]" |
|
713 |
|
714 TInt E32Main() |
|
715 { |
|
716 TheTest.Title(); |
|
717 |
|
718 CTrapCleanup* tc = CTrapCleanup::New(); |
|
719 |
|
720 //Construct test database file names, using the passed as an optional argument drive letter |
|
721 TFileName fname; |
|
722 TParse parse; |
|
723 User::CommandLine(fname); |
|
724 |
|
725 _LIT(KNonSecureDbName, "c:\\test\\t_dbperf1_1.db"); |
|
726 parse.Set(fname, &KNonSecureDbName, 0); |
|
727 const TDesC& dbFilePath1 = parse.FullName(); |
|
728 TheNonSecureDbName.Copy(dbFilePath1); |
|
729 |
|
730 _LIT(KNonSecureDbName2, "c:\\test\\t_dbperf1_2.db"); |
|
731 parse.Set(fname, &KNonSecureDbName2, 0); |
|
732 const TDesC& dbFilePath2 = parse.FullName(); |
|
733 TheNonSecureDbName2.Copy(dbFilePath2); |
|
734 |
|
735 __UHEAP_MARK; |
|
736 |
|
737 TestEnvInit(); |
|
738 TRAPD(err, DoTestsL()); |
|
739 TestEnvDestroy(); |
|
740 TEST2(err, KErrNone); |
|
741 |
|
742 __UHEAP_MARKEND; |
|
743 |
|
744 TheTest.End(); |
|
745 TheTest.Close(); |
|
746 |
|
747 delete tc; |
|
748 |
|
749 User::Heap().Check(); |
|
750 return KErrNone; |
|
751 } |