AryaWu/sqlite

1# 2010 April 102#3# The author disclaims copyright to this source code.  In place of4# 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  9d68c883132c8e9ffcd5b0c148c990807b5df1b712# is fixed.13#14 15set testdir [file dirname $argv0]16source $testdir/tester.tcl17 18do_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 32for {set i 0} {$i < 100} {incr i} {33  db close34  sqlite3_simulate_device -sectorsize 819235  sqlite3 db test.db -vfs devsym36 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 045    catchsql { DROP TABLE t7; }46    sqlite3_memdebug_fail -147 48    catchsql { ROLLBACK }49    execsql { PRAGMA integrity_check }50  } {ok}51}52 53catch { db close } 54unregister_devsim55finish_test56