28 #include "SqlUtil.h"

   224 	void FreePageUpdateTest();

   237 	void CreateTestDatabase2();

   238 	void PrepareDb(TBool aDeleteRecords);

   397 	

   398 //Creates a test database (with KDbName name). The page size is 1KB. 	

   399 void CSqlCompactTestActive::CreateTestDatabase2()

   400     {

   401     //Create the database

   402     const TInt KPageSize = 1024;

   403     _LIT8(KConfigStr, "page_size=");

   404     TBuf8<100> config;

   405     config.Copy(KConfigStr);

   406     config.AppendNum(KPageSize);

   407     TInt err = KErrNone;

   408     err = ::CreateDbHandle8(::FileNameZ8(TheDbName), TheDbHandle);

   409     TEST2(err, KErrNone);  

   410     _LIT8(KCreateTableSql, "CREATE TABLE A(I INTEGER, T TEXT)\x0");

   411     err = ::DbExecStmt8(TheDbHandle, KCreateTableSql);

   412     TEST2(err, KErrNone);

   413     }

   414 	

   415 // Inserts 1000 records.

   416 // The record size is such that there are only two records per page.

   417 void CSqlCompactTestActive::PrepareDb(TBool aDeleteRecords)

   418     {

   419     //Insert records

   420     const TInt KRecordCount = 1000;

   421     const TInt KTextLen = 400;

   422     TBuf<KTextLen> TheText;

   423     TBuf<KTextLen + 100> TheSqlBuf;

   424     TheText.SetLength(TheText.MaxLength());

   425     TheText.Fill(TChar('A'));

   426     for(TInt i=0;i<KRecordCount;++i)

   427         {

   428         TheSqlBuf.Format(_L("INSERT INTO A VALUES(%d, '%S')"), i + 1, &TheText);

   429         _LIT(KZero, "\x0");

   430         TheSqlBuf.Append(KZero);

   431         TInt err = ::DbExecStmt16(TheDbHandle, TheSqlBuf);

   432         TEST2(err, KErrNone);

   433         }

   434     if(aDeleteRecords)

   435         {   

   436         //Delete all records to make a lot of free pages. 

   437         _LIT(KDeleteAll, "DELETE FROM A WHERE 1\x0");

   438         TheSqlBuf = KDeleteAll;

   439         TInt err = ::DbExecStmt16(TheDbHandle, TheSqlBuf);

   440         TEST2(err, KErrNone);

   441         }

   442     }

   972 /**

   973 @SYMTestCaseID          PDS-SQL-CT-4239

   974 @SYMTestCaseDesc        Free page update test.

   975                         The test creates a database with some records and deletes them all. The records are inserted such that when

   976                         they get deleted, it leaves a great deal of free pages.

   977                         Then the test refill the pages which ware empty. After that, the test call ::DbCompact(...) with the number of free

   978                         pages previously. The free page count should be updated with "0" since all free pages have been refilled since. 

   979 @SYMTestPriority        Medium

   980 @SYMTestExpectedResults Test must not fail

   981 */

   982 void CSqlCompactTestActive::FreePageUpdateTest()

   983     {

   984      (void)TheFs.Delete(TheDbName);

   985     

   986     //Create the database 

   987     CreateTestDatabase2();

   988     

   989     CSqlCompactor* compactor = NULL;

   990     TRAPD(err, compactor = CSqlCompactor::NewL(&SqlCreateCompactConnL, KCompactStepInterval));

   991     TEST2(err, KErrNone);

   992     TRAP(err, compactor->AddEntryL(TheDbName, TheCompactionSettings));

   993     TEST2(err, KErrNone);

   994 	

   995 	//Insert 1000 records and then delete all of them

   996     PrepareDb(ETrue);

   997     TInt freePageCount = ::FreePageCount();

   998     TEST(freePageCount > KSqlCompactFreePageThresholdKb);

   999     TheTest.Printf(_L("   Free pages count = %d\r\n"), freePageCount);

  1000   

  1001     //Refill the database

  1002     PrepareDb(EFalse);

  1003    

  1004     CSqlCompactEntry* impl = compactor->iEntries[0];

  1005     impl->iPageCount = freePageCount;

  1006     err = impl->Compact();

  1007     TEST2(err, KErrNone);

  1008     TEST2(impl->iPageCount, 0);

  1009 

  1010     compactor->ReleaseEntry(TheDbName);

  1011     delete compactor;

  1012     ::CloseDbHandle(TheDbHandle);

  1013     TheDbHandle = NULL;

  1014     (void)TheFs.Delete(TheDbName);

  1015     }

  1016 

  1037 	

  1038 	TheTest.Next(_L(" @SYMTestCaseID:PDS-SQL-CT-4239 Free page update test"));

  1039 	TheTestActive->FreePageUpdateTest();