Return to tkt-9d68c883.test CVS log

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

Annotation of embedaddon/sqlite3/test/tkt-9d68c883.test, revision 1.1.1.1

1.1       misho       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