test/tkt-9d68c883.test

   1 # 2010 April 10
   2 #
   3 # The author disclaims copyright to this source code.  In place of
   4 # a legal notice, here is a blessing:
   5 #
   6 #    May you do good and not evil.
   7 #    May you find forgiveness for yourself and forgive others.
   8 #    May you share freely, never taking more than you give.
   9 #
  10 #***********************************************************************
  11 # This file tests that bug  9d68c883132c8e9ffcd5b0c148c990807b5df1b7
  12 # is fixed.
  13 #
  14
  15 set testdir [file dirname $argv0]
  16 source $testdir/tester.tcl
  17
  18 do_test tkt-9d68c88-1.1 {
  19   execsql {
  20     PRAGMA page_size = 1024;
  21     PRAGMA auto_vacuum = 2;
  22     CREATE TABLE t3(x);
  23     CREATE TABLE t4(x);
  24     CREATE TABLE t5(x);
  25     INSERT INTO t5 VALUES(randomblob(1500));
  26     CREATE TABLE t7(x);
  27     CREATE TABLE t8(x);
  28   }
  29 } {}
  30
  31
  32 for {set i 0} {$i < 100} {incr i} {
  33   db close
  34   sqlite3_simulate_device -sectorsize 8192
  35   sqlite3 db test.db -vfs devsym
  36
  37   do_test tkt-9d68c88-2.$i {
  38     execsql {
  39       BEGIN;
  40         DELETE FROM t5;
  41         INSERT INTO t8 VALUES('hello world');
  42     }
  43
  44     sqlite3_memdebug_fail $i -repeat 0
  45     catchsql { DROP TABLE t7; }
  46     sqlite3_memdebug_fail -1
  47
  48     catchsql { ROLLBACK }
  49     execsql { PRAGMA integrity_check }
  50   } {ok}
  51 }
  52
  53 catch { db close }
  54 unregister_devsim
  55 finish_test