Return to tkt-9d68c883.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

sqlite3

    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: finish_test