OLD | NEW |
| (Empty) |
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 | |
OLD | NEW |