1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/persistentdata/persistentstorage/sql/TEST/t_sqlcompact3.cpp Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,689 @@
1.4 +// Copyright (c) 2008-2009 Nokia Corporation and/or its subsidiary(-ies).
1.5 +// All rights reserved.
1.6 +// This component and the accompanying materials are made available
1.7 +// under the terms of "Eclipse Public License v1.0"
1.8 +// which accompanies this distribution, and is available
1.9 +// at the URL "http://www.eclipse.org/legal/epl-v10.html".
1.10 +//
1.11 +// Initial Contributors:
1.12 +// Nokia Corporation - initial contribution.
1.13 +//
1.14 +// Contributors:
1.15 +//
1.16 +// Description:
1.17 +//
1.18 +
1.19 +#include <e32test.h>
1.20 +#include <bautils.h>
1.21 +#include <sqldb.h>
1.22 +#include <stdlib.h>
1.23 +#include "sqlite3.h"
1.24 +#include "SqliteSymbian.h"
1.25 +
1.26 +
1.27 +///////////////////////////////////////////////////////////////////////////////////////
1.28 +
1.29 +RTest TheTest(_L("t_sqlcompact3 test"));
1.30 +RSqlDatabase TheDb;
1.31 +RSqlStatement TheStmt;
1.32 +
1.33 +_LIT(KTestDir, "c:\\test\\");
1.34 +_LIT(KTestDbName1, "c:\\test\\t_sqlcompact3_1.db");
1.35 +_LIT(KTestPrivDbName, "c:\\private\\21212124\\t_sqlcompact3_2.db");
1.36 +_LIT(KTestPrivDbNameZ,"z:\\private\\21212124\\t_sqldb1.db");//Created outside the test app
1.37 +_LIT(KTestPrivDbNameC,"c:\\private\\21212124\\t_sqldb1.db");
1.38 +_LIT(KTestSecureDbName, "c:[21212124]t_sqlcompact3_3.db");
1.39 +_LIT8(KTestFullSecureDbNameZ, "c:\\private\\10281e17\\[21212124]t_sqlcompact3_3.db\x0");
1.40 +
1.41 +const TInt KAutoVacuum = 1;
1.42 +const TInt KIncrementalVacuum = 2;
1.43 +const TInt KSqlDefaultVacuum = KIncrementalVacuum;
1.44 +
1.45 +//In order to be able to compile the test, the following variables are defined (used inside the OS porting layer, when _SQLPROFILER macro is defined)
1.46 +#ifdef _SQLPROFILER
1.47 +TInt TheSqlSrvProfilerFileRead = 0;
1.48 +TInt TheSqlSrvProfilerFileWrite = 0;
1.49 +TInt TheSqlSrvProfilerFileSync = 0;
1.50 +TInt TheSqlSrvProfilerFileSetSize = 0;
1.51 +#endif
1.52 +
1.53 +///////////////////////////////////////////////////////////////////////////////////////
1.54 +
1.55 +void DestroyTestEnv()
1.56 + {
1.57 + TheStmt.Close();
1.58 + TheDb.Close();
1.59 + (void)RSqlDatabase::Delete(KTestPrivDbNameC);
1.60 + (void)RSqlDatabase::Delete(KTestSecureDbName);
1.61 + (void)RSqlDatabase::Delete(KTestPrivDbName);
1.62 + (void)RSqlDatabase::Delete(KTestDbName1);
1.63 + sqlite3SymbianLibFinalize();
1.64 + CloseSTDLIB();
1.65 + }
1.66 +
1.67 +///////////////////////////////////////////////////////////////////////////////////////
1.68 +///////////////////////////////////////////////////////////////////////////////////////
1.69 +//Test macros and functions
1.70 +void Check(TInt aValue, TInt aLine)
1.71 + {
1.72 + if(!aValue)
1.73 + {
1.74 + DestroyTestEnv();
1.75 + TheTest(EFalse, aLine);
1.76 + }
1.77 + }
1.78 +void Check(TInt aValue, TInt aExpected, TInt aLine)
1.79 + {
1.80 + if(aValue != aExpected)
1.81 + {
1.82 + DestroyTestEnv();
1.83 + RDebug::Print(_L("*** Expected error: %d, got: %d\r\n"), aExpected, aValue);
1.84 + TheTest(EFalse, aLine);
1.85 + }
1.86 + }
1.87 +#define TEST(arg) ::Check((arg), __LINE__)
1.88 +#define TEST2(aValue, aExpected) ::Check(aValue, aExpected, __LINE__)
1.89 +
1.90 +///////////////////////////////////////////////////////////////////////////////////////
1.91 +
1.92 +void CreateTestEnv()
1.93 + {
1.94 + RFs fs;
1.95 + TInt err = fs.Connect();
1.96 + TEST2(err, KErrNone);
1.97 +
1.98 + err = fs.MkDir(KTestDir);
1.99 + TEST(err == KErrNone || err == KErrAlreadyExists);
1.100 +
1.101 + err = fs.CreatePrivatePath(EDriveC);
1.102 + TEST(err == KErrNone || err == KErrAlreadyExists);
1.103 +
1.104 + fs.Close();
1.105 +
1.106 + sqlite3SymbianLibInit();
1.107 + }
1.108 +
1.109 +///////////////////////////////////////////////////////////////////////////////////////
1.110 +
1.111 +/**
1.112 +@SYMTestCaseID SYSLIB-SQL-UT-4056
1.113 +@SYMTestCaseDesc Manual compaction - configuration test.
1.114 + The test creates a database with a manual compaction mode.
1.115 + The test reopens the database and verifies that the compaction mode is persistent and is still manual.
1.116 + Then the test reopens the database using different compaction mode in the configuration string and
1.117 + verifies that the original (manual) compaction mode cannot be changed when the database is opened.
1.118 +@SYMTestPriority Medium
1.119 +@SYMTestActions Manual compaction - configuration test.
1.120 +@SYMTestExpectedResults Test must not fail
1.121 +@SYMREQ REQ10274
1.122 + REQ10402
1.123 +*/
1.124 +void CompactConfigTest1L()
1.125 + {
1.126 + //Create a test database with "manual" compaction mode
1.127 + _LIT8(KConfigStr1, "encoding=utf-8;compaction=manual");
1.128 + TInt err = TheDb.Create(KTestDbName1, &KConfigStr1);
1.129 + TEST2(err, KErrNone);
1.130 + //Check the vacuum mode. The SQLite vacuum mode should be "incremental"
1.131 + TSqlScalarFullSelectQuery scalarQuery(TheDb);
1.132 + TInt compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.133 + TEST2(compact, KIncrementalVacuum);
1.134 + TheDb.Close();
1.135 + //Close and open the database again. The SQLite vacuum mode should be "incremental".
1.136 + err = TheDb.Open(KTestDbName1);
1.137 + TEST2(err, KErrNone);
1.138 + scalarQuery.SetDatabase(TheDb);
1.139 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.140 + TEST2(compact, KIncrementalVacuum);
1.141 + TheDb.Close();
1.142 + //Close and open the database again with a config string with "auto" compaction mode.
1.143 + //The SQLite vacuum mode should stay unchanged.
1.144 + _LIT8(KConfigStr2, "compaction=auto");
1.145 + err = TheDb.Open(KTestDbName1, &KConfigStr2);
1.146 + TEST2(err, KErrNone);
1.147 + scalarQuery.SetDatabase(TheDb);
1.148 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.149 + TEST2(compact, KIncrementalVacuum);
1.150 + TheDb.Close();
1.151 + //Delete database
1.152 + err = RSqlDatabase::Delete(KTestDbName1);
1.153 + TEST2(err, KErrNone);
1.154 + }
1.155 +
1.156 +/**
1.157 +@SYMTestCaseID SYSLIB-SQL-UT-4057
1.158 +@SYMTestCaseDesc Auto compaction - configuration test.
1.159 + The test creates a database with an auto compaction mode.
1.160 + The test reopens the database and verifies that the compaction mode is persistent and is still auto.
1.161 + Then the test reopens the database using different compaction mode in the configuration string and
1.162 + verifies that the original (auto) compaction mode cannot be changed when the database is opened.
1.163 +@SYMTestPriority Medium
1.164 +@SYMTestActions Auto compaction - configuration test.
1.165 +@SYMTestExpectedResults Test must not fail
1.166 +@SYMREQ REQ10274
1.167 + REQ10400
1.168 +*/
1.169 +void CompactConfigTest2L()
1.170 + {
1.171 + //Create a test database with "auto" compaction mode
1.172 + _LIT8(KConfigStr1, "encoding=utf-8;compaction=auto");
1.173 + TInt err = TheDb.Create(KTestDbName1, &KConfigStr1);
1.174 + TEST2(err, KErrNone);
1.175 + //Check the vacuum mode. The SQLite vacuum mode should be "auto"
1.176 + TSqlScalarFullSelectQuery scalarQuery(TheDb);
1.177 + TInt compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.178 + TEST2(compact, KAutoVacuum);
1.179 + TheDb.Close();
1.180 + //Create a test database with "synchronous" compaction mode
1.181 + err = RSqlDatabase::Delete(KTestDbName1);
1.182 + TEST2(err, KErrNone);
1.183 + _LIT8(KConfigStr3, "encoding=utf-8;compaction=synchronous");
1.184 + err = TheDb.Create(KTestDbName1, &KConfigStr3);
1.185 + TEST2(err, KErrNone);
1.186 + //Check the vacuum mode. The SQLite vacuum mode should be "auto"
1.187 + scalarQuery.SetDatabase(TheDb);
1.188 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.189 + TEST2(compact, KAutoVacuum);
1.190 + TheDb.Close();
1.191 + //Close and open the database again. The SQLite vacuum mode should be "auto".
1.192 + err = TheDb.Open(KTestDbName1);
1.193 + TEST2(err, KErrNone);
1.194 + scalarQuery.SetDatabase(TheDb);
1.195 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.196 + TEST2(compact, KAutoVacuum);
1.197 + TheDb.Close();
1.198 + //Close and open the database again with a config string with "background" compaction mode.
1.199 + //The SQLite vacuum mode should stay unchanged.
1.200 + _LIT8(KConfigStr2, "compaction=background");
1.201 + err = TheDb.Open(KTestDbName1, &KConfigStr2);
1.202 + TEST2(err, KErrNone);
1.203 + scalarQuery.SetDatabase(TheDb);
1.204 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.205 + TEST2(compact, KAutoVacuum);
1.206 + TheDb.Close();
1.207 + //Delete database
1.208 + err = RSqlDatabase::Delete(KTestDbName1);
1.209 + TEST2(err, KErrNone);
1.210 + }
1.211 +
1.212 +/**
1.213 +@SYMTestCaseID SYSLIB-SQL-UT-4058
1.214 +@SYMTestCaseDesc Background compaction - configuration test.
1.215 + The test creates a database with a background compaction mode.
1.216 + The test reopens the database and verifies that the compaction mode is persistent and is still background.
1.217 + Then the test reopens the database using different compaction mode in the configuration string and
1.218 + verifies that the original (background) compaction mode cannot be changed when the database is opened.
1.219 +@SYMTestPriority Medium
1.220 +@SYMTestActions Background compaction - configuration test.
1.221 +@SYMTestExpectedResults Test must not fail
1.222 +@SYMREQ REQ10274
1.223 +*/
1.224 +void CompactConfigTest3L()
1.225 + {
1.226 + //Create a test database with "background" compaction mode
1.227 + _LIT8(KConfigStr1, "encoding=utf-8;compaction=background");
1.228 + TInt err = TheDb.Create(KTestDbName1, &KConfigStr1);
1.229 + TEST2(err, KErrNone);
1.230 + //Check the vacuum mode. The SQLite vacuum mode should be "incremental"
1.231 + TSqlScalarFullSelectQuery scalarQuery(TheDb);
1.232 + TInt compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.233 + TEST2(compact, KIncrementalVacuum);
1.234 + TheDb.Close();
1.235 + //Close and open the database again. The SQLite vacuum mode should be "incremental".
1.236 + err = TheDb.Open(KTestDbName1);
1.237 + TEST2(err, KErrNone);
1.238 + scalarQuery.SetDatabase(TheDb);
1.239 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.240 + TEST2(compact, KIncrementalVacuum);
1.241 + TheDb.Close();
1.242 + //Close and open the database again with a config string with "manual" compaction mode.
1.243 + //The SQLite vacuum mode should stay unchanged.
1.244 + _LIT8(KConfigStr2, "compaction=manual");
1.245 + err = TheDb.Open(KTestDbName1, &KConfigStr2);
1.246 + TEST2(err, KErrNone);
1.247 + scalarQuery.SetDatabase(TheDb);
1.248 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.249 + TEST2(compact, KIncrementalVacuum);
1.250 + TheDb.Close();
1.251 + //Delete database
1.252 + err = RSqlDatabase::Delete(KTestDbName1);
1.253 + TEST2(err, KErrNone);
1.254 + }
1.255 +
1.256 +/**
1.257 +@SYMTestCaseID SYSLIB-SQL-UT-4059
1.258 +@SYMTestCaseDesc Background compaction - no configuration string test.
1.259 + The test creates a database without using a configuration string.
1.260 + The database should be created with default compaction mode - background.
1.261 + The test reopens the database and verifies that the compaction mode is persistent and is still background.
1.262 + Then the test reopens the database using different compaction mode in the configuration string and
1.263 + verifies that the original (background) compaction mode cannot be changed when the database is opened.
1.264 +@SYMTestPriority Medium
1.265 +@SYMTestActions Background compaction - no configuration string test.
1.266 +@SYMTestExpectedResults Test must not fail
1.267 +@SYMREQ REQ10273
1.268 + REQ10274
1.269 +*/
1.270 +void CompactConfigTest4L()
1.271 + {
1.272 + //Create a test database without configuration string
1.273 + TInt err = TheDb.Create(KTestDbName1);
1.274 + TEST2(err, KErrNone);
1.275 + //Check the vacuum mode. The SQLite vacuum mode should be KSqlDefaultVacuum
1.276 + TSqlScalarFullSelectQuery scalarQuery(TheDb);
1.277 + TInt compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.278 + TEST2(compact, KSqlDefaultVacuum);
1.279 + TheDb.Close();
1.280 + //Delete database
1.281 + err = RSqlDatabase::Delete(KTestDbName1);
1.282 + TEST2(err, KErrNone);
1.283 + //Create a test database with invalid configuration string
1.284 + _LIT8(KConfigStr1, "encoding=utf-8;compaction=backgrund");
1.285 + err = TheDb.Create(KTestDbName1, &KConfigStr1);
1.286 + TEST2(err, KErrNone);
1.287 + //Check the vacuum mode. The SQLite vacuum mode should be KSqlDefaultVacuum
1.288 + scalarQuery.SetDatabase(TheDb);
1.289 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.290 + TEST2(compact, KSqlDefaultVacuum);
1.291 + TheDb.Close();
1.292 + //Delete database
1.293 + err = RSqlDatabase::Delete(KTestDbName1);
1.294 + TEST2(err, KErrNone);
1.295 + //Create a test database with invalid configuration string
1.296 + _LIT8(KConfigStr2, "compactin=background");
1.297 + err = TheDb.Create(KTestDbName1, &KConfigStr2);
1.298 + TEST2(err, KErrNone);
1.299 + //Check the vacuum mode. The SQLite vacuum mode should be KSqlDefaultVacuum
1.300 + scalarQuery.SetDatabase(TheDb);
1.301 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.302 + TEST2(compact, KSqlDefaultVacuum);
1.303 + TheDb.Close();
1.304 + //Delete database
1.305 + err = RSqlDatabase::Delete(KTestDbName1);
1.306 + TEST2(err, KErrNone);
1.307 + }
1.308 +
1.309 +/**
1.310 +@SYMTestCaseID SYSLIB-SQL-UT-4060
1.311 +@SYMTestCaseDesc Private database and compaction configuration test.
1.312 + The test verifies that a private database can be created using auto, background or
1.313 + manual compaction mode and that the compaction mode does not chage after reopening
1.314 + the database.
1.315 + The test also verifies that if the database is legacy, read-only, then the compaction
1.316 + mode is auto.
1.317 + The test also verifies that if the database is legacy, r/w, then the compaction
1.318 + mode will be changed from auto to background.
1.319 +@SYMTestPriority Medium
1.320 +@SYMTestActions Private database and compaction configuration test.
1.321 +@SYMTestExpectedResults Test must not fail
1.322 +@SYMREQ REQ10273
1.323 + REQ10274
1.324 + REQ10400
1.325 + REQ10402
1.326 +*/
1.327 +void CompactConfigTest5L()
1.328 + {
1.329 + //Create a private test database with "auto" compaction mode
1.330 + _LIT8(KConfigStr1, "encoding=utf-8;compaction=auto");
1.331 + TInt err = TheDb.Create(KTestPrivDbName, &KConfigStr1);
1.332 + TEST2(err, KErrNone);
1.333 + //Check the vacuum mode. The SQLite vacuum mode should be "auto"
1.334 + TSqlScalarFullSelectQuery scalarQuery(TheDb);
1.335 + TInt compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.336 + TEST2(compact, KAutoVacuum);
1.337 + TheDb.Close();
1.338 + //Close and open the database again. The SQLite vacuum mode should be "auto".
1.339 + err = TheDb.Open(KTestPrivDbName);
1.340 + TEST2(err, KErrNone);
1.341 + scalarQuery.SetDatabase(TheDb);
1.342 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.343 + TEST2(compact, KAutoVacuum);
1.344 + TheDb.Close();
1.345 + //Close and open the database again with a config string with "background" compaction mode.
1.346 + //The SQLite vacuum mode should stay unchanged.
1.347 + _LIT8(KConfigStr2, "compaction=background");
1.348 + err = TheDb.Open(KTestPrivDbName, &KConfigStr2);
1.349 + TEST2(err, KErrNone);
1.350 + scalarQuery.SetDatabase(TheDb);
1.351 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.352 + TEST2(compact, KAutoVacuum);
1.353 + TheDb.Close();
1.354 + //Delete database
1.355 + err = RSqlDatabase::Delete(KTestPrivDbName);
1.356 + TEST2(err, KErrNone);
1.357 + //Create a private test database - no config string
1.358 + err = TheDb.Create(KTestPrivDbName);
1.359 + TEST2(err, KErrNone);
1.360 + //Check the vacuum mode. The SQLite vacuum mode should be KSqlDefaultVacuum
1.361 + scalarQuery.SetDatabase(TheDb);
1.362 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.363 + TEST2(compact, KSqlDefaultVacuum);
1.364 + TheDb.Close();
1.365 + //Close and open the database again. The SQLite vacuum mode should be KSqlDefaultVacuum.
1.366 + err = TheDb.Open(KTestPrivDbName);
1.367 + TEST2(err, KErrNone);
1.368 + scalarQuery.SetDatabase(TheDb);
1.369 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.370 + TEST2(compact, KSqlDefaultVacuum);
1.371 + TheDb.Close();
1.372 + //Close and open the database again with a config string with "auto" compaction mode.
1.373 + //The SQLite vacuum mode should stay unchanged.
1.374 + err = TheDb.Open(KTestPrivDbName, &KConfigStr1);
1.375 + TEST2(err, KErrNone);
1.376 + scalarQuery.SetDatabase(TheDb);
1.377 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.378 + TEST2(compact, KSqlDefaultVacuum);
1.379 + TheDb.Close();
1.380 + //Delete database
1.381 + err = RSqlDatabase::Delete(KTestPrivDbName);
1.382 + TEST2(err, KErrNone);
1.383 + //Open an existing private database that is read-only (on drive Z:)
1.384 + err = TheDb.Open(KTestPrivDbNameZ, &KConfigStr1);
1.385 + TEST2(err, KErrNone);
1.386 + //Check the vacuum mode. The SQLite compact mode should be "auto" (this is an old database (pre-"background compact" era))
1.387 + scalarQuery.SetDatabase(TheDb);
1.388 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.389 + TEST2(compact, KAutoVacuum);
1.390 + TheDb.Close();
1.391 + //Open the same database after copying it to drive C: (r/w private database). The compaction mode should change from auto to background.
1.392 + RFs fs;
1.393 + err = fs.Connect();
1.394 + TEST2(err, KErrNone);
1.395 + CFileMan* fm = CFileMan::NewL(fs);
1.396 + TEST(fm != NULL);
1.397 + err = fm->Copy(KTestPrivDbNameZ, KTestPrivDbNameC);
1.398 + TEST2(err, KErrNone);
1.399 + //"Copy" operation executed without errors. Now it is a time to turn off the read-only
1.400 + //flag of the target file (which may be on if the source file is on a read-only drive)
1.401 + err = fs.SetAtt(KTestPrivDbNameC, 0, KEntryAttReadOnly);
1.402 + TEST2(err, KErrNone);
1.403 + delete fm;
1.404 + fs.Close();
1.405 + err = TheDb.Open(KTestPrivDbNameC);
1.406 + TEST2(err, KErrNone);
1.407 + scalarQuery.SetDatabase(TheDb);
1.408 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.409 + TEST2(compact, KSqlDefaultVacuum);
1.410 + TheDb.Close();
1.411 + (void)RSqlDatabase::Delete(KTestPrivDbNameC);
1.412 + }
1.413 +
1.414 +RSqlSecurityPolicy CreateTestSecurityPolicy()
1.415 + {
1.416 + const TSecurityPolicy KDefaultPolicy(TSecurityPolicy::EAlwaysPass);
1.417 + RSqlSecurityPolicy securityPolicy;
1.418 + TInt err = securityPolicy.Create(KDefaultPolicy);
1.419 + TEST2(err, KErrNone);
1.420 + return securityPolicy;
1.421 + }
1.422 +
1.423 +void TestCompactMode(TInt aExpectedCompactMode)
1.424 + {
1.425 + sqlite3 *dbHandle = NULL;
1.426 + TInt rc = sqlite3_open((const char*)KTestFullSecureDbNameZ().Ptr(), &dbHandle);
1.427 + TEST2(rc, SQLITE_OK);
1.428 +
1.429 + sqlite3_stmt* stmtHandle = NULL;
1.430 + const char* stmtTailZ = NULL;
1.431 + rc = sqlite3_prepare_v2(dbHandle, "PRAGMA auto_vacuum", -1, &stmtHandle, &stmtTailZ);
1.432 + TEST2(rc, SQLITE_OK);
1.433 +
1.434 + rc = sqlite3_step(stmtHandle);
1.435 + TEST2(rc, SQLITE_ROW);
1.436 + TInt compact = sqlite3_column_int(stmtHandle, 0);
1.437 +
1.438 + sqlite3_finalize(stmtHandle);
1.439 + sqlite3_close(dbHandle);
1.440 +
1.441 + TEST2(compact, aExpectedCompactMode);
1.442 + }
1.443 +
1.444 +/**
1.445 +@SYMTestCaseID SYSLIB-SQL-UT-4061
1.446 +@SYMTestCaseDesc Secure shared database and compaction configuration test.
1.447 + The test verifies that a secure shared database can be created using auto, background or
1.448 + manual compaction mode and that the compaction mode does not chage after reopening
1.449 + the database.
1.450 +@SYMTestPriority Medium
1.451 +@SYMTestActions Secure shared database and compaction configuration test.
1.452 +@SYMTestExpectedResults Test must not fail
1.453 +@SYMREQ REQ10273
1.454 + REQ10274
1.455 + REQ10400
1.456 + REQ10402
1.457 +*/
1.458 +void CompactConfigTest6L()
1.459 + {
1.460 + //Create a secure test database with "auto" compaction mode.
1.461 + RSqlSecurityPolicy securityPolicy = CreateTestSecurityPolicy();
1.462 + _LIT8(KConfigStr1, "encoding=utf-8;compaction=auto");
1.463 + TInt err = TheDb.Create(KTestSecureDbName, securityPolicy, &KConfigStr1);
1.464 + TEST2(err, KErrNone);
1.465 + securityPolicy.Close();
1.466 + TheDb.Close();
1.467 + //Check the vacuum mode. The SQLite vacuum mode should be "auto"
1.468 + TestCompactMode(KAutoVacuum);
1.469 + //Close and open the database again. The SQLite vacuum mode should be "auto".
1.470 + err = TheDb.Open(KTestSecureDbName);
1.471 + TEST2(err, KErrNone);
1.472 + TheDb.Close();
1.473 + TestCompactMode(KAutoVacuum);
1.474 + //Close and open the database again with a config string with "background" compaction mode.
1.475 + //The SQLite vacuum mode should stay unchanged.
1.476 + _LIT8(KConfigStr2, "compaction=background");
1.477 + err = TheDb.Open(KTestSecureDbName, &KConfigStr2);
1.478 + TEST2(err, KErrNone);
1.479 + TheDb.Close();
1.480 + TestCompactMode(KAutoVacuum);
1.481 + //Delete database
1.482 + err = RSqlDatabase::Delete(KTestSecureDbName);
1.483 + TEST2(err, KErrNone);
1.484 + //Create a private test database - no config string
1.485 + securityPolicy = CreateTestSecurityPolicy();
1.486 + err = TheDb.Create(KTestSecureDbName, securityPolicy);
1.487 + TEST2(err, KErrNone);
1.488 + securityPolicy.Close();
1.489 + TheDb.Close();
1.490 + //Check the vacuum mode. The SQLite vacuum mode should be KSqlDefaultVacuum.
1.491 + TestCompactMode(KSqlDefaultVacuum);
1.492 + //Close and open the database again. The SQLite vacuum mode should be KSqlDefaultVacuum.
1.493 + err = TheDb.Open(KTestSecureDbName);
1.494 + TEST2(err, KErrNone);
1.495 + TheDb.Close();
1.496 + TestCompactMode(KSqlDefaultVacuum);
1.497 + //Close and open the database again with a config string with "auto" compaction mode.
1.498 + //The SQLite vacuum mode should stay unchanged.
1.499 + err = TheDb.Open(KTestSecureDbName, &KConfigStr1);
1.500 + TEST2(err, KErrNone);
1.501 + TheDb.Close();
1.502 + TestCompactMode(KSqlDefaultVacuum);
1.503 + //Delete database
1.504 + err = RSqlDatabase::Delete(KTestSecureDbName);
1.505 + TEST2(err, KErrNone);
1.506 + }
1.507 +
1.508 +/**
1.509 +@SYMTestCaseID SYSLIB-SQL-UT-4062
1.510 +@SYMTestCaseDesc Compaction configuration test - multiple connections.
1.511 + The test creates a database with auto or background compaction mode.
1.512 + Then the test opens more connections to the same database.
1.513 + The test verifies that the compaction mode of the connections opened later is
1.514 + the same as the compaction mode of the database that was openen first.
1.515 + The test also verifies that the compactino mode cannot be changed even if the second
1.516 + connection is opened with a configuration string with a specified different compaction mode.
1.517 +@SYMTestPriority Medium
1.518 +@SYMTestActions Compaction configuration test - multiple connections.
1.519 +@SYMTestExpectedResults Test must not fail
1.520 +@SYMREQ REQ10273
1.521 + REQ10274
1.522 + REQ10400
1.523 +*/
1.524 +void CompactConfigTest7L()
1.525 + {
1.526 + //Create a test database with "auto" compaction mode.
1.527 + _LIT8(KConfigStr1, "encoding=utf-8;compaction = auto");
1.528 + TInt err = TheDb.Create(KTestDbName1, &KConfigStr1);
1.529 + TEST2(err, KErrNone);
1.530 + //Check the vacuum mode. The SQLite vacuum mode should be "auto"
1.531 + TSqlScalarFullSelectQuery scalarQuery(TheDb);
1.532 + TInt compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.533 + TEST2(compact, KAutoVacuum);
1.534 + //Open a second connection to the same database - no config string
1.535 + RSqlDatabase db2;
1.536 + err = db2.Open(KTestDbName1);
1.537 + TEST2(err, KErrNone);
1.538 + //Check the vacuum mode. The SQLite vacuum mode should be "auto"
1.539 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.540 + TEST2(compact, KAutoVacuum);
1.541 + TSqlScalarFullSelectQuery scalarQuery2(db2);
1.542 + compact = scalarQuery2.SelectIntL(_L("PRAGMA auto_vacuum"));
1.543 + TEST2(compact, KAutoVacuum);
1.544 + //Open a third connection to the same database - "background" compaction mode config string
1.545 + _LIT8(KConfigStr2, " encoding = utf-8 ; ; ; compaction = background ");
1.546 + RSqlDatabase db3;
1.547 + err = db3.Open(KTestDbName1, &KConfigStr2);
1.548 + TEST2(err, KErrNone);
1.549 + //Check the vacuum mode. The SQLite vacuum mode should be "auto"
1.550 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.551 + TEST2(compact, KAutoVacuum);
1.552 + compact = scalarQuery2.SelectIntL(_L("PRAGMA auto_vacuum"));
1.553 + TEST2(compact, KAutoVacuum);
1.554 + TSqlScalarFullSelectQuery scalarQuery3(db3);
1.555 + compact = scalarQuery3.SelectIntL(_L("PRAGMA auto_vacuum"));
1.556 + TEST2(compact, KAutoVacuum);
1.557 + //Close & Delete database
1.558 + db3.Close();
1.559 + db2.Close();
1.560 + TheDb.Close();
1.561 + err = RSqlDatabase::Delete(KTestDbName1);
1.562 + TEST2(err, KErrNone);
1.563 + //
1.564 + //
1.565 + //Create a test database with "background" compaction mode
1.566 + _LIT8(KConfigStr3, "compaction = background ;;;;");
1.567 + err = TheDb.Create(KTestDbName1, &KConfigStr3);
1.568 + TEST2(err, KErrNone);
1.569 + //Check the vacuum mode. The SQLite vacuum mode should be "incremental"
1.570 + scalarQuery.SetDatabase(TheDb);
1.571 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.572 + TEST2(compact, KIncrementalVacuum);
1.573 + //Open a second connection to the same database - no config string
1.574 + err = db2.Open(KTestDbName1);
1.575 + TEST2(err, KErrNone);
1.576 + //Check the vacuum mode. The SQLite vacuum mode should be "incremental"
1.577 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.578 + TEST2(compact, KIncrementalVacuum);
1.579 + scalarQuery2.SetDatabase(db2);
1.580 + compact = scalarQuery2.SelectIntL(_L("PRAGMA auto_vacuum"));
1.581 + TEST2(compact, KIncrementalVacuum);
1.582 + //Open a third connection to the same database - "auto" compaction mode config string
1.583 + _LIT8(KConfigStr4, " encoding = utf-16 ; compaction = auto ; ; ; ");
1.584 + err = db3.Open(KTestDbName1, &KConfigStr4);
1.585 + TEST2(err, KErrNone);
1.586 + //Check the vacuum mode. The SQLite vacuum mode should be "incremental"
1.587 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.588 + TEST2(compact, KIncrementalVacuum);
1.589 + compact = scalarQuery2.SelectIntL(_L("PRAGMA auto_vacuum"));
1.590 + TEST2(compact, KIncrementalVacuum);
1.591 + scalarQuery3.SetDatabase(db3);
1.592 + compact = scalarQuery3.SelectIntL(_L("PRAGMA auto_vacuum"));
1.593 + TEST2(compact, KIncrementalVacuum);
1.594 + //Close & Delete database
1.595 + db3.Close();
1.596 + db2.Close();
1.597 + TheDb.Close();
1.598 + err = RSqlDatabase::Delete(KTestDbName1);
1.599 + TEST2(err, KErrNone);
1.600 + }
1.601 +
1.602 +/**
1.603 +@SYMTestCaseID SYSLIB-SQL-UT-4063
1.604 +@SYMTestCaseDesc Compaction configuration test - attached database.
1.605 + The test creates a database with an auto compaction mode.
1.606 + Then the test attaches the same database.
1.607 + The test verifies that the compaction mode of the main and the attached database is the same - auto.
1.608 +@SYMTestPriority Medium
1.609 +@SYMTestActions Compaction configuration test - attached database.
1.610 +@SYMTestExpectedResults Test must not fail
1.611 +@SYMREQ REQ10273
1.612 + REQ10274
1.613 + REQ10400
1.614 +*/
1.615 +void CompactConfigTest8L()
1.616 + {
1.617 + //Create a test database with "auto" compaction mode
1.618 + _LIT8(KConfigStr1, "; ;; ; compaction = auto; ");
1.619 + TInt err = TheDb.Create(KTestDbName1, &KConfigStr1);
1.620 + TEST2(err, KErrNone);
1.621 + //Attach a database
1.622 + err = TheDb.Attach(KTestDbName1, _L("db2"));
1.623 + TEST2(err, KErrNone);
1.624 + //Check compact for both main and attached database
1.625 + TSqlScalarFullSelectQuery scalarQuery(TheDb);
1.626 + TInt compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.627 + TEST2(compact, KAutoVacuum);
1.628 + compact = scalarQuery.SelectIntL(_L("PRAGMA db2.auto_vacuum"));
1.629 + TEST2(compact, KAutoVacuum);
1.630 + //Detach
1.631 + err = TheDb.Detach(_L("db2"));
1.632 + TEST2(err, KErrNone);
1.633 + //Check compact again
1.634 + compact = scalarQuery.SelectIntL(_L("PRAGMA auto_vacuum"));
1.635 + TEST2(compact, KAutoVacuum);
1.636 + //
1.637 + TheDb.Close();
1.638 + err = RSqlDatabase::Delete(KTestDbName1);
1.639 + TEST2(err, KErrNone);
1.640 + }
1.641 +
1.642 +void DoTestsL()
1.643 + {
1.644 + TheTest.Start(_L(" @SYMTestCaseID:SYSLIB-SQL-UT-4056 Compaction configuration tests 1 - manual compact"));
1.645 + CompactConfigTest1L();
1.646 +
1.647 + TheTest.Next(_L(" @SYMTestCaseID:SYSLIB-SQL-UT-4057 Compaction configuration tests 2 - auto compact"));
1.648 + CompactConfigTest2L();
1.649 +
1.650 + TheTest.Next(_L(" @SYMTestCaseID:SYSLIB-SQL-UT-4058 Compaction configuration tests 3 - background compact"));
1.651 + CompactConfigTest3L();
1.652 +
1.653 + TheTest.Next(_L(" @SYMTestCaseID:SYSLIB-SQL-UT-4059 Compaction configuration tests 4 - invalid compact"));
1.654 + CompactConfigTest4L();
1.655 +
1.656 + TheTest.Next(_L(" @SYMTestCaseID:SYSLIB-SQL-UT-4060 Compaction configuration tests 5 - private databases"));
1.657 + CompactConfigTest5L();
1.658 +
1.659 + TheTest.Next(_L(" @SYMTestCaseID:SYSLIB-SQL-UT-4061 Compaction configuration tests 6 - secure databases"));
1.660 + CompactConfigTest6L();
1.661 +
1.662 + TheTest.Next(_L(" @SYMTestCaseID:SYSLIB-SQL-UT-4062 Compaction configuration tests 7 - multiple connections"));
1.663 + CompactConfigTest7L();
1.664 +
1.665 + TheTest.Next(_L(" @SYMTestCaseID:SYSLIB-SQL-UT-4063 Compaction configuration tests 8 - attached databases"));
1.666 + CompactConfigTest8L();
1.667 + }
1.668 +
1.669 +TInt E32Main()
1.670 + {
1.671 + TheTest.Title();
1.672 +
1.673 + CTrapCleanup* tc = CTrapCleanup::New();
1.674 +
1.675 + __UHEAP_MARK;
1.676 +
1.677 + DestroyTestEnv();
1.678 + CreateTestEnv();
1.679 + TRAPD(err, DoTestsL());
1.680 + DestroyTestEnv();
1.681 + TEST2(err, KErrNone);
1.682 +
1.683 + __UHEAP_MARKEND;
1.684 +
1.685 + TheTest.End();
1.686 + TheTest.Close();
1.687 +
1.688 + delete tc;
1.689 +
1.690 + User::Heap().Check();
1.691 + return KErrNone;
1.692 + }