# 2001 September 15

 #

 # The author disclaims copyright to this source code.  In place of

 # a legal notice, here is a blessing:

 #

 #    May you do good and not evil.

 #    May you find forgiveness for yourself and forgive others.

 #    May you share freely, never taking more than you give.

 #

 #***********************************************************************

 # This file tests that rollback journals for databases that use a 

 # page-size other than the default page-size can be rolled back Ok.

 #

 # $Id: crash6.test,v 1.2 2008/04/14 15:27:19 drh Exp $

 set testdir [file dirname $argv0]

 source $testdir/tester.tcl

 ifcapable !crashtest {

   finish_test

   return

 }

 for {set ii 0} {$ii < 10} {incr ii} {

   catch {db close}

   file delete -force test.db test.db-journal

   crashsql -delay 2 -file test.db {

     PRAGMA auto_vacuum=OFF;

     PRAGMA page_size=4096;

     BEGIN;

     CREATE TABLE abc AS SELECT 1 AS a, 2 AS b, 3 AS c;

     COMMIT;

     BEGIN;

     CREATE TABLE def AS SELECT 1 AS d, 2 AS e, 3 AS f;

     COMMIT;

   }

   sqlite3 db test.db

   integrity_check crash6-1.$ii

 }

 for {set ii 0} {$ii < 10} {incr ii} {

   catch {db close}

   file delete -force test.db test.db-journal

   sqlite3 db test.db

   execsql {

     PRAGMA auto_vacuum=OFF;

     PRAGMA page_size=2048;

     BEGIN;

     CREATE TABLE abc AS SELECT 1 AS a, 2 AS b, 3 AS c;

     COMMIT;

   }

   db close

   crashsql -delay 1 -file test.db {

     INSERT INTO abc VALUES(5, 6, 7);

   }

   sqlite3 db test.db

   integrity_check crash6-2.$ii

 }

 proc signature {} {

   return [db eval {SELECT count(*), md5sum(a), md5sum(b), md5sum(c) FROM abc}]

 }

 # Test case for crashing during database sync with page-size values 

 # from 1024 to 8192.

 #

 for {set ii 0} {$ii < 30} {incr ii} {

   db close

   file delete -force test.db

   sqlite3 db test.db

   set pagesize [expr 1024 << ($ii % 4)]

   if {$pagesize>$::SQLITE_MAX_PAGE_SIZE} {

     set pagesize $::SQLITE_MAX_PAGE_SIZE

   }

   do_test crash6-3.$ii.0 {

     execsql "pragma page_size = $pagesize"

     execsql "pragma page_size"

   } $pagesize

   do_test crash6-3.$ii.1 {

     execsql BEGIN

     execsql {CREATE TABLE abc(a, b, c)}

     for {set n 0} {$n < 1000} {incr n} {

       execsql "INSERT INTO abc VALUES($n, [expr 2*$n], [expr 3*$n])"

     }

     execsql {

       INSERT INTO abc SELECT * FROM abc;

       INSERT INTO abc SELECT * FROM abc;

       INSERT INTO abc SELECT * FROM abc;

       INSERT INTO abc SELECT * FROM abc;

       INSERT INTO abc SELECT * FROM abc;

     }

     execsql COMMIT

     expr ([file size test.db] / 1024) > 450

   } {1}

   set sig [signature]

   db close

   do_test crash6-3.$ii.2 {

      crashsql -file test.db "

        BEGIN;

        SELECT random() FROM abc LIMIT $ii;

        INSERT INTO abc SELECT randstr(10,10), 0, 0 FROM abc WHERE random()%2==0;

        DELETE FROM abc WHERE random()%2!=0;

        COMMIT;

      "

   } {1 {child process exited abnormally}}

   do_test crash6-3.$ii.3 {

     sqlite3 db test.db

     signature

   } $sig

 } 

 finish_test